Return to the Sample Job Stream List

FZAQD03J Sample Job Stream

Original JCL (VSE)

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

Translated JCL (MVS)

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