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. Please review the comments at the top of this member before proceeding.
* COMMENT: OD/390 V2 INTERNET ACCESS FEATURE CICS DB2 RESOURCES * COMMENT: * COMMENT: V2R1MF * COMMENT: - THE BTSQ AND ODCU RESOURCE DEFINITIONS HAVE BEEN ADDED * COMMENT: FOR THIS RELEASE. * COMMENT: - THE WB0A RESOURCE DEFINITION HAS BEEN REMOVED FOR THIS * COMMENT: RELEASE * COMMENT: - BOTH THE TRANSACTION IDENTIFIERS AND PLAN NAMES MAY BE * COMMENT: CUSTOMIZED TO CONFORM TO LOCAL STANDARDS. ********************************************************************** ** START OF OD/390 INTERNET ACCESS FEATURE ENTRIES ********************************************************************** 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=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) DSNCRCT TYPE=ENTRY,TXID=BTSQ,THRDM=3,THRDA=1,PLAN=ODABTSQ, X TWAIT=POOL,AUTH=(USERID) DSNCRCT TYPE=ENTRY,TXID=ODCU,THRDM=3,THRDA=1,PLAN=ODAODCU, 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: * COMMENT: * COMMENT: V2R1MF: * COMMENT: - THE ODCU AND BTSQ DB2ENTRY AND DB2TRAN RESOURCE * COMMENT: DEFINITIONS HAVE BEEN ADDED FOR THIS RELEASE. * COMMENT: - THE WB0A DB2ENTRY AND DB2TRAN RESOURCE * COMMENT: DEFINITIONS HAVE BEEN REMOVED FOR THIS RELEASE. * COMMENT: - BOTH THE TRANSACTION IDENTIFIERS AND PLAN NAMES * COMMENT: MAY BE CUSTOMIZED TO CONFORM TO LOCAL STANDARDS. * COMMENT: DEFINE DB2ENTRY(ODCU) GROUP(IODRCTWB) DESCRIPTION(OD/390 WEB CONCURRENT USERS) ACCOUNTREC(TXID) AUTHTYPE(USERID) PLAN(ODAODCU) DROLLBACK(YES) PROTECTNUM(0) THREADLIMIT(1) THREADWAIT(POOL) DEFINE DB2ENTRY(BTSQ) GROUP(IODRCTWB) DESCRIPTION(OD/390 WEB SDT TSQ BUILD) ACCOUNTREC(TXID) AUTHTYPE(USERID) PLAN(ODABTSQ) DROLLBACK(YES) PROTECTNUM(0) THREADLIMIT(1) THREADWAIT(POOL) 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(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(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) DEFINE DB2TRAN(BTSQ) GROUP(IODRCTWB) DESCRIPTION(OD/390 WEB - BUILD TSQ) ENTRY(BTSQ) TRANSID(BTSQ) DEFINE DB2TRAN(ODCU) GROUP(IODRCTWB) DESCRIPTION(OD/390 WEB - CONCURRENT USERS) ENTRY(ODCU) TRANSID(ODCU)
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 (J07L211). * COMMENT: * COMMENT: CHANGE THE PROGRAM DEFINITION FOR IODXDOCG TO EXECKEY(CICS) * COMMENT: IF YOUR ONDEMAND INSTALLATION USES MVS COMPRESSION SERVICES. * COMMENT: * COMMENT: V2R1MF CHANGES * COMMENT: - THE FOLLOWING PROGRAM DEFINITIONS WERE ADDED: * COMMENT: IODCKDB2 * COMMENT: IODWBTSQ * COMMENT: IODWRTSQ * COMMENT: IODWODCU * COMMENT: IODWTOKN * COMMENT: - THE FOLLOWING TRANSACTION DEFINITIONS WERE ADDED: * COMMENT: BTSQ * COMMENT: ODCU * COMMENT: - ALL TRANSACTION NAMES MAY BE CUSTOMIZED TO CONFROM * COMMENT: TO LOCAL STANDARDS. * COMMENT: - PROGRAM IODWRTSQ NEEDS TO BE DEFINED AS EXECKEY(CICS) * COMMENT: TO ALLOW THE PROGRAM TO RETURN THE WEB TSQ VALUE TO THE * COMMENT: ONDEMAND ANALYZER * COMMENT: DEFINE PROGRAM(IODCKDB2) GROUP(IODWEB) DESCRIPTION(OD/390 CHECK FOR DB2 ENABLED) 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(IODWBTSQ) GROUP(IODWEB) DESCRIPTION(OD/390 WEB SDT TSQ BUILD) 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) * PROGRAM IODWRTSQ NEEDS EXECKEY CICS SO IT CAN RETURN THE * WEB TSQ VALUES TO THE ANALYZER DEFINE PROGRAM(IODWRTSQ) GROUP(IODWEB) DESCRIPTION(OD/390 WEB SDT TSQ READ) 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(IODWODCU) GROUP(IODWEB) DESCRIPTION(OD/390 WEB CONCURRENT USERS) 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(IODWTOKN) GROUP(IODWEB) DESCRIPTION(OD/390 WEB EXPIRE TOKEN) LANGUAGE(ASSEMBLER) 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(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(BTSQ) GROUP(IODWEB) DESCRIPTION(OD/390 WEB SDT TSQ BUILD) PROGRAM(IODWBTSQ) 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(ODCU) GROUP(IODWEB) DESCRIPTION(OD/390 WEB CONCURRENT USERS) PROGRAM(IODWODCU) 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(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 IODPLTPI 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 ***********************************************************************
The following CICS resource definitions must be added to your local CICS Destination Control Table. The ODCU definition can be found in the IODDCT4 member of the WEBSAMP library. This entry is required to support concurrent user counting by the OD/390 Internet Access Feature. The CWBO definition is distributed with the CICS Web Interface Feature and is listed here for information purposes.
*********************************************************************** * OD/390 INTERNET ACCESS FEATURE CONCURRENT USER QUEUE * *********************************************************************** ODCU DFHDCT TYPE=INTRA, X DESTID=ODCU, X DESTFAC=FILE, NO TERMINAL REQUIRED X TRANSID=ODCU, X TRIGLEV=0, NO TRIGGER X DESTRCV=PH *********************************************************************** * SDSCI ENTRY FOR WEB INTERFACE * *********************************************************************** DFHDCT TYPE=SDSCI,DSCNAME=CWBO, X RECFORM=VARUNB, X RECSIZE=133, X BLKSIZE=137, X TYPEFLE=OUTPUT * *********************************************************************** * EXTRA ENTRY FOR WEB INTERFACE * *********************************************************************** DFHDCT TYPE=EXTRA, X DESTID=CWBO, X DSCNAME=CWBO *