COMPILE & RUN JCL LIBRARIES

DB2-CICS SAMPLE PROGRAM

File Edit Confirm Menu Utilities Compilers Test Help

EDIT IBMMFS.PROC.DB2(DB2CICSC) - 01.05 Columns 00001 - 00072
****** ***************************** Top of Data **************************************
000001 ID DIVISION.
000002 PROGRAM-ID. BOBOL.
000003 DATA DIVISION.
000004 WORKING-STORAGE SECTION.
000005 EXEC SQL INCLUDE SQLCA END-EXEC.
000006 01 TINUI.
000007 02 FILLER PIC X(12).
000008 02 TTL COMP PIC S9(4).
000009 02 TTF PICTURE X.
000010 02 FILLER REDEFINES TTF.
000011 03 TTA PICTURE X.
000012 02 TTI PIC X(10).
000013 01 TINUO REDEFINES TINUI.
000014 02 FILLER PIC X(12).
000015 02 FILLER PICTURE X(3).
000016 02 TTO PIC X(10).
000017 01 ZZ PIC S9(9) COMP.
000018 01 XX PIC X(10) VALUE SPACES.
000019 PROCEDURE DIVISION.
000020 0001.
000021 EXEC SQL WHENEVER SQLWARNING CONTINUE END-EXEC.
000022 MOVE 'WELCOME' TO XX.
000023 EXEC CICS SEND TEXT FROM(XX) ERASE END-EXEC.
000024 EXEC CICS RECEIVE END-EXEC.
000025 EXEC CICS SEND
000026 MAP('TINU') MAPSET('BINU')
000027 FROM(TINUO) ERASE END-EXEC.
000028 EXEC CICS RECEIVE MAP('TINU') MAPSET('BINU')
000029 INTO(TINUI) END-EXEC.
000030 MOVE 'MANOJ' TO XX.
000031 EXEC SQL INSERT INTO MAC VALUES(23,:XX) END-EXEC.
000032 MOVE SPACES TO XX.
000033 EXEC SQL SELECT B INTO :XX FROM MAC WHERE A = 23 END-EXEC.
000034 EXEC CICS SEND FROM(XX) ERASE END-EXEC.
000035 EXEC CICS RETURN END-EXEC.
****** **************************** Bottom of Data ************************************

Command ===> SUB Scroll ===> PAGE

F1=Help F3=Exit F5=Rfind F6=Rchange F12=Cancel

DB2 PRECOMPILE+TRANSLATE+COMP+LINK PROC

File Edit Confirm Menu Utilities Compilers Test Help

