BCS COBOL Instream Compile Procedure

In some installations modifications have been perpetuated that render them unrecognizable to seasoned technicians. If you find yourself in one of those situation you may be able to use this standard COBOl compile and link proc to compile and link COBOL programs.
[codesyntax lang=”text”]

//AMBCOB JOB The job card info goes here
/*JOBPARM  L=99
//IGYWCL   PROC GOPGM=GO,
//         LIBPRFX='SYS1.CEE',
//         PGMLIB='&&GOSET',
//         SYSLBLK=3200
//*
//*        COMPILE AND LINK EDIT A COBOL PROGRAM
//*
//*        CALLER MUST SUPPLY //COBOL.SYSIN DD ...
//*
//*        GOPGM     GO               MEMBER NAME FOR LOAD MODULE
//*        LIBPRFX   CEE
//*        LNGPRFX   IGY.V2R1M0
//*        PARAMETER DEFAULT VALUE
//*        PGMLIB    &&GOSET          DATA SET NAME FOR LOAD MODULE
//*        SYSLBLK   3200
//*
//COBOL    EXEC PGM=IGYCRCTL,
//         PARM='XREF,MAP',
//         REGION=2048K
//SYSLIN   DD DCB=(BLKSIZE=&SYSLBLK),
//            DISP=(MOD,PASS),
//            DSNAME=&&LOADSET,
//            SPACE=(TRK,(3,3)),
//            UNIT=VIO
//SYSPRINT DD SYSOUT=*
//SYSUT1   DD SPACE=(CYL,(1,1)),UNIT=VIO
//SYSUT2   DD SPACE=(CYL,(1,1)),UNIT=VIO
//SYSUT3   DD SPACE=(CYL,(1,1)),UNIT=VIO
//SYSUT4   DD SPACE=(CYL,(1,1)),UNIT=VIO
//SYSUT5   DD SPACE=(CYL,(1,1)),UNIT=VIO
//SYSUT6   DD SPACE=(CYL,(1,1)),UNIT=VIO
//SYSUT7   DD SPACE=(CYL,(1,1)),UNIT=VIO
//LKED     EXEC PGM=HEWL,
//         COND=(8,LT,COBOL),
//         PARM='LET,LIST,NCAL',
//         REGION=1024K
//SYSLIB   DD DISP=SHR,
//            DSNAME=&LIBPRFX..SCEELKED
//SYSLIN   DD DISP=(OLD,DELETE),DSNAME=&&LOADSET
//         DD DDNAME=SYSIN
//SYSLMOD  DD DSNAME=&PGMLIB(&GOPGM),
//            SPACE=(TRK,(10,10,1)),
//            UNIT=VIO,DISP=(MOD,PASS)
//SYSPRINT DD SYSOUT=*
//SYSUT1   DD SPACE=(TRK,(10,10)),UNIT=VIO
//         PEND
//CMPLNK   EXEC IGYWCL
//COBOL.SYSIN  DD DISP=SHR,DSN=DR.DU0069.CNTL(DT20050C)
//LKED.SYSLMOD DD DISP=SHR,DSN=DT.TLOADLB(DT20050C)

[/codesyntax]
Things to notice about this proc includes it contents are sorted in ascending alphabetical order.  This technique facilitates others using this procedure a consistent organization scheme that allows for rapid location of pertinent information.  Notice even the sub parameters for data definition statements are ordered in ascending order.
I insist all my protege’s perform their work at a high professional level.   I tell them if the job is not worth performing at a high level then they may want to consider another profession.
Mr. Arch Brooks, Software Engineer, Brooks Computing Systems authored this article.