DSNTEJ5P
THIS JCL PERFORMS THE PHASE 5 SETUP FOR THE SAMPLE APPLICATIONS AT SITES WITH PL/I.
//*********************************************************************
//* NAME = DSNTEJ5P
//*
//* DESCRIPTIVE NAME = DB2 SAMPLE APPLICATION
//* PHASE 5
//* PL/I, CICS
//*
//* Licensed Materials - Property of IBM
//* 5650-DB2
//* (C) COPYRIGHT 1982, 2016 IBM Corp. All Rights Reserved.
//*
//* STATUS = Version 12
//*
//* FUNCTION = THIS JCL PERFORMS THE PHASE 5 SETUP FOR THE SAMPLE
//* APPLICATIONS AT SITES WITH PL/I. IT PREPARES THE
//* PL/I CICS PROGRAM.
//*
//* RUN THIS JOB ANYTIME AFTER PHASE 2.
//*
//* CHANGE ACTIVITY =
//* 08/18/2014 Single-phase migration s21938_inst1 s21938
//*
//*********************************************************************
//*
//JOBLIB DD DISP=SHR,DSN=CICSTS.SDFHLOAD
// DD DISP=SHR,DSN=DSN!!0.SDSNLOAD
//*
//* STEP 1: CREATE CICS BMS LOGICAL MAPS
//PH05PS01 EXEC DFHASMVS,PARM='DECK,NOOBJECT,SYSPARM(DSECT)',
// OUTC='*'
//SYSPUNCH DD DSN=DSN!!0.SRCLIB.DATA(DSN8MPMG),
// DISP=OLD
//SYSIN DD DSN=DSN!!0.SDSNSAMP(DSN8CPG),
// DISP=SHR
//*
//* STEP 2: CREATE CICS BMS LOGICAL MAPS
//PH05PS02 EXEC DFHASMVS,PARM='DECK,NOOBJECT,SYSPARM(DSECT)',
// COND=(4,LT),OUTC='*'
//SYSPUNCH DD DSN=DSN!!0.SRCLIB.DATA(DSN8MPMD),
// DISP=OLD
//SYSIN DD DSN=DSN!!0.SDSNSAMP(DSN8CPD),
// DISP=SHR
//*
//* STEP 3: CREATE CICS BMS LOGICAL MAPS
//PH05PS03 EXEC DFHASMVS,PARM='DECK,NOOBJECT,SYSPARM(DSECT)',
// COND=(4,LT),OUTC='*'
//SYSPUNCH DD DSN=DSN!!0.SRCLIB.DATA(DSN8MPMN),
// DISP=OLD
//SYSIN DD DSN=DSN!!0.SDSNSAMP(DSN8CPN),
// DISP=SHR
//*
//* STEP 4: CREATE CICS BMS LOGICAL MAPS
//PH05PS04 EXEC DFHASMVS,PARM='DECK,NOOBJECT,SYSPARM(DSECT)',
// COND=(4,LT),OUTC='*'
//SYSPUNCH DD DSN=DSN!!0.SRCLIB.DATA(DSN8MPML),
// DISP=OLD
//SYSIN DD DSN=DSN!!0.SDSNSAMP(DSN8CPL),
// DISP=SHR
//*
//* STEP 5: CREATE CICS BMS LOGICAL MAPS
//PH05PS05 EXEC DFHASMVS,PARM='DECK,NOOBJECT,SYSPARM(DSECT)',
// COND=(4,LT),OUTC='*'
//SYSPUNCH DD DSN=DSN!!0.SRCLIB.DATA(DSN8MPMU),
// DISP=OLD
//SYSIN DD DSN=DSN!!0.SDSNSAMP(DSN8CPU),
// DISP=SHR
//*
//* STEP 6: CICS TRANSLATE FOR SQL 0 PART
//PH05PS06 EXEC PGM=DFHEPP1$,COND=(4,LT)
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSPUNCH DD DSN=&&CICSOUT0,
// DISP=(NEW,PASS),
// UNIT=SYSDA,SPACE=(400,(100,100)),
// DCB=BLKSIZE=400
//SYSIN DD DSN=DSN!!0.SDSNSAMP(DSN8CP0),
// DISP=SHR
//*
//* STEP 7: PREPARE SQL 0 PART
//PH05PS07 EXEC DSNHPLI,MEM=DSN8CP0,
// COND=(4,LT),
// PARM.PPLI='MACRO,NOSYNTAX,MDECK,NOINSOURCE,NOSOURCE',
// PARM.PC='HOST(PLI),CCSID(37),NOGRAPHIC,STDSQL(NO)',
// PARM.PLI=('NOPT,SOURCE,OBJECT,MARGINS(2,72,0)',
// 'LIMITS(EXTNAME(7)),OPTIONS','SYSTEM(CICS)'),
// PARM.LKED='NCAL'
//PPLI.SYSIN DD DSN=&&CICSOUT0,DISP=(OLD,DELETE)
//PPLI.SYSLIB DD DSN=CICSTS.SDFHPL1,
// DISP=SHR
//PC.DBRMLIB DD DSN=DSN!!0.DBRMLIB.DATA(DSN8CP0),
// DISP=SHR
//PC.SYSCIN DD DSN=&&DSNHOUT0
//PC.SYSLIB DD DSN=DSN!!0.SRCLIB.DATA,
// DISP=SHR
// DD DSN=DSN!!0.SDSNSAMP,
// DISP=SHR
//PLI.SYSIN DD DSN=&&DSNHOUT0
//LKED.SYSLMOD DD DSN=DSN!!0.RUNLIB.LOAD(DSN8CP0),
// DISP=SHR
//LKED.SYSIN DD DUMMY
//*
//* STEP 8: CICS TRANSLATE FOR SQL 1 PART
//PH05PS08 EXEC PGM=DFHEPP1$,COND=(4,LT)
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSPUNCH DD DSN=&&CICSOUT1,
// DISP=(NEW,PASS),
// UNIT=SYSDA,SPACE=(400,(100,100)),
// DCB=BLKSIZE=400
//SYSIN DD DSN=DSN!!0.SDSNSAMP(DSN8CP1),
// DISP=SHR
//*
//* STEP 9: PREPARE SQL 1 PART
//PH05PS09 EXEC DSNHPLI,MEM=DSN8CP1,
// COND=(4,LT),
// PARM.PPLI='MACRO,NOSYNTAX,MDECK,NOINSOURCE,NOSOURCE',
// PARM.PC='HOST(PLI),CCSID(37),NOGRAPHIC,STDSQL(NO)',
// PARM.PLI=('NOPT,SOURCE,OBJECT,MARGINS(2,72,0)',
// 'LIMITS(EXTNAME(7)),OPTIONS','SYSTEM(CICS)'),
// PARM.LKED='NCAL'
//PPLI.SYSIN DD DSN=&&CICSOUT1,DISP=(OLD,DELETE)
//PPLI.SYSLIB DD DSN=CICSTS.SDFHPL1,
// DISP=SHR
//PC.DBRMLIB DD DSN=DSN!!0.DBRMLIB.DATA(DSN8CP1),
// DISP=SHR
//PC.SYSCIN DD DSN=&&DSNHOUT1
//PC.SYSLIB DD DSN=DSN!!0.SRCLIB.DATA,
// DISP=SHR
// DD DSN=DSN!!0.SDSNSAMP,
// DISP=SHR
//PLI.SYSIN DD DSN=&&DSNHOUT1
//LKED.SYSLMOD DD DSN=DSN!!0.RUNLIB.LOAD(DSN8CP1),
// DISP=SHR
//LKED.SYSIN DD DUMMY
//*
//* STEP 10: CICS TRANSLATE FOR SQL 2 PART
//PH05PS10 EXEC PGM=DFHEPP1$,COND=(4,LT)
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSPUNCH DD DSN=&&CICSOUT2,
// DISP=(NEW,PASS),
// UNIT=SYSDA,SPACE=(400,(100,100)),
// DCB=BLKSIZE=400
//SYSIN DD DSN=DSN!!0.SDSNSAMP(DSN8CP2),
// DISP=SHR
//*
//* STEP 11: PREPARE SQL 2 PART
//PH05PS11 EXEC DSNHPLI,MEM=DSN8CP2,
// COND=(4,LT),
// PARM.PPLI='MACRO,NOSYNTAX,MDECK,NOINSOURCE,NOSOURCE',
// PARM.PC='HOST(PLI),CCSID(37),NOGRAPHIC,STDSQL(NO)',
// PARM.PLI=('NOPT,SOURCE,OBJECT,MARGINS(2,72,0)',
// 'LIMITS(EXTNAME(7)),OPTIONS','SYSTEM(CICS)'),
// PARM.LKED='NCAL'
//PPLI.SYSIN DD DSN=&&CICSOUT2,DISP=(OLD,DELETE)
//PPLI.SYSLIB DD DSN=CICSTS.SDFHPL1,
// DISP=SHR
//PC.DBRMLIB DD DSN=DSN!!0.DBRMLIB.DATA(DSN8CP2),
// DISP=SHR
//PC.SYSCIN DD DSN=&&DSNHOUT2
//PC.SYSLIB DD DSN=DSN!!0.SRCLIB.DATA,
// DISP=SHR
// DD DSN=DSN!!0.SDSNSAMP,
// DISP=SHR
//PLI.SYSIN DD DSN=&&DSNHOUT2
//LKED.SYSLMOD DD DSN=DSN!!0.RUNLIB.LOAD(DSN8CP2),
// DISP=SHR
//LKED.SYSIN DD DUMMY
//*
//* STEP 12: CICS TRANSLATE FOR TELEPHONE APPLICATION
//PH05PS12 EXEC PGM=DFHEPP1$,COND=(4,LT)
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSPUNCH DD DSN=&&CICSOUT3,
// DISP=(NEW,PASS),
// UNIT=SYSDA,SPACE=(400,(100,100)),
// DCB=BLKSIZE=400
//SYSIN DD DSN=DSN!!0.SDSNSAMP(DSN8CP3),
// DISP=SHR
//*
//* STEP 13: PREPARE TELEPHONE APPLICATION
//PH05PS13 EXEC DSNHPLI,MEM=DSN8CP3,
// COND=(4,LT),
// PARM.PPLI='MACRO,NOSYNTAX,MDECK,NOINSOURCE,NOSOURCE',
// PARM.PC='HOST(PLI),CCSID(37),NOGRAPHIC,STDSQL(NO)',
// PARM.PLI=('NOPT,SOURCE,OBJECT,MARGINS(2,72,0)',
// 'LIMITS(EXTNAME(7)),OPTIONS','SYSTEM(CICS)'),
// PARM.LKED='NCAL'
//PPLI.SYSIN DD DSN=&&CICSOUT3,DISP=(OLD,DELETE)
//PPLI.SYSLIB DD DSN=CICSTS.SDFHPL1,
// DISP=SHR
//PC.DBRMLIB DD DSN=DSN!!0.DBRMLIB.DATA(DSN8CP3),
// DISP=SHR
//PC.SYSCIN DD DSN=&&DSNHOUT3
//PC.SYSLIB DD DSN=DSN!!0.SRCLIB.DATA,
// DISP=SHR
// DD DSN=DSN!!0.SDSNSAMP,
// DISP=SHR
//PLI.SYSIN DD DSN=&&DSNHOUT3
//LKED.SYSLMOD DD DSN=DSN!!0.RUNLIB.LOAD(DSN8CP3),
// DISP=SHR
//LKED.SYSIN DD DUMMY
//*
//* STEP 14: CREATE CICS BMS LOGICAL MAPS
//PH05PS14 EXEC DFHASMVS,PARM='DECK,NOOBJECT,SYSPARM(DSECT)',
// COND=(4,LT),OUTC='*'
//SYSPUNCH DD DSN=DSN!!0.SRCLIB.DATA(DSN8MPMF),
// DISP=OLD
//SYSIN DD DSN=DSN!!0.SDSNSAMP(DSN8CPF),
// DISP=SHR
//*
//* STEP 15: CREATE CICS BMS LOGICAL MAPS
//PH05PS15 EXEC DFHASMVS,PARM='DECK,NOOBJECT,SYSPARM(DSECT)',
// COND=(4,LT),OUTC='*'
//SYSPUNCH DD DSN=DSN!!0.SRCLIB.DATA(DSN8MPME),
// DISP=OLD
//SYSIN DD DSN=DSN!!0.SDSNSAMP(DSN8CPE),
// DISP=SHR
//*
//* STEP 16: CICS TRANSLATE FOR SQL 0 PART
//PH05PS16 EXEC PGM=DFHEPP1$,COND=(4,LT)
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSPUNCH DD DSN=&&CICSOUT6,
// DISP=(NEW,PASS),
// UNIT=SYSDA,SPACE=(400,(100,100)),
// DCB=BLKSIZE=400
//SYSIN DD DSN=DSN!!0.SDSNSAMP(DSN8CP6),
// DISP=SHR
//*
//* STEP 17: PREPARE SQL 0 PART
//PH05PS17 EXEC DSNHPLI,MEM=DSN8CP6,
// COND=(4,LT),
// PARM.PPLI='MACRO,NOSYNTAX,MDECK,NOINSOURCE,NOSOURCE',
// PARM.PC='HOST(PLI),CCSID(37),NOGRAPHIC,STDSQL(NO)',
// PARM.PLI=('NOPT,SOURCE,OBJECT,MARGINS(2,72,0)',
// 'LIMITS(EXTNAME(7)),OPTIONS','SYSTEM(CICS)'),
// PARM.LKED='NCAL'
//PPLI.SYSIN DD DSN=&&CICSOUT6,DISP=(OLD,DELETE)
//PPLI.SYSLIB DD DSN=CICSTS.SDFHPL1,
// DISP=SHR
//PC.DBRMLIB DD DSN=DSN!!0.DBRMLIB.DATA(DSN8CP6),
// DISP=SHR
//PC.SYSCIN DD DSN=&&DSNHOUT6
//PC.SYSLIB DD DSN=DSN!!0.SRCLIB.DATA,
// DISP=SHR
// DD DSN=DSN!!0.SDSNSAMP,
// DISP=SHR
//PLI.SYSIN DD DSN=&&DSNHOUT6
//LKED.SYSLMOD DD DSN=DSN!!0.RUNLIB.LOAD(DSN8CP6),
// DISP=SHR
//LKED.SYSIN DD DUMMY
//*
//* STEP 18: CICS TRANSLATE FOR SQL 1 PART
//PH05PS18 EXEC PGM=DFHEPP1$,COND=(4,LT)
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSPUNCH DD DSN=&&CICSOUT7,
// DISP=(NEW,PASS),
// UNIT=SYSDA,SPACE=(400,(100,100)),
// DCB=BLKSIZE=400
//SYSIN DD DSN=DSN!!0.SDSNSAMP(DSN8CP7),
// DISP=SHR
//*
//* STEP 19: PREPARE SQL 1 PART
//PH05PS19 EXEC DSNHPLI,MEM=DSN8CP7,
// COND=(4,LT),
// PARM.PPLI='MACRO,NOSYNTAX,MDECK,NOINSOURCE,NOSOURCE',
// PARM.PC='HOST(PLI),CCSID(37),NOGRAPHIC,STDSQL(NO)',
// PARM.PLI=('NOPT,SOURCE,OBJECT,MARGINS(2,72,0)',
// 'LIMITS(EXTNAME(7)),OPTIONS','SYSTEM(CICS)'),
// PARM.LKED='NCAL'
//PPLI.SYSIN DD DSN=&&CICSOUT7,DISP=(OLD,DELETE)
//PPLI.SYSLIB DD DSN=CICSTS.SDFHPL1,
// DISP=SHR
//PC.DBRMLIB DD DSN=DSN!!0.DBRMLIB.DATA(DSN8CP7),
// DISP=SHR
//PC.SYSCIN DD DSN=&&DSNHOUT7
//PC.SYSLIB DD DSN=DSN!!0.SRCLIB.DATA,
// DISP=SHR
// DD DSN=DSN!!0.SDSNSAMP,
// DISP=SHR
//PLI.SYSIN DD DSN=&&DSNHOUT7
//LKED.SYSLMOD DD DSN=DSN!!0.RUNLIB.LOAD(DSN8CP7),
// DISP=SHR
//LKED.SYSIN DD DUMMY
//*
//* STEP 20: CICS TRANSLATE FOR SQL 2 PART
//PH05PS20 EXEC PGM=DFHEPP1$,COND=(4,LT)
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSPUNCH DD DSN=&&CICSOUT8,
// DISP=(NEW,PASS),
// UNIT=SYSDA,SPACE=(400,(100,100)),
// DCB=BLKSIZE=400
//SYSIN DD DSN=DSN!!0.SDSNSAMP(DSN8CP8),
// DISP=SHR
//*
//* STEP 21: PREPARE SQL 2 PART
//PH05PS21 EXEC DSNHPLI,MEM=DSN8CP8,
// COND=(4,LT),
// PARM.PPLI='MACRO,NOSYNTAX,MDECK,NOINSOURCE,NOSOURCE',
// PARM.PC='HOST(PLI),CCSID(37),NOGRAPHIC,STDSQL(NO)',
// PARM.PLI=('NOPT,SOURCE,OBJECT,MARGINS(2,72,0)',
// 'LIMITS(EXTNAME(7)),OPTIONS','SYSTEM(CICS)'),
// PARM.LKED='NCAL'
//PPLI.SYSIN DD DSN=&&CICSOUT8,DISP=(OLD,DELETE)
//PPLI.SYSLIB DD DSN=CICSTS.SDFHPL1,
// DISP=SHR
//PC.DBRMLIB DD DSN=DSN!!0.DBRMLIB.DATA(DSN8CP8),
// DISP=SHR
//PC.SYSCIN DD DSN=&&DSNHOUT8
//PC.SYSLIB DD DSN=DSN!!0.SRCLIB.DATA,
// DISP=SHR
// DD DSN=DSN!!0.SDSNSAMP,
// DISP=SHR
//PLI.SYSIN DD DSN=&&DSNHOUT8
//LKED.SYSLMOD DD DSN=DSN!!0.RUNLIB.LOAD(DSN8CP8),
// DISP=SHR
//LKED.SYSIN DD DUMMY
//*
//* STEP 22: LINKEDIT PROGRAMS TOGETHER
//PH05PS22 EXEC PGM=IEWL,PARM='LIST,XREF,LET',COND=(4,LT)
//SYSLIB DD DSN=CEE.V!R!M!.SCEELKED,
// DISP=SHR
// DD DSN=DSN!!0.SDSNLOAD,
// DISP=SHR
// DD DSN=CICSTS.SDFHPL1,
// DISP=SHR
// DD DSN=CICSTS.SDFHLOAD,
// DISP=SHR
//SYSLMOD DD DSN=DSN!!0.RUNLIB.LOAD,
// DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSUT1 DD UNIT=SYSDA,SPACE=(1024,(50,50))
//SYSLIN DD *
INCLUDE SYSLIB(CEESTART)
INCLUDE SYSLIB(CEESG010)
INCLUDE SYSLIB(DFHELII)
INCLUDE SYSLIB(DSNCLI)
REPLACE PLISTART
CHANGE PLIMAIN(CEEMAIN)
INCLUDE SYSLMOD(DSN8CP0)
INCLUDE SYSLMOD(DSN8MPG)
ORDER CEESTART
ENTRY CEESTART
NAME DSN8CP0(R)
INCLUDE SYSLIB(CEESTART)
INCLUDE SYSLIB(CEESG010)
INCLUDE SYSLIB(DFHELII)
INCLUDE SYSLIB(DSNCLI)
REPLACE PLISTART
CHANGE PLIMAIN(CEEMAIN)
INCLUDE SYSLMOD(DSN8CP1)
INCLUDE SYSLMOD(DSN8MPG)
ORDER CEESTART
ENTRY CEESTART
NAME DSN8CP1(R)
INCLUDE SYSLIB(CEESTART)
INCLUDE SYSLIB(CEESG010)
INCLUDE SYSLIB(DFHELII)
INCLUDE SYSLIB(DSNCLI)
REPLACE PLISTART
CHANGE PLIMAIN(CEEMAIN)
INCLUDE SYSLMOD(DSN8CP2)
INCLUDE SYSLMOD(DSN8MPG)
ORDER CEESTART
ENTRY CEESTART
NAME DSN8CP2(R)
INCLUDE SYSLIB(CEESTART)
INCLUDE SYSLIB(CEESG010)
INCLUDE SYSLIB(DFHELII)
INCLUDE SYSLIB(DSNCLI)
REPLACE PLISTART
CHANGE PLIMAIN(CEEMAIN)
INCLUDE SYSLMOD(DSN8CP3)
INCLUDE SYSLMOD(DSN8MPG)
ORDER CEESTART
ENTRY CEESTART
NAME DSN8CP3(R)
INCLUDE SYSLIB(CEESTART)
INCLUDE SYSLIB(CEESG010)
INCLUDE SYSLIB(DFHELII)
INCLUDE SYSLIB(DSNCLI)
REPLACE PLISTART
CHANGE PLIMAIN(CEEMAIN)
INCLUDE SYSLMOD(DSN8CP6)
INCLUDE SYSLMOD(DSN8MPG)
ORDER CEESTART
ENTRY CEESTART
NAME DSN8CP6(R)
INCLUDE SYSLIB(CEESTART)
INCLUDE SYSLIB(CEESG010)
INCLUDE SYSLIB(DFHELII)
INCLUDE SYSLIB(DSNCLI)
REPLACE PLISTART
CHANGE PLIMAIN(CEEMAIN)
INCLUDE SYSLMOD(DSN8CP7)
INCLUDE SYSLMOD(DSN8MPG)
ORDER CEESTART
ENTRY CEESTART
NAME DSN8CP7(R)
INCLUDE SYSLIB(CEESTART)
INCLUDE SYSLIB(CEESG010)
INCLUDE SYSLIB(DFHELII)
INCLUDE SYSLIB(DSNCLI)
REPLACE PLISTART
CHANGE PLIMAIN(CEEMAIN)
INCLUDE SYSLMOD(DSN8CP8)
INCLUDE SYSLMOD(DSN8MPG)
ORDER CEESTART
ENTRY CEESTART
NAME DSN8CP8(R)
//*
//* STEP 23: BIND PROGRAMS
//PH05PS23 EXEC PGM=IKJEFT01,DYNAMNBR=20,COND=(4,LT)
//DBRMLIB DD DISP=SHR,DSN=DSN!!0.DBRMLIB.DATA
//SYSUDUMP DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
SET CURRENT SQLID = 'SYSADM';
GRANT BIND, EXECUTE ON PLAN DSN8CP0, DSN8CQ0, DSN8CH0
TO PUBLIC;
//SYSTSIN DD *
DSN SYSTEM(DSN)
BIND PACKAGE(DSN8CP!!) MEMBER(DSN8CP0) APPLCOMPAT(V!!R1) +
ACT(REP) ISO(CS) CURRENTDATA(YES) ENCODING(EBCDIC)
BIND PACKAGE(DSN8CP!!) MEMBER(DSN8CP1) APPLCOMPAT(V!!R1) +
ACT(REP) ISO(CS) CURRENTDATA(YES) ENCODING(EBCDIC)
BIND PACKAGE(DSN8CP!!) MEMBER(DSN8CP2) APPLCOMPAT(V!!R1) +
ACT(REP) ISO(CS) CURRENTDATA(YES) ENCODING(EBCDIC)
BIND PACKAGE(DSN8CP!!) MEMBER(DSN8CP3) APPLCOMPAT(V!!R1) +
ACT(REP) ISO(CS) CURRENTDATA(YES) ENCODING(EBCDIC)
BIND PACKAGE(DSN8CP!!) MEMBER(DSN8CP6) APPLCOMPAT(V!!R1) +
ACT(REP) ISO(CS) CURRENTDATA(YES) ENCODING(EBCDIC)
BIND PACKAGE(DSN8CP!!) MEMBER(DSN8CP7) APPLCOMPAT(V!!R1) +
ACT(REP) ISO(CS) CURRENTDATA(YES) ENCODING(EBCDIC)
BIND PACKAGE(DSN8CP!!) MEMBER(DSN8CP8) APPLCOMPAT(V!!R1) +
ACT(REP) ISO(CS) CURRENTDATA(YES) ENCODING(EBCDIC)
BIND PLAN(DSN8CP0) +
PKLIST(DSN8CP!!.DSN8CP0, +
DSN8CP!!.DSN8CP1, +
DSN8CP!!.DSN8CP2) +
ACTION(REPLACE) RETAIN +
ISO(CS) CURRENTDATA(YES) ENCODING(EBCDIC)
BIND PLAN(DSN8CQ0) +
PKLIST(DSN8CP!!.DSN8CP6, +
DSN8CP!!.DSN8CP7, +
DSN8CP!!.DSN8CP8) +
ACTION(REPLACE) RETAIN +
ISO(CS) CURRENTDATA(YES) ENCODING(EBCDIC)
BIND PLAN(DSN8CH0) +
PKLIST(DSN8CP!!.DSN8CP3) +
ACTION(REPLACE) RETAIN +
ISO(CS) CURRENTDATA(YES) ENCODING(EBCDIC)
RUN PROGRAM(DSNTIAD) PLAN(DSNTIA!!) -
LIB('DSN!!0.RUNLIB.LOAD')
END
//*
//* STEP 24: CREATE CICS BMS PHYSICAL MAPS
//PH05PS24 EXEC DFHASMVS,COND=(4,LT),OUTC='*'
//SYSPUNCH DD DSN=&&TEMP,
// DISP=(NEW,PASS),
// UNIT=SYSDA,SPACE=(1024,(100,10)),
// DCB=(RECFM=F,BLKSIZE=80)
//SYSIN DD DISP=SHR,DSN=DSN!!0.SDSNSAMP(DSN8CPG)
//*
//* STEP 25: LINKEDIT CICS BMS PHYSICAL MAPS
//PH05PS25 EXEC PGM=IEWL,PARM='LIST,LET,XREF',COND=(4,LT)
//SYSUT1 DD UNIT=SYSDA,SPACE=(1024,(100,10))
//SYSLMOD DD DISP=SHR,DSN=DSN!!0.RUNLIB.LOAD
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSLIN DD DSN=&&TEMP,DISP=(OLD,DELETE)
// DD *
NAME DSN8CPG(R)
//*
//* STEP 26: CREATE CICS BMS PHYSICAL MAPS
//PH05PS26 EXEC DFHASMVS,COND=(4,LT),OUTC='*'
//SYSPUNCH DD DSN=&&TEMP,
// DISP=(NEW,PASS),
// UNIT=SYSDA,SPACE=(1024,(100,10)),
// DCB=(RECFM=F,BLKSIZE=80)
//SYSIN DD DISP=SHR,DSN=DSN!!0.SDSNSAMP(DSN8CPD)
//*
//* STEP 27: LINKEDIT CICS BMS PHYSICAL MAPS
//PH05PS27 EXEC PGM=IEWL,PARM='LIST,LET,XREF',COND=(4,LT)
//SYSUT1 DD UNIT=SYSDA,SPACE=(1024,(100,10))
//SYSLMOD DD DISP=SHR,DSN=DSN!!0.RUNLIB.LOAD
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSLIN DD DSN=&&TEMP,DISP=(OLD,DELETE)
// DD *
NAME DSN8CPD(R)
//*
//* STEP 28: CREATE CICS BMS PHYSICAL MAPS
//PH05PS28 EXEC DFHASMVS,COND=(4,LT),OUTC='*'
//SYSPUNCH DD DSN=&&TEMP,
// DISP=(NEW,PASS),
// UNIT=SYSDA,SPACE=(1024,(100,10)),
// DCB=(RECFM=F,BLKSIZE=80)
//SYSIN DD DSN=DSN!!0.SDSNSAMP(DSN8CPN),
// DISP=SHR
//*
//* STEP 29: LINKEDIT CICS BMS PHYSICAL MAPS
//PH05PS29 EXEC PGM=IEWL,PARM='LIST,LET,XREF',COND=(4,LT)
//SYSUT1 DD UNIT=SYSDA,SPACE=(1024,(100,10))
//SYSLMOD DD DISP=SHR,DSN=DSN!!0.RUNLIB.LOAD
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSLIN DD DSN=&&TEMP,DISP=(OLD,DELETE)
// DD *
NAME DSN8CPN(R)
//*
//* STEP 30: CREATE CICS BMS PHYSICAL MAPS
//PH05PS30 EXEC DFHASMVS,COND=(4,LT),OUTC='*'
//SYSPUNCH DD DSN=&&TEMP,
// DISP=(NEW,PASS),
// UNIT=SYSDA,SPACE=(1024,(100,10)),
// DCB=(RECFM=F,BLKSIZE=80)
//SYSIN DD DSN=DSN!!0.SDSNSAMP(DSN8CPL),
// DISP=SHR
//*
//* STEP 31: LINKEDIT CICS BMS PHYSICAL MAPS
//PH05PS31 EXEC PGM=IEWL,PARM='LIST,LET,XREF',COND=(4,LT)
//SYSUT1 DD UNIT=SYSDA,SPACE=(1024,(100,10))
//SYSLMOD DD DSN=DSN!!0.RUNLIB.LOAD,
// DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSLIN DD DSN=&&TEMP,DISP=(OLD,DELETE)
// DD *
NAME DSN8CPL(R)
//*
//* STEP 32: CREATE CICS BMS PHYSICAL MAPS
//PH05PS32 EXEC DFHASMVS,COND=(4,LT),OUTC='*'
//SYSPUNCH DD DSN=&&TEMP,
// DISP=(NEW,PASS),
// UNIT=SYSDA,SPACE=(1024,(100,10)),
// DCB=(RECFM=F,BLKSIZE=80)
//SYSIN DD DSN=DSN!!0.SDSNSAMP(DSN8CPU),
// DISP=SHR
//*
//* STEP 33: LINKEDIT CICS BMS PHYSICAL MAPS
//PH05PS33 EXEC PGM=IEWL,PARM='LIST,LET,XREF',COND=(4,LT)
//SYSUT1 DD UNIT=SYSDA,SPACE=(1024,(100,10))
//SYSLMOD DD DISP=SHR,DSN=DSN!!0.RUNLIB.LOAD
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSLIN DD DSN=&&TEMP,DISP=(OLD,DELETE)
// DD *
NAME DSN8CPU(R)
//*
//* STEP 34: CREATE CICS BMS PHYSICAL MAPS
//PH05PS34 EXEC DFHASMVS,COND=(4,LT),OUTC='*'
//SYSPUNCH DD DSN=&&TEMP,
// DISP=(NEW,PASS),
// UNIT=SYSDA,SPACE=(1024,(100,10)),
// DCB=(RECFM=F,BLKSIZE=80)
//SYSIN DD DSN=DSN!!0.SDSNSAMP(DSN8CPF),
// DISP=SHR
//*
//* STEP 35: LINKEDIT CICS BMS PHYSICAL MAPS
//PH05PS35 EXEC PGM=IEWL,PARM='LIST,LET,XREF',COND=(4,LT)
//SYSUT1 DD UNIT=SYSDA,SPACE=(1024,(100,10))
//SYSLMOD DD DISP=SHR,DSN=DSN!!0.RUNLIB.LOAD
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSLIN DD DSN=&&TEMP,DISP=(OLD,DELETE)
// DD *
NAME DSN8CPF(R)
//*
//* STEP 36: CREATE CICS BMS PHYSICAL MAPS
//PH05PS36 EXEC DFHASMVS,COND=(4,LT),OUTC='*'
//SYSPUNCH DD DSN=&&TEMP,
// DISP=(NEW,PASS),
// UNIT=SYSDA,SPACE=(1024,(100,10)),
// DCB=(RECFM=F,BLKSIZE=80)
//SYSIN DD DSN=DSN!!0.SDSNSAMP(DSN8CPE),
// DISP=SHR
//*
//* STEP 37: LINKEDIT CICS BMS PHYSICAL MAPS
//PH05PS37 EXEC PGM=IEWL,PARM='LIST,LET,XREF',COND=(4,LT)
//SYSUT1 DD UNIT=SYSDA,SPACE=(1024,(100,10))
//SYSLMOD DD DISP=SHR,DSN=DSN!!0.RUNLIB.LOAD
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSLIN DD DSN=&&TEMP,DISP=(OLD,DELETE)
// DD *
NAME DSN8CPE(R)