MFmainframe-rea
WS carddemo · 26f629ef

proc · 177 lines · sha256 2b8df2961afc4366samples/proc/BLDCIDB2.prc

1//*********************************************************************
2//* THIS PROC IS USED TO COMPILE CICS + DB2 PROGRAMS
3//*********************************************************************
4//* Copyright Amazon.com, Inc. or its affiliates.
5//* All Rights Reserved.
6//*
7//* Licensed under the Apache License, Version 2.0 (the "License").
8//* You may not use this file except in compliance with the License.
9//* You may obtain a copy of the License at
10//*
11//* http://www.apache.org/licenses/LICENSE-2.0
12//*
13//* Unless required by applicable law or agreed to in writing,
14//* software distributed under the License is distributed on an
15//* "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND,
16//* either express or implied. See the License for the specific
17//* language governing permissions and limitations under the License
18//*********************************************************************
19//**** Sample CICS COBOL Db2 compile proc ******
20//**** Run after related BMS is compiled ******
21//**** Check with your Administrator for ******
22//**** JCL suitable to your environment ******
23//*********************************************************************
24//*
25//BLDONL PROC MEMNAME=,
26// HLQ=,
27// SSID=,
28// PLAN=,
29// SDSNEXIT=OEM.DB2.&SSID..SDSNEXIT,
30// SDSNLOAD=OEM.DB2.&SSID..SDSNLOAD,
31// SDFHLOAD=OEM.CICSTS.V05R06M0.CICS.SDFHLOAD,
32// SDFHCOB=OEM.CICSTS.V05R06M0.CICS.SDFHCOB,
33// SDFHMAC=OEM.CICSTS.V05R06M0.CICS.SDFHMAC,
34// DBRMLIB=&HLQ..DBRMLIB,
35// LIBPRFX=CEE,
36// COBLIB=IGY.SIGYCOMP.V63,
37// CPYBKS=&HLQ..CPY,
38// SRCLIB=&HLQ..CBL,
39// LOADLIB=&HLQ..LOADLIB
40//* LISTING=&HLQ..LST
41//*
42//*********************************************************
43//* Db2 Precompile the Cobol Program
44//* Draw all SQL statements out into DBRMLIB
45//*********************************************************
46//PRECMP EXEC PGM=DSNHPC,
47// PARM='HOST(IBMCOB),XREF,SOURCE,FLAG(I),APOST'
48//STEPLIB DD DSN=&SDSNEXIT,DISP=SHR
49// DD DSN=&SDSNLOAD,DISP=SHR
50//SYSIN DD DISP=SHR,DSN=&SRCLIB(&MEMNAME)
51//SYSCIN DD DSN=&&DSNHOUT,UNIT=VIO,
52// DISP=(NEW,PASS),SPACE=(TRK,(3,3)),
53// DCB=(BLKSIZE=&SYSLBLK)
54//DBRMLIB DD DISP=OLD,DSN=&DBRMLIB(&MEMNAME)
55//SYSLIB DD DISP=SHR,DSN=&DCLLIB
56// DD DISP=SHR,DSN=&COPYLIB
57// DD DISP=SHR,DSN=&CPYBKS
58//SYSPRINT DD SYSOUT=*
59//SYSTERM DD SYSOUT=*
60//SYSUDUMP DD SYSOUT=*
61//SYSUT1 DD SPACE=(80,(10,10),,,ROUND),UNIT=VIO
62//SYSUT2 DD SPACE=(80,(10,10),,,ROUND),UNIT=VIO
63//*
64//*********************************************************
65//* Perform CICS translation
66//* Replace CICS command blocks with call statements
67//*********************************************************
68//TRN EXEC PGM=DFHECP1$,PARM='NOSEQ',
69// REGION=2048K,COND=(0,NE,PRECMP)
70//STEPLIB DD DISP=SHR,DSN=&SDFHLOAD
71//SYSIN DD DSN=&&DSNHOUT,DISP=(OLD,DELETE)
72//SYSPRINT DD SYSOUT=*
73//SYSPUNCH DD DSN=&&SYSCIN,
74// DISP=(,PASS),UNIT=SYSDA,
75// DCB=BLKSIZE=400,
76// SPACE=(400,(400,100))
77//*********************************************************
78//* Perform COBOL Compilation
79//*********************************************************
80//COBOL EXEC PGM=IGYCRCTL,REGION=2048K,
81// PARM='RENT,NODYNAM,NOSEQ',COND=(0,NE)
82//STEPLIB DD DISP=SHR,DSN=&COBLIB
83//SYSLIB DD DISP=SHR,DSN=&DCLLIB
84// DD DISP=SHR,DSN=&COPYLIB
85// DD DISP=SHR,DSN=&CPYBKS
86// DD DISP=SHR,DSN=&SDFHCOB
87// DD DISP=SHR,DSN=&SDFHMAC
88//SYSPRINT DD SYSOUT=*
89//SYSIN DD DSN=&&SYSCIN,DISP=(OLD,DELETE)
90//SYSLIN DD DSN=&&LOADSET,UNIT=VIO,
91// DISP=(MOD,PASS),SPACE=(TRK,(3,3)),
92// DCB=(BLKSIZE=&SYSLBLK)
93//SYSUT1 DD UNIT=VIO,SPACE=(CYL,(1,1))
94//SYSUT2 DD UNIT=VIO,SPACE=(CYL,(1,1))
95//SYSUT3 DD UNIT=VIO,SPACE=(CYL,(1,1))
96//SYSUT4 DD UNIT=VIO,SPACE=(CYL,(1,1))
97//SYSUT5 DD UNIT=VIO,SPACE=(CYL,(1,1))
98//SYSUT6 DD UNIT=VIO,SPACE=(CYL,(1,1))
99//SYSUT7 DD UNIT=VIO,SPACE=(CYL,(1,1))
100//SYSUT8 DD UNIT=SYSDA,SPACE=(CYL,(1,2))
101//SYSUT9 DD UNIT=SYSDA,SPACE=(CYL,(1,2))
102//SYSUT10 DD UNIT=SYSDA,SPACE=(CYL,(1,2))
103//SYSUT11 DD UNIT=SYSDA,SPACE=(CYL,(1,2))
104//SYSUT12 DD UNIT=SYSDA,SPACE=(CYL,(1,2))
105//SYSUT13 DD UNIT=SYSDA,SPACE=(CYL,(1,2))
106//SYSUT14 DD UNIT=SYSDA,SPACE=(CYL,(1,2))
107//SYSUT15 DD UNIT=SYSDA,SPACE=(CYL,(1,2))
108//SYSMDECK DD UNIT=SYSDA,SPACE=(CYL,(1,2))
109//COND01 IF RC = 0 THEN
110//*********************************************************
111//* Link Edit
112//* Combine all the object modules to a single module
113//*********************************************************
114//LKED EXEC PGM=HEWL,COND=(0,NE),REGION=1024K
115//SYSLIB DD DISP=SHR,DSN=&LIBPRFX..SCEELKEX
116// DD DISP=SHR,DSN=&LIBPRFX..SCEELKED
117// DD DISP=SHR,DSN=&SDFHLOAD
118// DD DISP=SHR,DSN=&SDFHCOB
119// DD DISP=SHR,DSN=&SDSNLOAD
120// DD DISP=SHR,DSN=ISP.SISPLOAD
121// DD DISP=SHR,DSN=GDDM.SADMMOD
122// DD DSN=&LOADLIB,DISP=SHR
123//SYSPRINT DD SYSOUT=*
124//SYSLIN DD DISP=SHR,DSN=&SDFHCOB(DFHEILIC)
125// DD DISP=(OLD,DELETE),DSN=&&LOADSET
126// DD DDNAME=SYSIN
127//SYSLMOD DD DSNAME=&LOADLIB(&MEMNAME),
128// SPACE=(TRK,(10,10,1)),
129// UNIT=VIO,DISP=SHR
130//SYSUT1 DD UNIT=VIO,SPACE=(TRK,(10,10))
131//SYSIN DD DUMMY
132//*********************************************************************
133//* Bind all DBRMs into a single collection
134//*********************************************************************
135//BINDPK EXEC PGM=IKJEFT01,COND=(0,NE)
136//STEPLIB DD DISP=SHR,DSN=OEM.DB2.DAZ1.SDSNEXIT
137// DD DISP=SHR,DSN=OEMA.DB2.VERSIONA.SDSNLOAD
138//DBRMLIB DD DISP=SHR,DSN=&DBRMLIB(&MEMNAME)
139//SYSPRINT DD SYSOUT=*
140//SYSTSPRT DD SYSOUT=*
141//SYSUDUMP DD SYSOUT=*
142//SYSTSIN DD *,SYMBOLS=JCLONLY
143 DSN SYSTEM (&SSID)
144 BIND PACKAGE (CARDDEMO) -
145 MEMBER (&MEMNAME) -
146 QUALIFIER (CARDDEMO) -
147 ACTION (REPLACE) -
148 ISOLATION (CS) -
149 CURRENTDATA(YES) -
150 EXPLAIN (NO) -
151 ENCODING (EBCDIC)
152 END
153/*
154//*********************************************************************
155//* Bind Package to CardDemo Plan
156//* This plan must match with what we have defined in DB2ENTRY
157//*********************************************************************
158//BINDPL EXEC PGM=IKJEFT01,COND=(4,LT,BINDPK)
159//STEPLIB DD DISP=SHR,DSN=OEM.DB2.DAZ1.SDSNEXIT
160// DD DISP=SHR,DSN=OEMA.DB2.VERSIONA.SDSNLOAD
161//DBRMLIB DD DISP=SHR,DSN=&DBRMLIB(&MEMNAME)
162//SYSPRINT DD SYSOUT=*
163//SYSTSPRT DD SYSOUT=*
164//DEBUGLST DD SYSOUT=*
165//SYSUDUMP DD SYSOUT=*
166//SYSTSIN DD *,SYMBOLS=JCLONLY
167 DSN SYSTEM (&SSID)
168 BIND PLAN (&PLAN) -
169 PKLIST (CARDDEMO.*) -
170 QUALIFIER (CARDDEMO) -
171 ACTION (REPLACE) RETAIN -
172 ISOLATION (CS) -
173 CURRENTDATA(YES) -
174 ENCODING (EBCDIC)
175 END
176/*
177// ENDIF