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