* $$ JOB JNM=FZAQD03J,USER='AQS' * $$ LST CLASS=Q,DISP=H,LST=SYSLST // JOB FZAQD03J (BAQD030) DELETE & DEFINE AQS UPLOAD/WRITE DUMMY (PROD) /* // EXEC IDCAMS,SIZE=AUTO DELETE (AQS.DOWN.LOAD) - CATALOG (VSAM05.USER.CATALOG VSAM05) - PURGE - CLUSTER DEFINE CLUSTER ( - NAME (AQS.DOWN.LOAD ) - TRACKS (15 2) - SHAREOPTIONS (1) - RECORDSIZE (80 1000 ) - VOLUMES (SYS145) - NOREUSE - NONINDEXED - FREESPACE (15 7) - TO (99366)) - DATA (NAME (AQS.DOWN.LOAD.DATA )) - CATALOG (VSAM05.USER.CATALOG ) /* // ASSGN SYS002,SYSIPT // DLBL SORTOUT,'AQS.DOWN.LOAD',,VSAM,CAT=VSAM05 // EXEC SORT SORT FIELDS=COPY OPTION PRINT=ALL,ROUTE=LST RECORD LENGTH=80,TYPE=F OUTFIL DISK,ESDS,TOL, OUTREC=(1:C'DUMMY', 421:01,80) END ================= DUMMY RECORD FOR AQS ======================== /* /& * $$ EOJ
Return to the Sample Job Stream List
//FZAQD03J JOB (FZAQD03J),' ', // CLASS=A, // MSGCLASS=X, // MSGLEVEL=(1,1), // REGION=6M //* //JOBLIB INCLUDE MEMBER=JOBLIB //* //* STEP0010 PGM=IDCAMS //* //STEP0010 EXEC PGM=IDCAMS //* MODULE IDCAMS PROCESSED BY PLUG-IN JCLTAMS //* VS I VSAM05 A 'AQS.DOWN.LOAD' DELETE //#DELETE DD DUMMY,DSN=AQS.DOWN.LOAD //* VS VS ES O VSAM05 A 'AQS.DOWN.LOAD' DEFCL //#DEFCL DD DUMMY,DSN=AQS.DOWN.LOAD //* PR O //SYSPRINT DD SYSOUT=* //* CD I //SYSIN DD * DELETE (AQS.DOWN.LOAD) - PURGE - CLUSTER IF LASTCC=8 THEN IF MAXCC=8 THEN SET MAXCC=0 DEFINE CLUSTER ( - NAME (AQS.DOWN.LOAD ) - TRACKS (15 2) - SHAREOPTIONS (1) - RECORDSIZE (80 1000 ) - VOLUMES (SYS145) - NOREUSE - NONINDEXED - FREESPACE (15 7) - ) /* //* //* STEP0020 PGM=SORT //* //STEP0020 EXEC PGM=SORT //* MODULE SORT PROCESSED BY PLUG-IN JCLTSORT //* SD VS ES O VSAM05 'AQS.DOWN.LOAD' COPY //SORTOUT DD DSN=AQS.DOWN.LOAD, // DISP=(NEW,CATLG,DELETE), // SPACE=(TRK,(1000,250),RLSE), // UNIT=SYSDA //* PR O //SYSOUT DD SYSOUT=* //* CD I //SYSIN DD * SORT FIELDS=COPY *OPTION PRINT=ALL,ROUTE=LST RECORD LENGTH=80,TYPE=F OUTFIL DISK,ESDS,TOL, OUTREC=(1:C'DUMMY', 421:01,80) END /* //* CD I SYS002 00C COPY //SORTIN DD * ================= DUMMY RECORD FOR AQS ======================== /* //
Return to the Sample Job Stream List