The following definitions can be found in member IODRCT4 of the Sample library and should be used with CICS/ESA V4R1 and CICS/TS V1R1.
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)
* COMMENT: OD/390 V2 INTERNET ACCESS FEATURE RESOURCES * COMMENT: * COMMENT: DB2ENTRY RESOURCE DEFINITION FOR CICS/TS V1R2 and CICS/TS V1R3 ENVIRONMENTS * COMMENT: DEFINE DB2ENTRY(WB01) GROUP(IODRCTWB) DESCRIPTION(OD/390 WEB FOLDER LIST) ACCOUNTREC(TXID) AUTHTYPE(USERID) PLAN(ODAWB01) DROLLBACK(YES) PROTECTNUM(0) THREADLIMIT(1) THREADWAIT(POOL) DEFINE DB2ENTRY(WB02) GROUP(IODRCTWB) DESCRIPTION(OD/390 WEB DIRECTORY SEARCH) ACCOUNTREC(TXID) AUTHTYPE(USERID) PLAN(ODAWB02) DROLLBACK(YES) PROTECTNUM(0) THREADLIMIT(1) THREADWAIT(POOL) DEFINE DB2ENTRY(WB03) GROUP(IODRCTWB) DESCRIPTION(OD/390 WEB SEARCH RESULTS LIST) ACCOUNTREC(TXID) AUTHTYPE(USERID) PLAN(ODAWB03) DROLLBACK(YES) PROTECTNUM(0) THREADLIMIT(1) THREADWAIT(POOL) DEFINE DB2ENTRY(WB04) GROUP(IODRCTWB) DESCRIPTION(OD/390 WEB VIEW DOCUMENT - BINARY) ACCOUNTREC(TXID) AUTHTYPE(USERID) PLAN(ODAWB04) DROLLBACK(YES) PROTECTNUM(0) THREADLIMIT(1) THREADWAIT(POOL) DEFINE DB2ENTRY(WB05) GROUP(IODRCTWB) DESCRIPTION(OD/390 WEB VIEW DOCUMENT - TEXT) ACCOUNTREC(TXID) AUTHTYPE(USERID) PLAN(ODAWB05) DROLLBACK(YES) PROTECTNUM(0) THREADLIMIT(1) THREADWAIT(POOL) DEFINE DB2ENTRY(WB06) GROUP(IODRCTWB) DESCRIPTION(OD/390 WEB HOST PRINT) ACCOUNTREC(TXID) AUTHTYPE(USERID) PLAN(ODAWB06) DROLLBACK(YES) PROTECTNUM(0) THREADLIMIT(1) THREADWAIT(POOL) DEFINE DB2ENTRY(WB07) GROUP(IODRCTWB) DESCRIPTION(OD/390 WEB ANNOTATIONS) ACCOUNTREC(TXID) AUTHTYPE(USERID) PLAN(ODAWB07) DROLLBACK(YES) PROTECTNUM(0) THREADLIMIT(1) THREADWAIT(POOL) DEFINE DB2ENTRY(WB0A) GROUP(IODRCTWB) DESCRIPTION(OD/390 WEB LAUNCH DOCUMENT) ACCOUNTREC(TXID) AUTHTYPE(USERID) PLAN(ODAWB0A) DROLLBACK(YES) PROTECTNUM(0) THREADLIMIT(1) THREADWAIT(POOL) DEFINE DB2ENTRY(WB53) GROUP(IODRCTWB) DESCRIPTION(OD/390 WEB API - SEARCH RESULTS LIST) ACCOUNTREC(TXID) AUTHTYPE(USERID) PLAN(ODAWB53) DROLLBACK(YES) PROTECTNUM(0) THREADLIMIT(1) THREADWAIT(POOL) DEFINE DB2ENTRY(WB54) GROUP(IODRCTWB) DESCRIPTION(OD/390 WEB API - VIEW DOCUMENT - BINARY) ACCOUNTREC(TXID) AUTHTYPE(USERID) PLAN(ODAWB54) DROLLBACK(YES) PROTECTNUM(0) THREADLIMIT(1) THREADWAIT(POOL) DEFINE DB2ENTRY(WB55) GROUP(IODRCTWB) DESCRIPTION(OD/390 WEB API -VIEW DOCUMENT -TEXT) ACCOUNTREC(TXID) AUTHTYPE(USERID) PLAN(ODAWB55) DROLLBACK(YES) PROTECTNUM(0) THREADLIMIT(1) THREADWAIT(POOL) DEFINE DB2TRAN(WB01) GROUP(IODRCTWB) DESCRIPTION(OD/390 WEB FOLDER LIST) ENTRY(WB01) TRANSID(WB01) DEFINE DB2TRAN(WB02) GROUP(IODRCTWB) DESCRIPTION(OD/390 WEB DIRECTORY SEARCH) ENTRY(WB02) TRANSID(WB02) DEFINE DB2TRAN(WB03) GROUP(IODRCTWB) DESCRIPTION(OD/390 WEB SEARCH RESULTS LIST) ENTRY(WB03) TRANSID(WB03) DEFINE DB2TRAN(WB04) GROUP(IODRCTWB) DESCRIPTION(OD/390 WEB VIEW DOCUMENT - BINARY) ENTRY(WB04) TRANSID(WB04) DEFINE DB2TRAN(WB05) GROUP(IODRCTWB) DESCRIPTION(OD/390 WEB VIEW DOCUMENT - TEXT) ENTRY(WB05) TRANSID(WB05) DEFINE DB2TRAN(WB06) GROUP(IODRCTWB) DESCRIPTION(OD/390 WEB HOST PRINT) ENTRY(WB06) TRANSID(WB06) DEFINE DB2TRAN(WB07) GROUP(IODRCTWB) DESCRIPTION(OD/390 WEB ANNOTATIONS) ENTRY(WB07) TRANSID(WB07) DEFINE DB2TRAN(WB0A) GROUP(IODRCTWB) DESCRIPTION(OD/390 WEB LAUNCH DOCUMENT) ENTRY(WB0A) TRANSID(WB0A) DEFINE DB2TRAN(WB53) GROUP(IODRCTWB) DESCRIPTION(OD/390 WEB API - SEARCH RESULTS LIST) ENTRY(WB53) TRANSID(WB53) DEFINE DB2TRAN(WB54) GROUP(IODRCTWB) DESCRIPTION(OD/390 WEB API - VIEW DOCUMENT - BINARY) ENTRY(WB54) TRANSID(WB54) DEFINE DB2TRAN(WB55) GROUP(IODRCTWB) DESCRIPTION(OD/390 WEB API -VIEW DOCUMENT -TEXT) ENTRY(WB55) TRANSID(WB55)
OD/390 Internet Access Feature CICS Program and Transaction Definitions
The following CICS program and transaction resource definitions can be found in the IODRDO4 member of the JCL library.
* COMMENT: OD/390 V2 INTERNET ACCESS FEATURE RESOURCES * COMMENT: * COMMENT: THE FOLLOWING RDO HAS BEEN DISTRIBUTED TO BE INSTALLED AS IS * COMMENT: IN A CICS 4.1 ENVIRONMENT. COMMENTS HAVE BEEN PLACED IN THE * COMMENT: RDO INDICATING PARAMETERS THAT HAVE BEEN ADDED FOR * COMMENT: CICS/TS 1.1 (*TS11) AND CICS TS/1.3 (*TS13). PLEASE REVIEW * COMMENT: THE AFFECTED PARAMETERS AND UPDATE THE RDO AS NEEDED FOR * COMMENT: YOUR SPECIFIC CICS ENVIRONMENT. * COMMENT: * COMMENT: FOR CICS V4R1, CICS/TS 1.1 AND CICS/TS 1.2: * COMMENT: INCLUDE GROUPS DFH$WBSN, DFHWEB AND DFHWEBF * COMMENT: * COMMENT: FOR CICS/TS 1.3: * COMMENT: INCLUDE GROUPS DFH$WBSN, DFHWEB AND DFH$SOT * COMMENT: * COMMENT: PLEASE UNCOMMENT THE DEFINE PROGRAM MACROS FOR IODXFLDQ AND * COMMENT: IODXDOCG, IF YOU DO NOT HAVE THE OD/390 V2 SERVER FEATURE * COMMENT: INSTALLED. * COMMENT: * COMMENT: MODIFY THE PROGRAM DEFINITION FOR IODXDOCG TO EXECKEY(CICS) * COMMENT: IF YOUR ONDEMAND INSTALLATION USES MVS COMPRESSION SERVICES. * COMMENT: DEFINE PROGRAM(IODWWB00) GROUP(IODWEB) DESCRIPTION(OD/390 WEB ANALYZER) LANGUAGE(ASSEMBLER) RELOAD(NO) RESIDENT(NO) USAGE(NORMAL) USELPACOPY(NO) STATUS(ENABLED) CEDF(YES) DATALOCATION(ANY) EXECKEY(CICS) EXECUTIONSET(FULLAPI) *TS13 DYNAMIC(NO) CONCURRENCY(QUASIRENT) JVM(NO) DEFINE PROGRAM(IODWWB01) GROUP(IODWEB) DESCRIPTION(OD/390 WEB FOLDER LIST) LANGUAGE(COBOL) RELOAD(NO) RESIDENT(NO) USAGE(NORMAL) USELPACOPY(NO) STATUS(ENABLED) CEDF(YES) DATALOCATION(ANY) EXECKEY(USER) EXECUTIONSET(FULLAPI) *TS13 DYNAMIC(NO) CONCURRENCY(QUASIRENT) JVM(NO) DEFINE PROGRAM(IODWWB02) GROUP(IODWEB) DESCRIPTION(OD/390 WEB DIRECTORY SEARCH) LANGUAGE(COBOL) RELOAD(NO) RESIDENT(NO) USAGE(NORMAL) USELPACOPY(NO) STATUS(ENABLED) CEDF(YES) DATALOCATION(ANY) EXECKEY(USER) EXECUTIONSET(FULLAPI) *TS13 DYNAMIC(NO) CONCURRENCY(QUASIRENT) JVM(NO) DEFINE PROGRAM(IODWWB03) GROUP(IODWEB) DESCRIPTION(OD/390 WEB SEARCH RESULTS LIST) LANGUAGE(COBOL) RELOAD(NO) RESIDENT(NO) USAGE(NORMAL) USELPACOPY(NO) STATUS(ENABLED) CEDF(YES) DATALOCATION(ANY) EXECKEY(USER) EXECUTIONSET(FULLAPI) *TS13 DYNAMIC(NO) CONCURRENCY(QUASIRENT) JVM(NO) DEFINE PROGRAM(IODWWB04) GROUP(IODWEB) DESCRIPTION(OD/390 WEB VIEW DOCUMENT - BINARY) LANGUAGE(COBOL) RELOAD(NO) RESIDENT(NO) USAGE(NORMAL) USELPACOPY(NO) STATUS(ENABLED) CEDF(YES) DATALOCATION(ANY) EXECKEY(CICS) EXECUTIONSET(FULLAPI) *TS13 DYNAMIC(NO) CONCURRENCY(QUASIRENT) JVM(NO) DEFINE PROGRAM(IODWWB05) GROUP(IODWEB) DESCRIPTION(OD/390 WEB VIEW DOCUMENT - TEXT) LANGUAGE(COBOL) RELOAD(NO) RESIDENT(NO) USAGE(NORMAL) USELPACOPY(NO) STATUS(ENABLED) CEDF(YES) DATALOCATION(ANY) EXECKEY(CICS) EXECUTIONSET(FULLAPI) *TS13 DYNAMIC(NO) CONCURRENCY(QUASIRENT) JVM(NO) DEFINE PROGRAM(IODWWB06) GROUP(IODWEB) DESCRIPTION(OD/390 WEB HOST PRINT) LANGUAGE(COBOL) RELOAD(NO) RESIDENT(NO) USAGE(NORMAL) USELPACOPY(NO) STATUS(ENABLED) CEDF(YES) DATALOCATION(ANY) EXECKEY(USER) EXECUTIONSET(FULLAPI) *TS13 DYNAMIC(NO) CONCURRENCY(QUASIRENT) JVM(NO) DEFINE PROGRAM(IODWWB07) GROUP(IODWEB) DESCRIPTION(OD/390 WEB ANNOTATIONS) LANGUAGE(COBOL) RELOAD(NO) RESIDENT(NO) USAGE(NORMAL) USELPACOPY(NO) STATUS(ENABLED) CEDF(YES) DATALOCATION(ANY) EXECKEY(USER) EXECUTIONSET(FULLAPI) *TS13 DYNAMIC(NO) CONCURRENCY(QUASIRENT) JVM(NO) DEFINE PROGRAM(IODWWB0A) GROUP(IODWEB) DESCRIPTION(OD/390 WEB LAUNCH DOCUMENT) LANGUAGE(COBOL) RELOAD(NO) RESIDENT(NO) USAGE(NORMAL) USELPACOPY(NO) STATUS(ENABLED) CEDF(YES) DATALOCATION(ANY) EXECKEY(USER) EXECUTIONSET(FULLAPI) *TS13 DYNAMIC(NO) CONCURRENCY(QUASIRENT) JVM(NO) DEFINE PROGRAM(IODWWB53) GROUP(IODWEB) DESCRIPTION(OD/390 WEB API - SEARCH RESULTS LIST) LANGUAGE(COBOL) RELOAD(NO) RESIDENT(NO) USAGE(NORMAL) USELPACOPY(NO) STATUS(ENABLED) CEDF(YES) DATALOCATION(ANY) EXECKEY(USER) EXECUTIONSET(FULLAPI) *TS13 DYNAMIC(NO) CONCURRENCY(QUASIRENT) JVM(NO) DEFINE PROGRAM(IODWWB54) GROUP(IODWEB) DESCRIPTION(OD/390 WEB API - VIEW DOCUMENT - BINARY) LANGUAGE(COBOL) RELOAD(NO) RESIDENT(NO) USAGE(NORMAL) USELPACOPY(NO) STATUS(ENABLED) CEDF(YES) DATALOCATION(ANY) EXECKEY(USER) EXECUTIONSET(FULLAPI) *TS13 DYNAMIC(NO) CONCURRENCY(QUASIRENT) JVM(NO) DEFINE PROGRAM(IODWWB55) GROUP(IODWEB) DESCRIPTION(OD/390 WEB API - VIEW DOCUMENT - TEXT) LANGUAGE(COBOL) RELOAD(NO) RESIDENT(NO) USAGE(NORMAL) USELPACOPY(NO) STATUS(ENABLED) CEDF(YES) DATALOCATION(ANY) EXECKEY(USER) EXECUTIONSET(FULLAPI) *TS13 DYNAMIC(NO) CONCURRENCY(QUASIRENT) JVM(NO) DEFINE PROGRAM(IODWWBCV) GROUP(IODWEB) DESCRIPTION(OD/390 WEB CONVERTER TO ENCODE APPLICATION COMMAREA) LANGUAGE(COBOL) RELOAD(NO) RESIDENT(NO) USAGE(NORMAL) USELPACOPY(NO) STATUS(ENABLED) CEDF(YES) DATALOCATION(BELOW) EXECKEY(USER) EXECUTIONSET(FULLAPI) *TS13 DYNAMIC(NO) CONCURRENCY(QUASIRENT) JVM(NO) DEFINE PROGRAM(IODWWBSC) GROUP(IODWEB) DESCRIPTION(OD/390 WEB SECURITY CONVERTER) LANGUAGE(ASSEMBLER) RELOAD(NO) RESIDENT(NO) USAGE(NORMAL) USELPACOPY(NO) STATUS(ENABLED) CEDF(YES) DATALOCATION(BELOW) EXECKEY(CICS) EXECUTIONSET(FULLAPI) *TS13 DYNAMIC(NO) CONCURRENCY(QUASIRENT) JVM(NO) DEFINE PROGRAM(IODWWBSN) GROUP(IODWEB) DESCRIPTION(OD/390 WEB SIGNON) LANGUAGE(COBOL) RELOAD(NO) RESIDENT(NO) USAGE(NORMAL) USELPACOPY(NO) STATUS(ENABLED) CEDF(YES) DATALOCATION(BELOW) EXECKEY(CICS) EXECUTIONSET(FULLAPI) *TS13 DYNAMIC(NO) CONCURRENCY(QUASIRENT) JVM(NO) DEFINE PROGRAM(IODWWBSS) GROUP(IODWEB) DESCRIPTION(OD/390 WEB API - SIGNON) LANGUAGE(COBOL) RELOAD(NO) RESIDENT(NO) USAGE(NORMAL) USELPACOPY(NO) STATUS(ENABLED) CEDF(YES) DATALOCATION(BELOW) EXECKEY(CICS) EXECUTIONSET(FULLAPI) *TS13 DYNAMIC(NO) CONCURRENCY(QUASIRENT) JVM(NO) DEFINE PROGRAM(IODICWBC) GROUP(IODWEB) DESCRIPTION(OD/390 WEB SERVER STARTUP - CICS 4.1, TS 1.1, TS 1.2) LANGUAGE(COBOL) RELOAD(NO) RESIDENT(NO) USAGE(NORMAL) USELPACOPY(NO) STATUS(ENABLED) CEDF(YES) DATALOCATION(ANY) EXECKEY(CICS) EXECUTIONSET(FULLAPI) *DEFINE PROGRAM(IODXFLDQ) GROUP(IODWEB) * DESCRIPTION(OD/390 WEB SERVER FOLDER QUERY) * LANGUAGE(COBOL) RELOAD(NO) RESIDENT(NO) USAGE(NORMAL) * USELPACOPY(NO) STATUS(ENABLED) CEDF(YES) DATALOCATION(ANY) * EXECKEY(USER) EXECUTIONSET(FULLAPI) **TS13 DYNAMIC(NO) CONCURRENCY(QUASIRENT) JVM(NO) *DEFINE PROGRAM(IODXDOCG) GROUP(IODWEB) * DESCRIPTION(OD/390 WEB SERVER GET DOCUMENT) * LANGUAGE(COBOL) RELOAD(NO) RESIDENT(NO) USAGE(NORMAL) * USELPACOPY(NO) STATUS(ENABLED) CEDF(YES) DATALOCATION(ANY) * EXECKEY(USER) EXECUTIONSET(FULLAPI) **TS13 DYNAMIC(NO) CONCURRENCY(QUASIRENT) JVM(NO) DEFINE TRANSACTION(WB01) GROUP(IODWEB) DESCRIPTION(OD/390 WEB FOLDER LIST) PROGRAM(DFHWBA) TWASIZE(0) PROFILE(DFHCICST) STATUS(ENABLED) TASKDATALOC(ANY) TASKDATAKEY(USER) STORAGECLEAR(NO) RUNAWAY(SYSTEM) SHUTDOWN(ENABLED) DYNAMIC(NO) ISOLATE(YES) PRIORITY(1) TRANCLASS(DFHTCL00) DTIMOUT(NO) RESTART(NO) SPURGE(NO) TPURGE(NO) DUMP(YES) TRACE(YES) RESSEC(NO) CONFDATA(NO) CMDSEC(NO) *TS11 ACTION(BACKOUT) WAIT(YES) WAITTIME(0,0,0) *TS13 ROUTABLE(NO) DEFINE TRANSACTION(WB02) GROUP(IODWEB) DESCRIPTION(OD/390 WEB DIRECTORY SEARCH) PROGRAM(DFHWBA) TWASIZE(0) PROFILE(DFHCICST) STATUS(ENABLED) TASKDATALOC(ANY) TASKDATAKEY(USER) STORAGECLEAR(NO) RUNAWAY(SYSTEM) SHUTDOWN(ENABLED) DYNAMIC(NO) ISOLATE(YES) PRIORITY(1) TRANCLASS(DFHTCL00) DTIMOUT(NO) RESTART(NO) SPURGE(NO) TPURGE(NO) DUMP(YES) TRACE(YES) RESSEC(NO) CONFDATA(NO) CMDSEC(NO) *TS11 ACTION(BACKOUT) WAIT(YES) WAITTIME(0,0,0) *TS13 ROUTABLE(NO) DEFINE TRANSACTION(WB03) GROUP(IODWEB) DESCRIPTION(OD/390 WEB SEARCH RESULTS LIST) PROGRAM(DFHWBA) TWASIZE(0) PROFILE(DFHCICST) STATUS(ENABLED) TASKDATALOC(ANY) TASKDATAKEY(USER) STORAGECLEAR(NO) RUNAWAY(SYSTEM) SHUTDOWN(ENABLED) DYNAMIC(NO) ISOLATE(YES) PRIORITY(1) TRANCLASS(DFHTCL00) DTIMOUT(NO) RESTART(NO) SPURGE(NO) TPURGE(NO) DUMP(YES) TRACE(YES) RESSEC(NO) CONFDATA(NO) CMDSEC(NO) *TS11 ACTION(BACKOUT) WAIT(YES) WAITTIME(0,0,0) *TS13 ROUTABLE(NO) DEFINE TRANSACTION(WB04) GROUP(IODWEB) DESCRIPTION(OD/390 WEB VIEW DOCUMENT - BINARY) PROGRAM(DFHWBA) TWASIZE(0) PROFILE(DFHCICST) STATUS(ENABLED) TASKDATALOC(ANY) TASKDATAKEY(USER) STORAGECLEAR(NO) RUNAWAY(SYSTEM) SHUTDOWN(ENABLED) DYNAMIC(NO) ISOLATE(YES) PRIORITY(1) TRANCLASS(DFHTCL00) DTIMOUT(NO) RESTART(NO) SPURGE(NO) TPURGE(NO) DUMP(YES) TRACE(YES) RESSEC(NO) CONFDATA(NO) CMDSEC(NO) *TS11 ACTION(BACKOUT) WAIT(YES) WAITTIME(0,0,0) *TS13 ROUTABLE(NO) DEFINE TRANSACTION(WB05) GROUP(IODWEB) DESCRIPTION(OD/390 WEB VIEW DOCUMENT - TEXT) PROGRAM(DFHWBA) TWASIZE(0) PROFILE(DFHCICST) STATUS(ENABLED) TASKDATALOC(ANY) TASKDATAKEY(USER) STORAGECLEAR(NO) RUNAWAY(SYSTEM) SHUTDOWN(ENABLED) DYNAMIC(NO) ISOLATE(YES) PRIORITY(1) TRANCLASS(DFHTCL00) DTIMOUT(NO) RESTART(NO) SPURGE(NO) TPURGE(NO) DUMP(YES) TRACE(YES) RESSEC(NO) CONFDATA(NO) CMDSEC(NO) *TS11 ACTION(BACKOUT) WAIT(YES) WAITTIME(0,0,0) *TS13 ROUTABLE(NO) DEFINE TRANSACTION(WB06) GROUP(IODWEB) DESCRIPTION(OD/390 WEB HOST PRINT) PROGRAM(DFHWBA) TWASIZE(0) PROFILE(DFHCICST) STATUS(ENABLED) TASKDATALOC(ANY) TASKDATAKEY(USER) STORAGECLEAR(NO) RUNAWAY(SYSTEM) SHUTDOWN(ENABLED) DYNAMIC(NO) ISOLATE(YES) PRIORITY(1) TRANCLASS(DFHTCL00) DTIMOUT(NO) RESTART(NO) SPURGE(NO) TPURGE(NO) DUMP(YES) TRACE(YES) RESSEC(NO) CONFDATA(NO) CMDSEC(NO) *TS11 ACTION(BACKOUT) WAIT(YES) WAITTIME(0,0,0) *TS13 ROUTABLE(NO) DEFINE TRANSACTION(WB07) GROUP(IODWEB) DESCRIPTION(OD/390 WEB ANNOTATIONS) PROGRAM(DFHWBA) TWASIZE(0) PROFILE(DFHCICST) STATUS(ENABLED) TASKDATALOC(ANY) TASKDATAKEY(USER) STORAGECLEAR(NO) RUNAWAY(SYSTEM) SHUTDOWN(ENABLED) DYNAMIC(NO) ISOLATE(YES) PRIORITY(1) TRANCLASS(DFHTCL00) DTIMOUT(NO) RESTART(NO) SPURGE(NO) TPURGE(NO) DUMP(YES) TRACE(YES) RESSEC(NO) CONFDATA(NO) CMDSEC(NO) *TS11 ACTION(BACKOUT) WAIT(YES) WAITTIME(0,0,0) *TS13 ROUTABLE(NO) DEFINE TRANSACTION(WB0A) GROUP(IODWEB) DESCRIPTION(OD/390 WEB LAUNCH DOCUMENT) PROGRAM(DFHWBA) TWASIZE(0) PROFILE(DFHCICST) STATUS(ENABLED) TASKDATALOC(ANY) TASKDATAKEY(USER) STORAGECLEAR(NO) RUNAWAY(SYSTEM) SHUTDOWN(ENABLED) DYNAMIC(NO) ISOLATE(YES) PRIORITY(1) TRANCLASS(DFHTCL00) DTIMOUT(NO) RESTART(NO) SPURGE(NO) TPURGE(NO) DUMP(YES) TRACE(YES) RESSEC(NO) CONFDATA(NO) CMDSEC(NO) *TS11 ACTION(BACKOUT) WAIT(YES) WAITTIME(0,0,0) *TS13 ROUTABLE(NO) DEFINE TRANSACTION(WB53) GROUP(IODWEB) DESCRIPTION(OD/390 WEB API - SEARCH RESULTS LIST) PROGRAM(DFHWBA) TWASIZE(0) PROFILE(DFHCICST) STATUS(ENABLED) TASKDATALOC(ANY) TASKDATAKEY(USER) STORAGECLEAR(NO) RUNAWAY(SYSTEM) SHUTDOWN(ENABLED) DYNAMIC(NO) ISOLATE(YES) PRIORITY(1) TRANCLASS(DFHTCL00) DTIMOUT(NO) RESTART(NO) SPURGE(NO) TPURGE(NO) DUMP(YES) TRACE(YES) RESSEC(NO) CONFDATA(NO) CMDSEC(NO) *TS11 ACTION(BACKOUT) WAIT(YES) WAITTIME(0,0,0) *TS13 ROUTABLE(NO) DEFINE TRANSACTION(WB54) GROUP(IODWEB) DESCRIPTION(OD/390 WEB API - VIEW DOCUMENT - BINARY) PROGRAM(DFHWBA) TWASIZE(0) PROFILE(DFHCICST) STATUS(ENABLED) TASKDATALOC(ANY) TASKDATAKEY(USER) STORAGECLEAR(NO) RUNAWAY(SYSTEM) SHUTDOWN(ENABLED) DYNAMIC(NO) ISOLATE(YES) PRIORITY(1) TRANCLASS(DFHTCL00) DTIMOUT(NO) RESTART(NO) SPURGE(NO) TPURGE(NO) DUMP(YES) TRACE(YES) RESSEC(NO) CONFDATA(NO) CMDSEC(NO) *TS11 ACTION(BACKOUT) WAIT(YES) WAITTIME(0,0,0) *TS13 ROUTABLE(NO) DEFINE TRANSACTION(WB55) GROUP(IODWEB) DESCRIPTION(OD/390 WEB API - VIEW DOCUMENT - TEXT) PROGRAM(DFHWBA) TWASIZE(0) PROFILE(DFHCICST) STATUS(ENABLED) TASKDATALOC(ANY) TASKDATAKEY(USER) STORAGECLEAR(NO) RUNAWAY(SYSTEM) SHUTDOWN(ENABLED) DYNAMIC(NO) ISOLATE(YES) PRIORITY(1) TRANCLASS(DFHTCL00) DTIMOUT(NO) RESTART(NO) SPURGE(NO) TPURGE(NO) DUMP(YES) TRACE(YES) RESSEC(NO) CONFDATA(NO) CMDSEC(NO) *TS11 ACTION(BACKOUT) WAIT(YES) WAITTIME(0,0,0) *TS13 ROUTABLE(NO)
The following CICS TCPIPSERVICE definition can be found in the IODTCP4 member of the JCL library.
* COMMENT: OD/390 V2 INTERNET ACCESS FEATURE * COMMENT: * COMMENT: TCPIPSERVICE RESOURCE DEFINITION FOR CICS/TS 1.3 ENVIRONMENT * COMMENT: * COMMENT: THE FOLLOWING RDO DEFINITION IS PROVIDED TO ENABLE THE * COMMENT: CICS WEB SERVER INTERFACE TO BE USED BY THE OD/390 * COMMENT: INTERNET ACCESS FEATURE. * COMMENT: * COMMENT: YOU WILL NEED TO CUSTOMIZE THE PORTNUMBER PARAMETER TO * COMMENT: CONFORM TO YOUR SYSTEM CONFIGURATION. * COMMENT: DEFINE TCPIPSERVICE(HTTPNSSL) GROUP(IODTCPWB) DESCRIPTION(OD/390 CICS WEB TCPIPSERVICE WITH NO SSL SUPPORT) URM(IODWWB00) PORTNUMBER(3252) STATUS(OPEN) SSL(NO) TRANSACTION(CWXN) BACKLOG(5) SOCKETCLOSE(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 ***********************************************************************