MFmainframe-rea
WS carddemo · 26f629ef

proc · 105 lines · sha256 ffa528cb8e0afcdesamples/proc/BUILDBMS.prc

1//*********************************************************************
2//* THIS PROC IS USED TO COMPILE BMS MAPS
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 BMS Compile PROC ******
20//**** Check with your Administrator for ******
21//**** JCL suitable to your environment ******
22//*********************************************************************
23//BUILDBMS PROC MAPNAME=,
24// HLQ=,
25// SRCCODE=&HLQ..CARDDEMO.BMS,
26// LOADLIB=&HLQ..CARDDEMO.LOADLIB,
27// CPYBKS=&HLQ..CARDDEMO.CPY,
28// CICSMAC=OEM.CICSTS.V05R06M0.CICS.SDFHMAC,
29// LISTING=&HLQ..CARDDEMO.LST
30//* ---------------------------
31//* PROCEDURE TO COMPILE BMS MAP
32//* ---------------------------
33//* PRINT BMS MAP DATA
34//* ---------------------------
35//*
36//PRINT EXEC PGM=IEBGENER
37//SYSPRINT DD SYSOUT=*
38//SYSUT2 DD DSN=&&TEMPM,UNIT=3390,DISP=(,PASS),
39// DCB=(RECFM=FB,LRECL=80,BLKSIZE=400),
40// SPACE=(400,(50,50))
41//SYSIN DD DUMMY
42//SYSUT1 DD DSN=&SRCCODE(&MAPNAME),
43// DISP=SHR
44//*
45//* ---------------------------
46//* ASSEMBLE MAP
47//* ---------------------------
48//*
49//MAP EXEC PGM=ASMA90,PARM='SYSPARM(MAP),DECK,NOLOAD'
50//SYSPRINT DD SYSOUT=*
51//*YSPRINT DD DSN=&LISTING(&MAPNAME),DISP=SHR
52//SYSLIB DD DSN=&CICSMAC,DISP=SHR
53// DD DSN=SYS1.MACLIB,DISP=SHR
54// DD DSN=CEE.SCEEMAC,DISP=SHR
55//SYSUT1 DD UNIT=3390,SPACE=(TRK,(15,15))
56//SYSUT2 DD UNIT=3390,SPACE=(TRK,(15,15))
57//SYSUT3 DD UNIT=3390,SPACE=(TRK,(15,15))
58//SYSPUNCH DD DSN=&&MAP,DISP=(,PASS),UNIT=3390,
59// DCB=(RECFM=FB,LRECL=80,BLKSIZE=400),
60// SPACE=(400,(50,50))
61//SYSIN DD DSN=&&TEMPM,DISP=(OLD,PASS)
62//SYSLIN DD DUMMY
63//*
64//* ---------------------------
65//* LINK-EDIT STEP
66//* ---------------------------
67//*
68//LKED EXEC PGM=HEWL,PARM='LIST,LET,XREF'
69//SYSPRINT DD SYSOUT=*
70//SYSLMOD DD DSN=&LOADLIB(&MAPNAME),DISP=SHR
71//SYSUT1 DD UNIT=3390,SPACE=(1024,(20,20))
72//SYSLIN DD DSN=&&MAP,DISP=(OLD,DELETE)
73//*
74//* ---------------------------
75//* DSECT GENERATION
76//* ---------------------------
77//*
78//DSECT EXEC PGM=ASMA90,PARM='SYSPARM(DSECT),DECK,NOLOAD'
79//*SECT EXEC PGM=ASMA90,PARM='SYSPARM(DSECT),DECK'
80//*YSPRINT DD SYSOUT=*
81//SYSPRINT DD DSN=&LISTING(&MAPNAME),DISP=SHR
82//SYSLIB DD DSN=&CICSMAC,DISP=SHR
83// DD DSN=SYS1.MACLIB,DISP=SHR
84// DD DSN=CEE.SCEEMAC,DISP=SHR
85//SYSUT1 DD UNIT=3390,SPACE=(TRK,(15,15))
86//SYSUT2 DD UNIT=3390,SPACE=(TRK,(15,15))
87//SYSUT3 DD UNIT=3390,SPACE=(TRK,(15,15))
88//SYSPUNCH DD DSN=&CPYBKS(&MAPNAME),DISP=OLD,
89// DCB=(RECFM=FB,LRECL=80,BLKSIZE=400),
90// SPACE=(400,(50,50)),UNIT=3390
91//SYSIN DD DSN=&&TEMPM,DISP=(OLD,PASS)
92//SYSLIN DD DUMMY
93//* *********************************
94//* REPLICATE LISTING ON SYSOUT
95//* *********************************
96//DISPLIST EXEC PGM=IEBGENER,REGION=0M
97//SYSPRINT DD SYSOUT=*
98//SYSUT1 DD DSN=&LISTING(&MAPNAME),DISP=SHR
99//SYSUT2 DD SYSOUT=*
100//SYSPRINT DD SYSOUT=*
101//SYSIN DD DUMMY
102//*
103//DELTEMP EXEC PGM=IEFBR14
104//TEMPM DD DSN=&&TEMPM,DISP=(OLD,DELETE)
105//*