13 lines
525 B
Plaintext
13 lines
525 B
Plaintext
//BCGB3896 JOB (UI,4300,3400,T),'G. BROWN ',MSGCLASS=X,CLASS=S,
|
|
// NOTIFY=DCGGAB
|
|
/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE
|
|
//PROCLIB JCLLIB ORDER=PROD.PROCLIB BY Z/OS
|
|
//**************************************************************
|
|
//* INITIALIZE SCRATCH CARTRIDGE *
|
|
//**************************************************************
|
|
// EXEC PGM=IEHINITT
|
|
//SYSPRINT DD SYSOUT=*
|
|
//TAPEIN DD UNIT=CART,LABEL=(,SL),DSN=DOESTAX.CHRGS
|
|
//SYSIN DD *
|
|
TAPEIN INITT SER=AT3896
|