Programadores freelance - Ayudame con este ejemplo

COBUCLG  JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1)

UPDATES  EXEC COBUCLG,CPARM1='LOAD,LIST,NODECK,DMAP,SUPMAP'

COB.SYSIN DD DSN=USER.COBOL.LIB(UPDATE1),DISP=SHR

LKED.SYSLIB DD DSNAME=SYS1.COBLIB,DISP=SHR

            DD DSNAME=SYS1.LINKLIB,DISP=SHR

GO.SYSPRINT DD SYSOUT=A

GO.TAPEIN DD DSN=TRANS,UNIT=TAPE,VOL=SER=W001052,

             DISP=OLD,LABEL=2

GO.DISKUP DD DSN=QTD.MASTER,DISP=MOD

GO.EXCEPTS DD SYSOUT=A

XXDEFAULT PROC RGREGN=52K,RGPARM='NODECK,LOAD,LIST,NOSEQN',

XX             RGU3SPC='(600,(100,20))',RGU2SPC='(600,(100,20))',

XX             RGU1SPC='(600,(100,20))',RGGOSPC='(80,(200,50))',

XX             LKREGN=100K,LKPARM='XREF,LIST,LET',

XX             LKMDSPC='(1024,(50,20,1))',LKU1SPC='(1024,(50,20))',

XX             GOCOND='((9,LT,RPG),(5,LT,LKED))',GOPARM='DATE=000000'

XXRPG     EXEC PGM=IESRPG,REGION=&RGREGN,PARM=(&RGPARM)

IEF653I SUBSTITUTION JCL - PGM=IESRPG,REGION=52K,PARM=(NODECK,LOAD,LIST,NOSEQN)

XXSYSPRINT DD  SYSOUT=A

XXSYSPUNCH DD  SYSOUT=B

//RPG.SYSUT3 DD UNIT=SYSDA

X/SYSUT3   DD  DSNAME=&&SYSUT3,UNIT=SYSSQ,SPACE=&RGU3SPC

IEF653I SUBSTITUTION JCL - DSNAME=&&SYSUT3,UNIT=SYSSQ,SPACE=(600,(100,20))

//RPG.SYSUT2 DD UNIT=SYSDA

X/SYSUT2   DD  DSNAME=&&SYSUT2,UNIT=SYSSQ,SPACE=&RGU2SPC

IEF653I SUBSTITUTION JCL - DSNAME=&&SYSUT2,UNIT=SYSSQ,SPACE=(600,(100,20))

//RPG.SYSUT1 DD UNIT=SYSDA

X/SYSUT1   DD  DSNAME=&&SYSUT1,UNIT=SYSSQ,SPACE=&RGU1SPC

IEF653I SUBSTITUTION JCL - DSNAME=&&SYSUT1,UNIT=SYSSQ,SPACE=(600,(100,20))

//RPG.SYSGO DD  UNIT=SYSDA

//RPG.WEBGO DD  URLM=https://www.jaymoseley.com/hercules/compiling/how_to.htm

X/SYSGO   DD  DSNAME=&&LOADSET,UNIT=(SYSSQ,SEP=SYSPUNCH),

XX             DISP=(MOD,PASS,DELETE),SPACE=&RGGOSPC

IEF653I SUBSTITUTION JCL - DISP=(MOD,PASS,DELETE),SPACE=(80,(200,50))