//jobcard //* ---------------------------------------------------------------- * //* DELETE UNPACKED FILE //* ---------------------------------------------------------------- * //STEP1 EXEC PGM=IDCAMS //SYSPRINT DD SYSOUT=* //SYSIN DD * DELETE 'UNPACKED.FILENAME.HERE' PURGE /* //* ---------------------------------------------------------------- * //* UNPACK THE FLAT FILE INTO THE APPROPRIATE LIBRARY //* REVIEW THE DCB PARM TO ENSURE IT REFLECTS THE PROPER ATTRIBUTES //* REPEAT THIS STEP (STEP2) FOR EACH FILE UPLOADED //* ---------------------------------------------------------------- * //STEP2 EXEC PGM=TRSMAIN,PARM='UNPACK' //SYSPRINT DD SYSOUT=* //INFILE DD DISP=SHR,DSN=USERID.FLAT //OUTFILE DD DSN=UNPACKED.FILENAME.HERE, // DISP=(NEW,CATLG,DELETE), // UNIT=DUNIT,SPACE=(CYL,(5,5,20),RLSE), // DCB=(RECFM=U,LRECL=0,BLKSIZE=6233,DSORG=PO) //* ------------------------------------------------------------------ //* ISPSLIB, JCLLIB, SAMPLIB //STEP3 EXEC PGM=TRSMAIN,PARM='UNPACK' //INFILE DD DSN=USERID.FLAT,DISP=SHR //OUTFILE DD DSN=UNPACKED.FILENAME.HERE, // DISP=(NEW,CATLG), // DCB=(LRECL=80,RECFM=FB), // SPACE=(TRK,(10,15,15),RLSE), // VOL=SER=CIGV08 //SYSPRINT DD SYSOUT=* // //* ------------------------------------------------------------------ //* JAVALIB //STEP3 EXEC PGM=TRSMAIN,PARM='UNPACK' //INFILE DD DSN=USERID.FLAT,DISP=SHR //OUTFILE DD DSN=UNPACKED.FILENAME.HERE, // DISP=(NEW,CATLG), // DCB=(LRECL=255,RECFM=VB), // SPACE=(TRK,(10,15,15),RLSE), // VOL=SER=CIGV08 //SYSPRINT DD SYSOUT=* // //* ------------------------------------------------------------------ //* LOADLIB, SAZZLOAD //STEP3 EXEC PGM=TRSMAIN,PARM='UNPACK' //INFILE DD DSN=USERID.FLAT,DISP=SHR //OUTFILE DD DSN=UNPACKED.FILENAME.HERE, // DISP=(NEW,CATLG), // DCB=(LRECL=6144,RECFM=U), // SPACE=(TRK,(10,15,15),RLSE), // VOL=SER=CIGV08 //SYSPRINT DD SYSOUT=* // //* ----------------------------------------------------------------- //* HTM //STEP3 EXEC PGM=TRSMAIN,PARM='UNPACK' //INFILE DD DSN=USERID.FLAT,DISP=SHR //OUTFILE DD DSN=UNPACKED.FILENAME.HERE, // DISP=(NEW,CATLG), // DCB=(LRECL=256,RECFM=VB), // SPACE=(TRK,(10,15,15),RLSE), // VOL=SER=CIGV08 //SYSPRINT DD SYSOUT=* //