EDIT IBMMFS.PROC.DB2(DB2CICSC) - 01.05                                              Columns 00001 - 00072
****** ***************************** Top of Data **************************************
000001 //DB2CICSC PROC INLIB=,SRCLIB=,DBRMLIB=,RPLLIB=,
000002 //                                  MEM=,
000003 //                                  DB2VER=DSN510,WKSPC=500,
000004 //                                  LNGPRFX='IGY.V2R1M0',SYSLBLK=3200,
000005 //                                  LIBPRFX='CEE', <<LANGUAGE ENVIRONMENT>>
000006 //                                  INDEX2='CICS410',
000007 //                                  OUTC=*,REG=4096K,SUFFIX=1$
000008 //* PARAMETER DEFAULT VALUE USAGE
000009 //* DB2VER DSN510 DB2 SYSTEM LIBS(+ SYS1. .SDSNEXIT)
000010 //* INDEX2 CICS410 VERSION FOR CICS SDFHLOAD LIB
000011 //* LIBPRFX CEE PREFIX FOR LANG ENVIRO LIB DSNS
000012 //* LNGPRFX IGY.V2R1M0 PREFIX FOR LANGUAGE DSNAMES
000013 //* WKSPC 500 TRACKS FOR PRECOMPILE WORKSPACE
000014 //* SYSLBLK 3200 BLOCKSIZE FOR OBJECT DATA SET
000015 //* INLIB NO DEFAULT DSNAME FOR USER SOURCE LIB
000016 //* SRCLIB NO DEFAULT DSNAME FOR USER AUX INPUT (COPY?)
000017 //* DBRMLIB NO DEFAULT HIGH INDEX FOR DB2 PLAN LIB
000018 //* RPLLIB NO DEFAULT DSNAME FOR OUTPUT LOAD MODULE
000019 //* MEM NO DEFAULT MEMBER NAME FOR SOURCE PROGAM
000020 //*
000021 //* ======== DB2 5.1 / CICS 4.10 / COBOLM / COMPILE & LINK
000022 //*
000023 //* - DB2 PRECOMPILE (PC),
000024 //* - CICS TRANSLATION STEP,
000025 //* - IBM COBOL COMPILE (COB),
000026 //* - REBLOCK CICS STUB,
000027 //* - PRELINK (PLKED),
000028 //* - AND LINK EDIT (LKED) A DB2 SQL PROGRAM.
000029 //*
000030 //********************************************************************
000031 //* DB2 PRECOMPILE OF THE IBM COBOL PROGRAM *
000032 //********************************************************************
000033 //PC EXEC PGM=DSNHPC,PARM='HOST(IBMCOB)',REGION=4096K
000034 //DBRMLIB DD DSN=&DBRMLIB(&MEM),DISP=SHR <== PLANINFO
000035 //STEPLIB DD DISP=SHR,DSN=SYS1.&DB2VER..SDSNEXIT
000036 // DD DISP=SHR,DSN=&DB2VER..SDSNLOAD
000037 //SYSCIN DD DSN=&&DSNHOUT,DISP=(MOD,PASS), <== ALTEREDSOURCE
000038 // UNIT=SYSDA,SPACE=(800,(&WKSPC,&WKSPC))
000039 //SYSLIB DD DSN=&SRCLIB,DISP=SHR
000040 //SYSPRINT DD SYSOUT=*
000041 //SYSTERM DD SYSOUT=*
000042 //SYSUDUMP DD SYSOUT=*
000043 //SYSUT1 DD SPACE=(800,(&WKSPC,&WKSPC),,,ROUND),UNIT=SYSDA
000044 //SYSUT2 DD SPACE=(800,(&WKSPC,&WKSPC),,,ROUND),UNIT=SYSDA
000045 //SYSIN DD DSN=&INLIB(&MEM),DISP=SHR
000046 //*
000047 //********************************************************************
000048 //* PASS THE OUTPUT OF PRECOMPILE TO CICS TRANSLATOR *
000049 //********************************************************************
000050 //TRN EXEC PGM=DFHECP&SUFFIX,REGION=&REG,COND=(4,LT,PC),
000051 // PARM='COBOL3,LANGLVL(2),NODEBUG,NOSOURCE,SP,NOOPT'
000052 //STEPLIB DD DSN=&INDEX2..SDFHLOAD,DISP=SHR
000053 //SYSPRINT DD SYSOUT=&OUTC
000054 //SYSPUNCH DD DSN=&&SYSCIN,DISP=(,PASS),
000055 // UNIT=SYSDA,DCB=BLKSIZE=400,
000056 // SPACE=(400,(400,400))
000057 //SYSIN DD DSN=&&DSNHOUT,DISP=(OLD,DELETE)
000058 //*
000059 //********************************************************************
000060 //* COMPILE THE NEW MODIFIED SOURCE FROM THE TRANSLATE STEP *
000061 //********************************************************************
000062 //COB EXEC PGM=IGYCRCTL,REGION=2048K,COND=(4,LT,TRN)
000063 //STEPLIB DD DSNAME=&LNGPRFX..SIGYCOMP,DISP=SHR
000064 //SYSPRINT DD SYSOUT=*
000065 //SYSLIN DD DSNAME=&&LOADSET,UNIT=SYSDA,
000066 // DISP=(MOD,PASS),SPACE=(CYL,(1,1)),
000067 // DCB=(BLKSIZE=&SYSLBLK)
000068 //SYSUT1 DD UNIT=SYSDA,SPACE=(CYL,(1,1))
000069 //SYSUT2 DD UNIT=SYSDA,SPACE=(CYL,(1,1))
000070 //SYSUT3 DD UNIT=SYSDA,SPACE=(CYL,(1,1))
000071 //SYSUT4 DD UNIT=SYSDA,SPACE=(CYL,(1,1))
000072 //SYSUT5 DD UNIT=SYSDA,SPACE=(CYL,(1,1))
000073 //SYSUT6 DD UNIT=SYSDA,SPACE=(CYL,(1,1))
000074 //SYSUT7 DD UNIT=SYSDA,SPACE=(CYL,(1,1))
000075 //SYSIN DD DSN=&&SYSCIN,DISP=(OLD,DELETE)
000076 //*
000077 //********************************************************************
000078 //* MAKE SURE THE SYSTEM CICS STUB IS BLOCKSIZE WE CAN USE *
000079 //********************************************************************
000080 //CPY4LNK EXEC PGM=IEBGENER,COND=(7,LT,COB)
000081 //SYSUT1 DD DSN=&INDEX2..SDFHCOB(DFHEILIC),DISP=SHR
000082 //SYSUT2 DD UNIT=SYSDA,DSN=&&EI1STUB,DISP=(,PASS),
000083 // DCB=(LRECL=80,BLKSIZE=400,RECFM=FB),SPACE=(400,(20,20))
000084 //SYSPRINT DD SYSOUT=*
000085 //SYSIN DD DUMMY
000086 //*
000087 //********************************************************************
000088 //* PRELINK STEP FOR CEE MODULES AND UNIX SERVICES *
000089 //********************************************************************
000090 //PLKED EXEC PGM=EDCPRLK,REGION=2048K,COND=((4,LT,PC),(4,LT,COB))
000091 //STEPLIB DD DSN=&LIBPRFX..SCEERUN,DISP=SHR
000092 //SYSMSGS DD DSN=&LIBPRFX..SCEEMSGP(EDCPMSGE),DISP=SHR
000093 //SYSIN DD DSN=&&LOADSET,DISP=(OLD,DELETE)
000094 //SYSLIB DD DSN=SOMMVS.SGOSLNKL,DISP=SHR
000095 //SYSMOD DD DSN=&&PLKSET,UNIT=SYSDA,DISP=(MOD,PASS),
000096 // SPACE=(32000,(30,30)),
000097 // DCB=(RECFM=FB,LRECL=80,BLKSIZE=3200)
000098 //SYSDEFSD DD DUMMY
000099 //SYSOUT DD SYSOUT=*
000100 //SYSPRINT DD SYSOUT=*
000101 //SYSTERM DD SYSOUT=*
000102 //********************************************************************
000103 //* LINKEDIT OUTPUT FROM CPY4LNK & PRELINK & SYSIN OVERRIDE *
000104 //********************************************************************
000105 //LKED EXEC PGM=HEWL,COND=(8,LT,COB),REGION=1024K
000106 //SYSLIB DD DSNAME=&INDEX2..SDFHLOAD,DISP=SHR
000107 // DD DSNAME=&LIBPRFX..SCEERUN,DISP=SHR
000108 // DD DSNAME=&LIBPRFX..SCEELKED,DISP=SHR
000109 // DD DSNAME=&LIBPRFX..SCEECICS,DISP=SHR
000110 //SYSPRINT DD SYSOUT=*
000111 //SYSLIN DD DSNAME=&&EI1STUB,DISP=(OLD,DELETE)
000112 // DD DSN=&&PLKSET,DISP=(OLD,DELETE)
000113 // DD DDNAME=SYSIN
000114 //SYSUT1 DD UNIT=SYSDA,SPACE=(TRK,(10,10))
000115 //SYSLMOD DD DSNAME=&RPLLIB,DISP=SHR
000116 //DB2LOAD DD DSNAME=&DB2VER..SDSNLOAD,DISP=SHR
000117 //SYSIN DD DUMMY   <= LKED.SYSIN SHOULD OVERLOAD DSNCLI & PGMNAME
000118 //*
000119 // PEND                    <= END OF DB2CICSC PROC
000120 //*
****** **************************** Bottom of Data ************************************

Command ===>  SUB                                                                                                     Scroll ===> PAGE

F1=Help F3=Exit F5=Rfind F6=Rchange F12=Cancel

Ž IBMMAINFRAMES.com Training Division Š www.ibmmainframes.com