Code: |
//MSTRAMAS JOB A123,'CICS ASSEM',CLASS=A,MSGCLASS=A,NOTIFY=&SYSUID
//*PROCLIB JCLLIB ORDER=MSTRAM.CICS.JCL //CICSASM EXEC DFHEITAL, // DSCTLIB=MSTRAM.CICS.SDFHMAC, // PROGLIB=MSTRAM.LIB2.LOAD //TRN.SYSIN DD DSN=CICSTS23.CICS.SDFHSAMP(DFH$AALL),DISP=SHR //LKED.SYSIN DD * NAME DFH$AALL(R) //* |
Code: |
//MSTRAMCB JOB A123,'CICS COMPILE',CLASS=A,MSGCLASS=A,NOTIFY=&SYSUID
//CICSCOMP EXEC DFHEITVL,PARM='SOURCE', // OUTC=A, // DSCTLIB=MSTRAM.CICS.SDFHMAC, <== COPY LIBRARY // PROGLIB=MSTRAM.LIB2.LOAD <== LOAD LIBRARY //*TRN.SYSIN DD DSN=MSTRAM.CICS.COBOL(MSTRAM5),DISP=SHR //LKED.SYSIN DD * NAME ACCT99(R) //* |
Code: |
//DFHEITAL PROC SUFFIX=1$, Suffix for translator module
//* //* This procedure has been changed since CICS/ESA Version 3 //* //* Parameter INDEX2 has been removed //* // ASMBLR=ASMA90, Assembler module name // INDEX='CICSTS23.CICS', Qualifier(s) for CICS libraries // PROGLIB='CICSTS23.CICS.SDFHLOAD', Name of o/p library@BA25137C // DSCTLIB='CICSTS23.CICS.SDFHMAC, Private macro/dsect@BA25137C // OUTC=A, Class for print output // REG=2M, Region size for all steps // LNKPARM='LIST,XREF', Link edit parameters // WORK=SYSDA Unit for work datasets //* //* This procedure contains 4 steps //* 1. Exec the assembler translator //* (using the supplied suffix 1$) //* 2. Exec the assembler //* 3. Reblock SDFHMAC(DFHEILIA) for use by the linkedit step //* 4. Linkedit the output to dataset &PROGLIB //* //* The following JCL should be used //* to execute this procedure //* //* //APPLPROG EXEC DFHEITAL //* //TRN.SYSIN DD * //* . //* . Application program //* . //* /* //* //LKED.SYSIN DD * //* NAME anyname(R) //* /* //* //* Where anyname is the name of your application program. //* (refer to the system definition guide for full details, //* including what to do if your program contains calls to //* the common programming interface.) //* //TRN EXEC PGM=DFHEAP&SUFFIX, // REGION=® //STEPLIB DD DSN=&INDEX..SDFHLOAD,DISP=SHR //SYSPRINT DD SYSOUT=&OUTC //SYSPUNCH DD DSN=&&SYSCIN, // DISP=(,PASS),UNIT=&WORK, // DCB=BLKSIZE=400, // SPACE=(400,(400,100)) //* //ASM EXEC PGM=&ASMBLR, // REGION=®, // PARM='DECK,NOOBJECT,LIST' //SYSLIB DD DSN=&DSCTLIB,DISP=SHR // DD DSN=&INDEX..SDFHMAC,DISP=SHR // DD DSN=&INDEX..SDFHSAMP,DISP=SHR // DD DSN=SYS1.MACLIB,DISP=SHR //SYSUT1 DD UNIT=&WORK,SPACE=(1700,(400,400)) //SYSUT2 DD UNIT=&WORK,SPACE=(1700,(400,400)) //SYSUT3 DD UNIT=&WORK,SPACE=(1700,(400,400)) //SYSPUNCH DD DSN=&&LOADSET, // UNIT=&WORK,DISP=(,PASS), // SPACE=(400,(100,100)) //SYSPRINT DD SYSOUT=&OUTC //SYSIN DD DSN=&&SYSCIN,DISP=(OLD,DELETE) //* //COPYLINK EXEC PGM=IEBGENER,COND=(7,LT,ASM) //SYSUT1 DD DSN=&INDEX..SDFHMAC(DFHEILIA),DISP=SHR //SYSUT2 DD DSN=&©LINK,DISP=(NEW,PASS), // DCB=(LRECL=80,BLKSIZE=400,RECFM=FB), // UNIT=&WORK,SPACE=(400,(20,20)) //SYSPRINT DD SYSOUT=&OUTC //SYSIN DD DUMMY //* //LKED EXEC PGM=IEWL,REGION=®, // PARM='&LNKPARM',COND=(7,LT,ASM) //SYSLIB DD DSN=&INDEX..SDFHLOAD,DISP=SHR //SYSLMOD DD DSN=&PROGLIB,DISP=SHR //SYSUT1 DD UNIT=&WORK,DCB=BLKSIZE=1024, // SPACE=(1024,(200,20)) //SYSPRINT DD SYSOUT=&OUTC //SYSLIN DD DSN=&&LOADSET,DISP=(OLD,DELETE) // DD DSN=&©LINK,DISP=(OLD,DELETE) // DD DDNAME=SYSIN |
Code: |
//DFHEITVL PROC SUFFIX=1$, Suffix for translator module
//* //* This procedure has been changed since CICS/ESA Version 3 //* //* Parameter INDEX2 has been removed //* // INDEX='CICSTS23.CICS', Qualifier(s) for CICS libraries // PROGLIB='CICSTS23.CICS.SDFHLOAD', Name of o/p library@BA25137C // DSCTLIB='CICSTS23.CICS.SDFHCOB', Private macro/dsect@BA25137C // COMPHLQ='CEE', // OUTC=A, Class for print output // REG=2M, Region size for all steps // LNKPARM='LIST,XREF', Link edit parameters // STUB='DFHEILIC', Link edit INCLUDE for DFHECI // LIB='SDFHCOB', Library // WORK=SYSDA Unit for work datasets //* This procedure contains 4 steps //* 1. Exec the COBOL translator //* (using the supplied suffix 1$) //* 2. Exec the vs COBOL compiler //* 3. Reblock &LIB(&STUB) for use by the linkedit step //* 4. Linkedit the output into dataset &PROGLIB //* //* The following JCL should be used //* to execute this procedure //* //* //APPLPROG EXEC DFHEITVL //* //TRN.SYSIN DD * //* . //* . Application program //* . //* /* //* //LKED.SYSIN DD * //* NAME anyname(R) //* /* //* //* Where anyname is the name of your application program. //* (Refer to the system definition guide for full details, //* including what to do if your program contains calls to //* the common programming interface.) //* //TRN EXEC PGM=DFHECP&SUFFIX, // PARM='COBOL', // REGION=® //STEPLIB DD DSN=&INDEX..SDFHLOAD,DISP=SHR //SYSPRINT DD SYSOUT=&OUTC //SYSPUNCH DD DSN=&&SYSCIN, // DISP=(,PASS),UNIT=&WORK, // DCB=BLKSIZE=400, // SPACE=(400,(400,100)) //* //COB EXEC PGM=IGYCRCTL,REGION=®, // PARM='NODYNAM,LIB,OBJECT,RENT,RES,APOST,MAP,XREF' //SYSLIB DD DSN=&DSCTLIB,DISP=SHR // DD DSN=&INDEX..SDFHCOB,DISP=SHR // DD DSN=&INDEX..SDFHMAC,DISP=SHR // DD DSN=&INDEX..SDFHSAMP,DISP=SHR //SYSPRINT DD SYSOUT=&OUTC //SYSIN DD DSN=&&SYSCIN,DISP=(OLD,DELETE) //SYSLIN DD DSN=&&LOADSET,DISP=(MOD,PASS), // UNIT=&WORK,SPACE=(80,(250,100)) //SYSUT1 DD UNIT=&WORK,SPACE=(460,(350,100)) //SYSUT2 DD UNIT=&WORK,SPACE=(460,(350,100)) //SYSUT3 DD UNIT=&WORK,SPACE=(460,(350,100)) //SYSUT4 DD UNIT=&WORK,SPACE=(460,(350,100)) //SYSUT5 DD UNIT=&WORK,SPACE=(460,(350,100)) //SYSUT6 DD UNIT=&WORK,SPACE=(460,(350,100)) //SYSUT7 DD UNIT=&WORK,SPACE=(460,(350,100)) //* //COPYLINK EXEC PGM=IEBGENER,COND=(7,LT,COB) //SYSUT1 DD DSN=&INDEX..&LIB(&STUB),DISP=SHR //SYSUT2 DD DSN=&©LINK,DISP=(NEW,PASS), // DCB=(LRECL=80,BLKSIZE=400,RECFM=FB), // UNIT=&WORK,SPACE=(400,(20,20)) //SYSPRINT DD SYSOUT=&OUTC //SYSIN DD DUMMY //* //LKED EXEC PGM=IEWL,REGION=®, // PARM='&LNKPARM',COND=(5,LT,COB) //SYSLIB DD DSN=&INDEX..SDFHLOAD,DISP=SHR // DD DSN=&COMPHLQ..SCEECICS,DISP=SHR // DD DSN=&COMPHLQ..SCEELKED,DISP=SHR //SYSLMOD DD DSN=&PROGLIB,DISP=SHR //SYSUT1 DD UNIT=&WORK,DCB=BLKSIZE=1024, // SPACE=(1024,(200,20)) //SYSPRINT DD SYSOUT=&OUTC //SYSLIN DD DSN=&©LINK,DISP=(OLD,DELETE) // DD DSN=&&LOADSET,DISP=(OLD,DELETE) // DD DDNAME=SYSIN |
Code: |
// DSCTLIB=MSTRAM.CICS.SDFHMAC,
// PROGLIB=MSTRAM.LIB2.LOAD |
output generated using printer-friendly topic mod. All times are GMT - 5 Hours