Job control statements for the sample program

This JCL uses the z/OS® COBOL 2.4 compiler and places the resulting load module in IMS.PGMLIB.

  //IMSCOBOL JOB ACCT,NAME,CLASS=A,MSGLEVEL=(1,1),MSGCLASS=A       
  //       PROC  MBR=,PAGES=60,RGN=512K,
  //             SOUT=A
  //C      EXEC  PGM=IKFCBL00,REGION=&RGN,
  //             PARM='SIZE=130K,BUF=10K,LINECNT=50,APOST,BATCH'
  //SYSLIN DD    DSN=&&LIN,DISP=(MOD,PASS),UNIT=SYSDA,
  //             DCB=(USER.PROCLIB),
  //             SPACE=(3520,(40,10),RLSE,,ROUND)
  //SYSPRINT DD  SYSOUT=&SOUT,DCB=(LRECL=121,BLKSIZE=605,RECFM=FBA),
  //             SPACE=(605,(&PAGES.0,&PAGES),RLSE,,ROUND)
  //SYSUT1 DD    UNIT=SYSDA,DISP=(,DELETE),
  //             SPACE=(3520,(100,10),RLSE,,ROUND)
  //SYSUT2 DD    UNIT=SYSDA,DISP=(,DELETE),
  //             SPACE=(3520,(100,10),RLSE,,ROUND)
  //SYSUT3 DD    UNIT=SYSDA,DISP=(,DELETE),
  //             SPACE=(3520,(100,10),RLSE,,ROUND)
  //SYSUT4 DD    UNIT=SYSDA,DISP=(,DELETE),
  //             SPACE=(3520,(100,10),RLSE,,ROUND)
  //L      EXEC  PGM=IEWL,REGION=&RGN,PARM='XREF,LET,LIST',
  //             COND=(4,LT,C)
  //*STEPLIB DD   DSN=IMS.SDFSRESL,DISP=SHR
  //SYSLIB DD    DSN=SYS1.COBLIB,DISP=SHR
  //SDFSRESL DD    DSN=IMS.SDFSRESL,DISP=SHR
  //SYSLIN DD    DSN=&&LIN,DISP=(OLD,DELETE),VOL=REF=*.C.SYSLIN
  //       DD    DSN=IMS.PROCLIB(CBLTDLI),DISP=SHR
  //       DD    DDNAME=SYSIN
  //SYSLMOD DD   DSN=IMS.PGMLIB(&MBR),DISP=SHR
  //SYSPRINT DD  SYSOUT=&SOUT,DCB=(RECFM=FBA,LRECL=121,BLKSIZE=605),
  //             SPACE=(605,(&PAGES.0,&PAGES),RLSE,,ROUND)
  //SYSUT1 DD    UNIT=(SYSDA,SEP=(SYSLMOD,SYSLIN)),DISP=(,DELETE),
  //             SPACE=(3520,(100,10),RLSE,,ROUND)
  //   PEND
  //IMSCOBOL EXEC IMSCOBOL,SOUT=A,MBR=SAMPLA
  //C.SYSIN DD *