JCL Examples for Program Compilation and Link Edit › COBOL Example (z/VSE)

COBOL Example (z/VSE)

* $$ JOB JNM=COBOL,CLASS=x                                              DBC00010
* $$ LST CLASS=c                                                        DBC00020
// JOB COBOL                                                            DBC00030
// EXEC      PROC=procname                                              DBC00040
// LIBDEF    *,CATALOG=lib.sublib                                       DBC00050
// ASSGN     SYS101,DISK,VOL=vvvvvv,SHR                                 DBC00060
// DLBL      PUNCH,'SYSIN.FILE',1,SD                                    DBC00070
// EXTENT    SYS101,vvvvvv,1,0,s,n                                      DBC00080
* DITTO                                                                 DBC00090
// UPSI 1                                                               DBC00100
// EXEC DITTO                                                           DBC00110
$$DITTO CSQ FILEOUT=PUNCH,CISIZE=512,BLKFACTOR=2                        DBC00120
*          insert source here                                           DBC00130
/*                                                                      DBC00140
$$DITTO EOJ                                                             DBC00150
/*                                                                      DBC00160
* DFHECP1$                                                              DBC00170
// DLBL      IJSYSPH,'SYSPCH.FILE',1,SD                                 DBC00180
// EXTENT    SYSPCH,vvvvvv,1,0,s,n                                      DBC00190
 ASSGN     SYSPCH,DISK,VOL=vvvvvv,SHR                                   DBC00200
// DLBL      IJSYSIN,'SYSIN.FILE'                                       DBC00210
// EXTENT    SYSIPT,vvvvvv                                              DBC00220
 ASSGN     SYSIPT,DISK,VOL=vvvvvv,SHR                                   DBC00230
// EXEC DFHECP1$,SIZE=512K                                              DBC00240
/*                                                                      DBC00250
 CLOSE       SYSIPT,READER                                              DBC00260
 CLOSE       SYSPCH,PUNCH                                               DBC00270
/*                                                                      DBC00280
* COMPILE                                                               DBC00290
// DLBL      IJSYSIN,'SYSPCH.FILE'                                      DBC00300
// EXTENT    SYSIPT,vvvvvv                                              DBC00310
 ASSGN     SYSIPT,DISK,VOL=vvvvvv,SHR                                   DBC00320
// OPTION    NODECK,CATAL                                               DBC00330
   PHASE   ppppppp,S                                                    DBC00340
   INCLUDE DFHxxx                                                       DBC00350
// EXEC IGYCRCTL,SIZE=IGYCRCTL                                          DBC00360
/*                                                                      DBC00370
 CLOSE       SYSIPT,READER                                              DBC00380
/*                                                                      DBC00390
* LINK-EDIT                                                             DBC00400
/*                                                                      DBC00410
// EXEC LNKEDT                                                          DBC00420
/*                                                                      DBC00430
/&                                                                      DBC00440
* $$ EOJ                                                                DBC00450