19 lines
670 B
Plaintext
19 lines
670 B
Plaintext
//****
|
|
//*
|
|
//* DTSUC30G - LOAD DOESTAX.CONV.UC30.FISCAGNT.QTRCCYYQ
|
|
//* FROM DOESTAX.CONV.UC30.FAUPLOAD.QTRCCYYQ
|
|
//* (KEEP TRACK OF WHICH FA IS IN WHICH FILE !!!)
|
|
//****
|
|
//STEP0200 EXEC PGM=DTSBU620,COND=(0,LT) /* UC30 CONVERSION PROG
|
|
//SYSOUT DD SYSOUT=*
|
|
//SYSABOUT DD SYSOUT=*
|
|
//SYSUDUMP DD SYSOUT=*
|
|
//FAFILEI DD DSN=&UC30I..&QTR.&FAGENIN.,
|
|
// DISP=(OLD,KEEP,KEEP)
|
|
//FAFILEO DD DSN=&UC30O..&QTR.&FAGEN.,
|
|
// DISP=(,CATLG,DELETE),
|
|
// SPACE=(8192,(100,200),RLSE),
|
|
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=80,BLKSIZE=8000)
|
|
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(&FA),DISP=SHR
|
|
//**
|