[Contents] [Previous] [Next]

Appendix C. CICS Resource Defintions


OD/390 Internet Access Feature CICS DB2 Resources - CICS/ESA V4R1 and CICS/TS V1R1

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)                                                   

OD/390 Internet Access Feature CICS DB2 Resources - CICS/TS V1R2 and CICS/TS V1R3

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

OD/390 Internet Access Feature CICS Web Interface Definition

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)                     

OD/390 Internet Access Feature CICS PLT Entries

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