The following definitions can be found in member IODRCT4 of the Sample library.
DSNCRCT TYPE=ENTRY,TXID=WB01,THRDM=3,THRDA=1,PLAN=ODAWB01, X TWAIT=POOL,AUTH=(USERID) DSNCRCT TYPE=ENTRY,TXID=WB02,THRDM=3,THRDA=1,PLAN=ODAWB02, X TWAIT=POOL,AUTH=(USERID) DSNCRCT TYPE=ENTRY,TXID=WB03,THRDM=3,THRDA=1,PLAN=ODAWB03, X TWAIT=POOL,AUTH=(USERID) DSNCRCT TYPE=ENTRY,TXID=WB04,THRDM=3,THRDA=1,PLAN=ODAWB04, X TWAIT=POOL,AUTH=(USERID) DSNCRCT TYPE=ENTRY,TXID=WB05,THRDM=3,THRDA=1,PLAN=ODAWB05, X TWAIT=POOL,AUTH=(USERID) DSNCRCT TYPE=ENTRY,TXID=WB06,THRDM=3,THRDA=1,PLAN=ODAWB06, X TWAIT=POOL,AUTH=(USERID) DSNCRCT TYPE=ENTRY,TXID=WB07,THRDM=3,THRDA=1,PLAN=ODAWB07, X TWAIT=POOL,AUTH=(USERID) DSNCRCT TYPE=ENTRY,TXID=WB0A,THRDM=3,THRDA=1,PLAN=ODAWB0A, X TWAIT=POOL,AUTH=(USERID) DSNCRCT TYPE=ENTRY,TXID=WB53,THRDM=3,THRDA=1,PLAN=ODAWB53, X TWAIT=POOL,AUTH=(USERID) DSNCRCT TYPE=ENTRY,TXID=WB54,THRDM=3,THRDA=1,PLAN=ODAWB54, X TWAIT=POOL,AUTH=(USERID) DSNCRCT TYPE=ENTRY,TXID=WB55,THRDM=3,THRDA=1,PLAN=ODAWB55, X TWAIT=POOL,AUTH=(USERID)
The following CICS resource definitions can be found in the RDOWEB member of the JCL library.
* * UNCOMMENT THE PROGRAM DEFINITIONS FOR IODXFLDQ AND IODXDOCG IF YOU * DO NOT HAVE THE ONDEMAND FOR OS/390 SERVER FEATURE INSTALLED. * * MODIFY THE PROGRAM DEFINITION FOR IODXDOCG TO SPECIFY EXECKEY(CICS) IF * YOU HAVE IMPLEMENTED MVS COMPRESSION SERVICES WITH ONDEMAND FOR OS/390. * ADD GROUP(IODWEB) DEFINE PROGRAM(IODWWB00) GROUP(IODWEB) LANGUAGE(COBOL) RELOAD(NO) RESIDENT(NO) USAGE(NORMAL) USELPACOPY(NO) STATUS(ENABLED) CEDF(YES) DATALOCATION(ANY) EXECKEY(CICS) DEFINE PROGRAM(IODWWB01) GROUP(IODWEB) LANGUAGE(COBOL) RELOAD(NO) RESIDENT(NO) USAGE(NORMAL) USELPACOPY(NO) STATUS(ENABLED) CEDF(YES) DATALOCATION(BELOW) DEFINE PROGRAM(IODWWB02) GROUP(IODWEB) LANGUAGE(COBOL) RELOAD(NO) RESIDENT(NO) USAGE(NORMAL) USELPACOPY(NO) STATUS(ENABLED) CEDF(YES) DATALOCATION(BELOW) DEFINE PROGRAM(IODWWB03) GROUP(IODWEB) LANGUAGE(COBOL) RELOAD(NO) RESIDENT(NO) USAGE(NORMAL) USELPACOPY(NO) STATUS(ENABLED) CEDF(YES) DATALOCATION(BELOW) DEFINE PROGRAM(IODWWB04) GROUP(IODWEB) LANGUAGE(COBOL) RELOAD(NO) RESIDENT(NO) USAGE(NORMAL) USELPACOPY(NO) STATUS(ENABLED) CEDF(YES) DATALOCATION(BELOW) EXECKEY(CICS) DEFINE PROGRAM(IODWWB05) GROUP(IODWEB) LANGUAGE(COBOL) RELOAD(NO) RESIDENT(NO) USAGE(NORMAL) USELPACOPY(NO) STATUS(ENABLED) CEDF(YES) DATALOCATION(BELOW) EXECKEY(CICS) DEFINE PROGRAM(IODWWB06) GROUP(IODWEB) LANGUAGE(COBOL) RELOAD(NO) RESIDENT(NO) USAGE(NORMAL) USELPACOPY(NO) STATUS(ENABLED) CEDF(YES) DATALOCATION(BELOW) DEFINE PROGRAM(IODWWB07) GROUP(IODWEB) LANGUAGE(COBOL) RELOAD(NO) RESIDENT(NO) USAGE(NORMAL) USELPACOPY(NO) STATUS(ENABLED) CEDF(YES) DATALOCATION(BELOW) DEFINE PROGRAM(IODWWB0A) GROUP(IODWEB) LANGUAGE(COBOL) RELOAD(NO) RESIDENT(NO) USAGE(NORMAL) USELPACOPY(NO) STATUS(ENABLED) CEDF(YES) DATALOCATION(BELOW) DEFINE PROGRAM(IODWWB53) GROUP(IODWEB) LANGUAGE(COBOL) RELOAD(NO) RESIDENT(NO) USAGE(NORMAL) USELPACOPY(NO) STATUS(ENABLED) CEDF(YES) DATALOCATION(BELOW) DEFINE PROGRAM(IODWWB54) GROUP(IODWEB) LANGUAGE(COBOL) RELOAD(NO) RESIDENT(NO) USAGE(NORMAL) USELPACOPY(NO) STATUS(ENABLED) CEDF(YES) DATALOCATION(BELOW) DEFINE PROGRAM(IODWWB55) GROUP(IODWEB) LANGUAGE(COBOL) RELOAD(NO) RESIDENT(NO) USAGE(NORMAL) USELPACOPY(NO) STATUS(ENABLED) CEDF(YES) DATALOCATION(BELOW) DEFINE PROGRAM(IODWWBCV) GROUP(IODWEB) LANGUAGE(COBOL) RELOAD(NO) RESIDENT(NO) USAGE(NORMAL) USELPACOPY(NO) STATUS(ENABLED) CEDF(YES) DATALOCATION(BELOW) DEFINE PROGRAM(IODWWBSC) GROUP(IODWEB) LANGUAGE(ASSEMBLER) RELOAD(NO) RESIDENT(NO) USAGE(NORMAL) USELPACOPY(NO) STATUS(ENABLED) CEDF(YES) DATALOCATION(BELOW) EXECKEY(CICS) DEFINE PROGRAM(IODWWBSN) GROUP(IODWEB) LANGUAGE(COBOL) RELOAD(NO) RESIDENT(NO) USAGE(NORMAL) USELPACOPY(NO) STATUS(ENABLED) CEDF(YES) DATALOCATION(BELOW) EXECKEY(CICS) DEFINE PROGRAM(IODWWBSS) GROUP(IODWEB) LANGUAGE(COBOL) RELOAD(NO) RESIDENT(NO) USAGE(NORMAL) USELPACOPY(NO) STATUS(ENABLED) CEDF(YES) DATALOCATION(BELOW) EXECKEY(CICS) DEFINE PROGRAM(IODICWBC) GROUP(IODWEB) LANGUAGE(COBOL) RELOAD(NO) RESIDENT(NO) USAGE(NORMAL) USELPACOPY(NO) STATUS(ENABLED) CEDF(YES) DATALOCATION(BELOW) EXECKEY(CICS) * DEFINE PROGRAM(IODXLFDQ) GROUP(IODWEB) * LANGUAGE(COBOL) RELOAD(NO) RESIDENT(NO) USAGE(NORMAL) * USELPACOPY(NO) STATUS(ENABLED) CEDF(YES) DATALOCATION(BELOW) * EXECKEY(USER) * DEFINE PROGRAM(IODXDOCG) GROUP(IODWEB) * LANGUAGE(COBOL) RELOAD(NO) RESIDENT(NO) USAGE(NORMAL) * USELPACOPY(NO) STATUS(ENABLED) CEDF(YES) DATALOCATION(BELOW) * EXECKEY(USER) DEFINE TRANSACTION(WB01) GROUP(IODWEB) PROGRAM(DFHWBA) TWASIZE(0) PROFILE(DFHCICST) STATUS(ENABLED) TASKDATALOC(BELOW) DYNAMIC(NO) PRIORITY(1) DTIMOUT(NO) INDOUBT(BACKOUT) RESTART(NO) SPURGE(NO) TPURGE(NO) DUMP(YES) TRACE(YES) RESSEC(NO) CMDSEC(NO) DEFINE TRANSACTION(WB02) GROUP(IODWEB) PROGRAM(DFHWBA) TWASIZE(0) PROFILE(DFHCICST) STATUS(ENABLED) TASKDATALOC(BELOW) DYNAMIC(NO) PRIORITY(1) DTIMOUT(NO) INDOUBT(BACKOUT) RESTART(NO) SPURGE(NO) TPURGE(NO) DUMP(YES) TRACE(YES) RESSEC(NO) CMDSEC(NO) DEFINE TRANSACTION(WB03) GROUP(IODWEB) PROGRAM(DFHWBA) TWASIZE(0) PROFILE(DFHCICST) STATUS(ENABLED) TASKDATALOC(BELOW) DYNAMIC(NO) PRIORITY(1) DTIMOUT(NO) INDOUBT(BACKOUT) RESTART(NO) SPURGE(NO) TPURGE(NO) DUMP(YES) TRACE(YES) RESSEC(NO) CMDSEC(NO) DEFINE TRANSACTION(WB04) GROUP(IODWEB) PROGRAM(DFHWBA) TWASIZE(0) PROFILE(DFHCICST) STATUS(ENABLED) TASKDATALOC(BELOW) DYNAMIC(NO) PRIORITY(1) DTIMOUT(NO) INDOUBT(BACKOUT) RESTART(NO) SPURGE(NO) TPURGE(NO) DUMP(YES) TRACE(YES) RESSEC(NO) CMDSEC(NO) DEFINE TRANSACTION(WB05) GROUP(IODWEB) PROGRAM(DFHWBA) TWASIZE(0) PROFILE(DFHCICST) STATUS(ENABLED) TASKDATALOC(BELOW) DYNAMIC(NO) PRIORITY(1) DTIMOUT(NO) INDOUBT(BACKOUT) RESTART(NO) SPURGE(NO) TPURGE(NO) DUMP(YES) TRACE(YES) RESSEC(NO) CMDSEC(NO) DEFINE TRANSACTION(WB06) GROUP(IODWEB) PROGRAM(DFHWBA) TWASIZE(0) PROFILE(DFHCICST) STATUS(ENABLED) TASKDATALOC(BELOW) DYNAMIC(NO) PRIORITY(1) DTIMOUT(NO) INDOUBT(BACKOUT) RESTART(NO) SPURGE(NO) TPURGE(NO) DUMP(YES) TRACE(YES) RESSEC(NO) CMDSEC(NO) DEFINE TRANSACTION(WB07) GROUP(IODWEB) PROGRAM(DFHWBA) TWASIZE(0) PROFILE(DFHCICST) STATUS(ENABLED) TASKDATALOC(BELOW) DYNAMIC(NO) PRIORITY(1) DTIMOUT(NO) INDOUBT(BACKOUT) RESTART(NO) SPURGE(NO) TPURGE(NO) DUMP(YES) TRACE(YES) RESSEC(NO) CMDSEC(NO) DEFINE TRANSACTION(WB0A) GROUP(IODWEB) PROGRAM(DFHWBA) TWASIZE(0) PROFILE(DFHCICST) STATUS(ENABLED) TASKDATALOC(BELOW) DYNAMIC(NO) PRIORITY(1) DTIMOUT(NO) INDOUBT(BACKOUT) RESTART(NO) SPURGE(NO) TPURGE(NO) DUMP(YES) TRACE(YES) RESSEC(NO) CMDSEC(NO) DEFINE TRANSACTION(WB53) GROUP(IODWEB) PROGRAM(DFHWBA) TWASIZE(0) PROFILE(DFHCICST) STATUS(ENABLED) TASKDATALOC(BELOW) DYNAMIC(NO) PRIORITY(1) DTIMOUT(NO) INDOUBT(BACKOUT) RESTART(NO) SPURGE(NO) TPURGE(NO) DUMP(YES) TRACE(YES) RESSEC(NO) CMDSEC(NO) DEFINE TRANSACTION(WB54) GROUP(IODWEB) PROGRAM(DFHWBA) TWASIZE(0) PROFILE(DFHCICST) STATUS(ENABLED) TASKDATALOC(BELOW) DYNAMIC(NO) PRIORITY(1) DTIMOUT(NO) INDOUBT(BACKOUT) RESTART(NO) SPURGE(NO) TPURGE(NO) DUMP(YES) TRACE(YES) RESSEC(NO) CMDSEC(NO) DEFINE TRANSACTION(WB55) GROUP(IODWEB) PROGRAM(DFHWBA) TWASIZE(0) PROFILE(DFHCICST) STATUS(ENABLED) TASKDATALOC(BELOW) DYNAMIC(NO) PRIORITY(1) DTIMOUT(NO) INDOUBT(BACKOUT) RESTART(NO) SPURGE(NO) TPURGE(NO) DUMP(YES) TRACE(YES) RESSEC(NO) CMDSEC(NO)
The following CICS resource definitions for the PLT can be found in the DFHPLTPI member of the WEBSAMP library.
The following PLT entries can be added to the Stage 2 phase of CICS Initialization to automate the startup of the OD/390 Internet Access Feature. The example includes the PLT entries for both the OD/390 Server Feature as well as the OD/390 Internet Access Feature. The entries must appear in the following order if you intend to automate the startup of both features. If the OD/390 Server Feature is not installed, the PLT entries EZACIC20 and IODISTRT should not be included. ********************************************************************** DFHPLT TYPE=ENTRY,PROGRAM=DFHDELIM PHASE DELIMITER ********************************************************************** DFHPLT TYPE=ENTRY,PROGRAM=CBRICONN OAM INITIALIZATION DFHPLT TYPE=ENTRY,PROGRAM=EZACIC20 CICS SOCKETS DFHPLT TYPE=ENTRY,PROGRAM=IODISTRT OD/390 LISTENER DFHPLT TYPE=ENTRY,PROGRAM=IODICWBC OD/390 INTERNET ACC ***********************************************************************