//TECOBCPL PROC SYSTEM=COB,
//             PROPT='***',            ***=SHORT LIST, ALL, OR ERR
//             LISTOUT='*',
//             LC=60,                  LINECOUNT(52) COB LINES PER PAGE
//             OPTION=,
//             MAP=MAP,
//             DEST=LOCAL,
//             CLC=60,
//             LNKOPT='MAP,LET,LIST,REUS,RMODE(24),AMODE(24)',
//             SYSLBLK=3200,
//             LIB=                    SYSLMOD LIBRARY (USE APPL LIB)
//COBOL    EXEC PGM=COB0COPY
//STEPLIB   DD DSN=USERTEA.SYS3.SYSLIB,DISP=SHR
//OSJOB     DD DISP=(NEW,PASS),UNIT=VIO,SPACE=(CYL,(1,1)),DSN=&&SOURCE
//LIBIN     DD DISP=(NEW,PASS),UNIT=VIO,SPACE=(CYL,(1,1)),DSN=&&LIBIN
//CARDS     DD DDNAME=SOURCE
//SOURCE    DD DDNAME=SYSIN
// IF RC EQ 0 THEN
//LIBRUN  EXEC PGM=AFOLIBR,
//             PARM='NJTA,NRJS,LINES=&LC,IEX=SYSXADR1,OEX=SYSXADR5'
//MASTER    DD DISP=SHR,DSN=USERTEA.SYS1.ADR.&SYSTEM.LIB
//SYSPRINT  DD SYSOUT=&LISTOUT,DCB=RECFM=FBA
//LIST      DD DUMMY
//INDEX     DD DUMMY
//OSJOB     DD DISP=(OLD,PASS),UNIT=VIO,SPACE=(CYL,(1,1)),DSN=&&SOURCE
//SYSIN     DD DISP=(OLD,PASS),DSN=&&LIBIN
// ENDIF
// IF RC LT 8 THEN
//********************************************************************
//COBV0ERR EXEC PGM=COBV0ERR
//STEPLIB  DD  DSN=USERTEA.SYS3.SYSLIB,DISP=SHR
//SYSOUA   DD  SYSOUT=*
//COBIPT    DD DSN=&&SOURCE,DISP=(OLD,PASS)
//********************************************************************
//*  COMPILE AND LINK EDIT A COBOL PROGRAM
//COBOLCC EXEC PGM=IGYCRCTL,REGION=2048K,
//             PARM='&MAP,OUTDD(SYSOUA),LINECOUNT(&CLC),
//             EXIT(PRTX(''&PROPT'',COBV9PRT)),&OPTION'
//STEPLIB   DD DISP=SHR,DSN=USERTEA.SYS3.SYSLIB
//SYSPRINT  DD SYSOUT=*
//SYSOUA    DD SYSOUT=*
//PRINT     DD SYSOUT=*,DEST=&DEST
//SYSOUT    DD DUMMY    W/PRTX COMPILER GENERATES ONE BLANK LINE
//SYSIN     DD DSN=&&SOURCE,DISP=(OLD,DELETE)
//LIBIN     DD DSN=&&LIBIN,DISP=(OLD,DELETE)
//SYSLIN    DD DSNAME=&&LOADSET,UNIT=VIO,
//             DISP=(MOD,PASS),SPACE=(TRK,(3,3)),
//             DCB=(BLKSIZE=&SYSLBLK)
//SYSLIB    DD DISP=SHR,DSN=USERTEA.SYS3.COPYLIB
//SYSUT1    DD UNIT=VIO,SPACE=(CYL,(1,1))
//SYSUT2    DD UNIT=VIO,SPACE=(CYL,(1,1))
//SYSUT3    DD UNIT=VIO,SPACE=(CYL,(1,1))
//SYSUT4    DD UNIT=VIO,SPACE=(CYL,(1,1))
//SYSUT5    DD UNIT=VIO,SPACE=(CYL,(1,1))
//SYSUT6    DD UNIT=VIO,SPACE=(CYL,(1,1))
//SYSUT7    DD UNIT=VIO,SPACE=(CYL,(1,1))
// IF RC LT 8 THEN
//OBJADD   EXEC PGM=COB0LINK  STEP ADDS INCLUDE CEEUOPT + SETSSI
//STEPLIB   DD DSN=USERTEA.SYS3.SYSLIB,DISP=SHR
//OBJIN     DD DSN=&&LOADSET,DISP=(OLD,DELETE)
//OBJOUT    DD DSNAME=&&LOADOBJ,UNIT=VIO,DISP=(NEW,PASS),
//             DCB=(BLKSIZE=&SYSLBLK),SPACE=(TRK,(3,3))
//LKED    EXEC PGM=HEWL,REGION=1M,PARM=(&LNKOPT)
//SYSLIB    DD DISP=SHR,DSN=CEE.SCEELKED
//          DD DISP=SHR,DSN=USERTEA.SYS3.&LIB
//          DD DISP=SHR,DSN=USERTEA.SYS3.SYSLIB
//SYSUT1    DD UNIT=VIO,SPACE=(TRK,(10,10))
//SYSPRINT  DD SYSOUT=*,DEST=&DEST
//SYSLIN    DD DSNAME=&&LOADOBJ,DISP=(OLD,DELETE)
//SYSLMOD   DD DISP=SHR,DSN=USERTEA.SYS3.&LIB
//  ENDIF
//  ENDIF
//********************************************************************
