[Contents] [Previous] [Next]

Appendix C. CICS Resource Defintions


OD/390 Internet Access Feature DB2 Resources

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)                                                   

CICS Table Definitions

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
 ***********************************************************************


[Contents] [Previous] [Next]

Copyright © IBM Corporation - 1998, 2000