DSN8FRDO
ADDS RDO DEFINITIONS FOR Db2 SAMPLE PROGRAMS TO THE CICS® CSD.
********************************************************************** 00000100
* * 00000200
* MODULE NAME = DSN8FRDO * 00000300
* * 00000400
* DESCRIPTIVE NAME = CICS RDO ADDITIONAL ENTRIES FOR THE SAMPLE. * 00000500
* * 00000600
* LICENSED MATERIALS - PROPERTY OF IBM * 00000700
* 5645-DB2 * 00000800
* (C) COPYRIGHT 1995, 1998 IBM CORP. ALL RIGHTS RESERVED. * 00000900
* * 00001000
* STATUS = VERSION 6 * 00001100
* * 00001200
* FUNCTION = * 00001300
* ADDS RDO DEFINITIONS FOR DB2 SAMPLE PROGRAMS TO THE CICS CSD. * 00001400
* * 00001500
* NOTES = * 00001600
* DEPENDENCIES = REQUIRED FOR CICS TS 1.1 AND PRIOR RELEASES * 00001700
* * 00001800
* RESTRICTIONS = NONE * 00001900
* * 00002000
* REGISTER CONVENTIONS = NONE, NO EXECUTABLE CODE * 00002100
* * 00002200
* PREPARATION: * 00002300
* (1) CHANGE ALL OCCURRENCES OF THE STRING '?DB2SAMP?' TO THE * 00002400
* NAME OF YOUR CICS CSD GROUP FOR CICS-DB2 SAMPLES. * 00002500
* (2) IF YOUR CICS-DB2 SAMPLES GROUP IS ALREADY DEFINED TO * 00002600
* CICS, DELETE THE 'ADD GROUP' STATEMENT BELOW. * 00002700
* OR, IF YOUR CICS-DB2 SAMPLES GROUP IS NOT YET DEFINED TO * 00002800
* CICS, CHANGE ALL OCCURRENCES OF THE STRING '?DSNLIST?' * 00002900
* TO THE NAME OF THE CICS RDO GROUP LIST YOU WANT THIS * 00003000
* GROUP DEFINED IN. * 00003010
* (3) SAVE CHANGES TO DSN8FRDO. * 00003100
* (4) UNCOMMENT STEPS PH05AS04 - PH05AS08 OF IVP JOB DSNTEJ5A * 00003200
* AND RUN DSNTEJ5A. * 00003300
* * 00003400
* PSEUDOCODE = * 00004000
* THIS MODULE CONTAINS NO EXECUTABLE CODE. * 00004100
* * 00004200
********************************************************************** 00004300
ADD GROUP(?DB2SAMP?) LIST(?DSNLIST?) 00004400
* 00004500
* DB2 SAMPLE TRANSACTIONS 00004600
* 00004700
DEFINE TRANSACTION(D8PS) GROUP(?DB2SAMP?) PROGRAM(DSN8CP0) 00004800
DEFINE TRANSACTION(D8PP) GROUP(?DB2SAMP?) PROGRAM(DSN8CP6) 00004900
DEFINE TRANSACTION(D8CS) GROUP(?DB2SAMP?) PROGRAM(DSN8CC0) 00005000
DEFINE TRANSACTION(D8PT) GROUP(?DB2SAMP?) PROGRAM(DSN8CP3) 00005100
DEFINE TRANSACTION(D8PU) GROUP(?DB2SAMP?) PROGRAM(DSN8CP3) 00005200
* 00005300
* DB2 SAMPLE MAPSETS 00005400
* 00005500
DEFINE MAPSET(DSN8CCD) GROUP(?DB2SAMP?) 00005600
DEFINE MAPSET(DSN8CCG) GROUP(?DB2SAMP?) 00005700
DEFINE MAPSET(DSN8CPD) GROUP(?DB2SAMP?) 00005800
DEFINE MAPSET(DSN8CPE) GROUP(?DB2SAMP?) 00005900
DEFINE MAPSET(DSN8CPF) GROUP(?DB2SAMP?) 00006000
DEFINE MAPSET(DSN8CPG) GROUP(?DB2SAMP?) 00006100
DEFINE MAPSET(DSN8CPL) GROUP(?DB2SAMP?) 00006200
DEFINE MAPSET(DSN8CPN) GROUP(?DB2SAMP?) 00006300
DEFINE MAPSET(DSN8CPU) GROUP(?DB2SAMP?) 00006400
* 00006500
* DB2 SAMPLE PROGRAMS 00006600
* 00006700
DEFINE PROGRAM(DSN8CC0) GROUP(?DB2SAMP?) LANGUAGE(COBOL) 00006800
DEFINE PROGRAM(DSN8CC1) GROUP(?DB2SAMP?) LANGUAGE(COBOL) 00006900
DEFINE PROGRAM(DSN8CC2) GROUP(?DB2SAMP?) LANGUAGE(COBOL) 00007000
DEFINE PROGRAM(DSN8CP0) GROUP(?DB2SAMP?) LANGUAGE(PLI) 00007100
DEFINE PROGRAM(DSN8CP1) GROUP(?DB2SAMP?) LANGUAGE(PLI) 00007200
DEFINE PROGRAM(DSN8CP2) GROUP(?DB2SAMP?) LANGUAGE(PLI) 00007300
DEFINE PROGRAM(DSN8CP3) GROUP(?DB2SAMP?) LANGUAGE(PLI) 00007400
DEFINE PROGRAM(DSN8CP6) GROUP(?DB2SAMP?) LANGUAGE(PLI) 00007500
DEFINE PROGRAM(DSN8CP7) GROUP(?DB2SAMP?) LANGUAGE(PLI) 00007600
DEFINE PROGRAM(DSN8CP8) GROUP(?DB2SAMP?) LANGUAGE(PLI) 00007700
* 00007800
* MESSAGE FORMATTER PROGRAMS 00007900
* 00008000
DEFINE PROGRAM(DSNTIAC) GROUP(?DB2SAMP?) LANGUAGE(ASSEMBLER) 00008100
DEFINE PROGRAM(DSNTIA1) GROUP(?DB2SAMP?) LANGUAGE(ASSEMBLER) 00008200