Sample JCL

 //ABA        JOB ????
          //ABARUN    EXEC PGM=ABA,REGION=20M
          //SMFIN      DD  DSN=CUSTOMER.SMF.DATA,DISP=SHR
          //SORTIN     DD  DSN=&&SORTIN,DISP=(NEW,DELETE),
          //               SPACE=(CYL,(2,3)),
          //               DCB=(LRECL=80,RECFM=FB),
          //               UNIT=SYSDA
          //SELECTDS   DD  DSN=CUSTOMER.SELECT.DS,DISP=(NEW,CATLG),
          //               DCB=(LRECL=80,RECFM=FB),
          //               SPACE=(CYL,(1,1),RLSE),UNIT=SYSDA
          //SYSPRINT   DD  SYSOUT=*
          //SYSOUT     DD  SYSOUT=*
          //SORTWK01   DD  UNIT=SYSDA,SPACE=(CYL,(2,3))
          //SYSIN      DD  *
          PAYA*
          PAYB*
          /*
          //SYSDIAG  DD  DSN=CUSTOMER.ABA.LOG,DISP=(NEW,CATLG),
          //             DCB=(RECFM=FB,LRECL=74,BLKSIZE=7400),
          //             SPACE=(CYL,(2,1),RLSE),UNIT=SYSDA
          //* ON A 3380, THE PRIMARY ALLOCATION OF 2 CYLINDERS
          //* FOR SYSDIAG WILL HANDLE THE DIAGNOSTIC OUTPUT
          //* FOR APPROXIMATELY 18,000 UNIQUE, QUALIFIED DATA
          //* SETS.