COMPILATION of COBOL Program

COBOL COMPILATION

                                                                                      SYSPRINT

PARM                                                                               (Compiler listing)

(Compiler

  Options)

	IGYCRCTL   (COBOL COMPILER)

SYSIN                                                                           SYSLIN(Object Module)

(Source)

SYSLIB                                                                            PARM

(Copybook Library)                                                            (Link

                                                                              edit Options)

IEWL        (Link Editor)

                                                                                 

                            

SYSLMOD

(Load Module)

SYSPRINT                                                                                   SYSLIB

(Link edit messages)                                                     (Subroutine Library)

COMPILATION JCL:

//SMSXL86B JOB ,'COMPILATION JCL', MSGCLASS=Q,MSGLEVEL=(1,1),CLASS=C  

//COMPILE1  EXEC  PGM=IGYCRCTL, PARM=’XREF,APO,ADV,MAP,LIST),REGION=0M

//STEPLIB      DD  DSN=SYS1.COB2LIB,DISP=SHR

//SYSIN         DD  DSN=SMSXL86.TEST.COBOL(SAMPGM01),DISP=SHR

//SYSLIB       DD  DSN=SMSXL86.COPYLIB,DISP=SHR

//SYSPRINT    DD  SYSOUT=*

//SYSLIN       DD  DSN=&&LOADSET, DCB=(RECFM=FB,LRECL=80,BLKSIZE=3200),

//                 DISP=(NEW,PASS),UNIT=SYSDA,SPACE=(CYL,(5,10),RLSE),

//SYSUT1       DD UNIT=&SYSDA,SPACE=(CYL,(1,10))  => Code SYSUT2 to UT7

//LINKEDT1    EXEC  PGM=IEWL,COND=(4,LT)

//SYSLIN       DD  DSN=&&LOADSET, DISP=(OLD,DELETE)

//SYSLMOD    DD  DSN=&&GOSET(SAMPGM01),DISP=(NEW,PASS),UNIT=SYSDA

//                 SPACE=(CYL,1,1,1))

//SYSLIB       DD  DSN=SMSXL86.LOADLIB,DISP=SHR

//SYSUT1       DD  UNIT=SYSDA,SPACE=(CYL,(1,10))

//SYSPRINT    DD SYSOUT=*

//*** EXECUTE THE PROGRAM ***

//EXECUTE1  EXEC  PGM=*.LINKEDT1.SYSLMOD,COND=(4,LT),REGION=0M

//STEPLIB      DD  DSN=SMSXL86.LOADLIB,DISP=SHR

//                 DD  DSN=SYS1.SCEERUN,DISP=SHR

//SYSOUT      DD  SYSOUT=*

//SYSPRINT    DD  SYSOUT=*