File Edit Confirm Menu Utilities Compilers Test Help
EDIT
IBMMFS.PROC.CICS(COBMCIC4) - 01.05 Columns 00001 - 00072
****** ***************************** Top of Data **************************************
000001 //********************************************************************
000002 //****** SAMPLE PROC 'COBMCIC4' FOR CICS/ESA VERSION 4.1 *******
000003 //****** TRANSLATE, COMPILE, AND LINK-EDIT *******
000004 //** MODIFIED TO ALLOW CALLS TO COMMON PROGRAMMING INTERFACE *
000005 //********************************************************************
000006 //* PARAMETER DEFAULT VALUE USAGE
000007 //* LNGPRFX IGY.V2R1M0 PREFIX FOR LANGUAGE DSNAMES
000008 //* INDEX2 CICS410 VERSION FOR CICS SDFHLOAD LIB
000009 //* LIBPRFX CEE PREFIX FOR LANG ENVIRO LIB DSNS
000010 //* SYSLBLK 3200 BLOCKSIZE FOR OBJECT DATA SET
000011 //* PGMLIB &&GOSET DSNAME FOR OUTPUT LOAD MODULE
000012 //* GOPGM GO MEMBER NAME FOR LOAD MODULE
000013 //****
000014 //COBMCIC4 PROC LNGPRFX='IGY.V2R1M0',SYSLBLK=3200,
000015 // LIBPRFX='CEE', <<LANGUAGE ENVIRONMENT>>
000016 // PGMLIB='&&GOSET',GOPGM=GO,INDEX2='CICS410',
000017 // OUTC=*,REG=4096K,SUFFIX=1$
000018 //TRN EXEC PGM=DFHECP&SUFFIX,REGION=®, <<CICS TRANSLATOR>>
000019 // PARM='COBOL3,LANGLVL(2),NODEBUG,NOSOURCE,SP,NOOPT'
000020 //STEPLIB DD DSN=&INDEX2..SDFHLOAD,DISP=SHR
000021 //SYSPRINT DD SYSOUT=&OUTC
000022 //SYSPUNCH DD DSN=&&SYSCIN,
000023 // DISP=(,PASS),UNIT=SYSDA,
000024 // DCB=BLKSIZE=400,
000025 // SPACE=(400,(400,400))
000026 //********************************************************************
000027 //COB EXEC PGM=IGYCRCTL,REGION=2048K
000028 //STEPLIB DD DSNAME=&LNGPRFX..SIGYCOMP,DISP=SHR
000029 //SYSPRINT DD SYSOUT=*
000030 //SYSIN DD DSN=&&SYSCIN,DISP=(OLD,DELETE)
000031 //SYSLIN DD DSNAME=&&LOADSET,UNIT=SYSDA,
000032 // DISP=(MOD,PASS),SPACE=(CYL,(1,1)),
000033 // DCB=(BLKSIZE=&SYSLBLK)
000034 //SYSUT1 DD UNIT=SYSDA,SPACE=(CYL,(1,1))
000035 //SYSUT2 DD UNIT=SYSDA,SPACE=(CYL,(1,1))
000036 //SYSUT3 DD UNIT=SYSDA,SPACE=(CYL,(1,1))
000037 //SYSUT4 DD UNIT=SYSDA,SPACE=(CYL,(1,1))
000038 //SYSUT5 DD UNIT=SYSDA,SPACE=(CYL,(1,1))
000039 //SYSUT6 DD UNIT=SYSDA,SPACE=(CYL,(1,1))
000040 //SYSUT7 DD UNIT=SYSDA,SPACE=(CYL,(1,1))
000041 //CPY4LNK EXEC PGM=IEBGENER,COND=(7,LT,COB)
000042 //SYSUT1 DD DSN=CICS410.SDFHCOB(DFHEILIC),DISP=SHR
000043 //SYSUT2 DD UNIT=SYSDA,DSN=&&EI1STUB,DISP=(,PASS),
000044 // DCB=(LRECL=80,BLKSIZE=400,RECFM=FB),SPACE=(400,(20,20))
000045 //SYSPRINT DD SYSOUT=*
000046 //SYSIN DD DUMMY
000047 //LKED EXEC PGM=HEWL,COND=(8,LT,COB),REGION=1024K
000048 //SYSLIB DD DSNAME=&INDEX2..SDFHLOAD,DISP=SHR
000049 // DD DSNAME=&LIBPRFX..SCEERUN,DISP=SHR
000050 // DD DSNAME=&LIBPRFX..SCEELKED,DISP=SHR
000051 // DD DSNAME=&LIBPRFX..SCEECICS,DISP=SHR
000052 //SYSPRINT DD SYSOUT=*
000053 //SYSLIN DD DSNAME=&&EI1STUB,DISP=(OLD,DELETE)
000054 // DD DSNAME=&&LOADSET,DISP=(OLD,DELETE)
000055 // DD DDNAME=SYSIN
000056 //SYSLMOD DD DSNAME=&PGMLIB(&GOPGM),
000057 // SPACE=(TRK,(10,10,1)),
000058 // UNIT=SYSDA,DISP=(MOD,PASS)
000059 //SYSUT1 DD UNIT=SYSDA,SPACE=(TRK,(10,10))
000060 //* END OF COBMCIC4 PROC
****** **************************** Bottom of Data ************************************
Command ===> SAVE Scroll ===> PAGE
F1=Help F3=Exit F5=Rfind F6=Rchange F12=Cancel
|