MFmainframe-rea
WS carddemo · 26f629ef

jcl · 167 lines · sha256 364243e503e92d38app/jcl/CBADMCDJ.jcl

1//CBADMCDJ JOB (COBOL),'AWSCODR',CLASS=A,MSGCLASS=H,MSGLEVEL=(1,1),
2// NOTIFY=&SYSUID,TIME=1440
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//*********************************************************************
20//**** Create Resources for Card Demo application ******
21//*********************************************************************
22//* ---------------------------
23//* SET PARMS FOR THIS JOB:
24//* ---------------------------
25// SET HLQ=AWS.M2.CARDDEMO
26//*
27//STEP1 EXEC PGM=DFHCSDUP,REGION=0M,
28// PARM='CSD(READWRITE),PAGESIZE(60),NOCOMPAT'
29//STEPLIB DD DSN=OEM.CICSTS.V05R06M0.CICS.SDFHLOAD,DISP=SHR
30//DFHCSD DD UNIT=SYSDA,DISP=SHR,DSN=OEM.CICSTS.DFHCSD
31//OUTDD DD SYSOUT=*
32//SYSPRINT DD SYSOUT=*
33//SYSIN DD *,SYMBOLS=JCLONLY
34*/********************************************************************/
35*/* CARDDEMO CICS DEFINITIONS */
36*/********************************************************************/
37* NOTE: INSTALL GROUP(CARDDEMO) - CEDA IN G(CARDDEMO) *
38* IF YOU ARE RERUNNING THIS, UNCOMMENT THE DELETE COMMAND. *
39*
40* START CARDDEMO RESOURCES:
41*
42* DELETE GROUP(CARDDEMO)
43
44 DEFINE LIBRARY(COM2DOLL) GROUP(CARDDEMO)
45 DSNAME01(&HLQ..LOADLIB)
46
47* DEFINE TDQUEUE(CSSD) GROUP(CARDDEMO) TYPE(INTRA)
48* DEFINE TDQUEUE(IRDC) GROUP(CARDDEMO) TYPE(INTRA)
49
50 DEFINE MAPSET(COSGN00M) GROUP(CARDDEMO)
51 DESCRIPTION(LOGIN SCREEN)
52
53 DEFINE MAPSET(COSGN00M) GROUP(CARDDEMO)
54 DESCRIPTION(LOGIN SCREEN)
55
56 DEFINE MAPSET(COACT00S) GROUP(CARDDEMO)
57 DESCRIPTION(ACCOUNT MENU)
58 DEFINE MAPSET(COACTVWS) GROUP(CARDDEMO)
59 DESCRIPTION(VIEW ACCOUNT)
60 DEFINE MAPSET(COACTUPS) GROUP(CARDDEMO)
61 DESCRIPTION(UPDATE ACCOUNT)
62 DEFINE MAPSET(COACTDES) GROUP(CARDDEMO)
63 DESCRIPTION(DEACTIVATE ACCOUNT)
64
65 DEFINE MAPSET(COACT00S) GROUP(CARDDEMO)
66 DESCRIPTION(CARD MENU)
67 DEFINE MAPSET(COACTVWS) GROUP(CARDDEMO)
68 DESCRIPTION(VIEW CARD)
69 DEFINE MAPSET(COACTUPS) GROUP(CARDDEMO)
70 DESCRIPTION(UPDATE CARD)
71 DEFINE MAPSET(COACTDES) GROUP(CARDDEMO)
72 DESCRIPTION(DEACTIVATE CARD)
73
74 DEFINE MAPSET(COTRN00S) GROUP(CARDDEMO)
75 DESCRIPTION(TRANSACTION)
76 DEFINE MAPSET(COTRNVWS) GROUP(CARDDEMO)
77 DESCRIPTION(TRANSACTION REPORT)
78 DEFINE MAPSET(COTRNVDS) GROUP(CARDDEMO)
79 DESCRIPTION(TRANSACTION DETAILS)
80 DEFINE MAPSET(COTRNATS) GROUP(CARDDEMO)
81 DESCRIPTION(ADD TRANSACTIONS)
82
83 DEFINE MAPSET(COBIL00S) GROUP(CARDDEMO)
84 DESCRIPTION(BILL PAY SETUP)
85
86 DEFINE MAPSET(COADM00S) GROUP(CARDDEMO)
87 DESCRIPTION(ADMIN MENU)
88
89 DEFINE MAPSET(COTSTP1S) GROUP(CARDDEMO)
90 DESCRIPTION(PGM1 TEST)
91 DEFINE MAPSET(COTSTP2S) GROUP(CARDDEMO)
92 DESCRIPTION(PGM2 TEST)
93 DEFINE MAPSET(COTSTP3S) GROUP(CARDDEMO)
94 DESCRIPTION(PGM3 TEST)
95 DEFINE MAPSET(COTSTP4S) GROUP(CARDDEMO)
96 DESCRIPTION(PGM4 TEST)
97
98 DEFINE PROGRAM(COSGN00C) GROUP(CARDDEMO) DA(ANY) TRANSID(CC00)
99 DESCRIPTION(LOGIN)
100
101 DEFINE PROGRAM(COACT00C) GROUP(CARDDEMO) DA(ANY)
102 DESCRIPTION(ACCOUNT MAIN MENU)
103 DEFINE PROGRAM(COACTVWC) GROUP(CARDDEMO) DA(ANY)
104 DESCRIPTION(VIEW ACCOUNT)
105 DEFINE PROGRAM(COACTUPC) GROUP(CARDDEMO) DA(ANY)
106 DESCRIPTION(UPDATE ACCOUNT)
107 DEFINE PROGRAM(COACTDEC) GROUP(CARDDEMO) DA(ANY)
108 DESCRIPTION(DEACTIVATE ACCOUNT)
109
110 DEFINE PROGRAM(COACT00C) GROUP(CARDDEMO) DA(ANY)
111 DESCRIPTION(CARD MENU)
112 DEFINE PROGRAM(COACTVWC) GROUP(CARDDEMO) DA(ANY)
113 DESCRIPTION(VIEW CARD)
114 DEFINE PROGRAM(COACTUPC) GROUP(CARDDEMO) DA(ANY)
115 DESCRIPTION(UPDATE CARD)
116 DEFINE PROGRAM(COACTDEC) GROUP(CARDDEMO) DA(ANY)
117 DESCRIPTION(DEACTIVATE CARD)
118 DEFINE PROGRAM(COTRN00C) GROUP(CARDDEMO) DA(ANY)
119 DESCRIPTION(TRANSACTION)
120 DEFINE PROGRAM(COTRNVWC) GROUP(CARDDEMO) DA(ANY)
121 DESCRIPTION(TRANSACTION REPORT)
122 DEFINE PROGRAM(COTRNVDC) GROUP(CARDDEMO) DA(ANY)
123 DESCRIPTION(TRANSACTION DETAILS)
124 DEFINE PROGRAM(COTRNATC) GROUP(CARDDEMO) DA(ANY)
125 DESCRIPTION(ADD TRANSACTIONS)
126
127 DEFINE PROGRAM(COBIL00C) GROUP(CARDDEMO) DA(ANY)
128 DESCRIPTION(BILL PAY)
129
130 DEFINE PROGRAM(COADM00C) GROUP(CARDDEMO) DA(ANY)
131 DESCRIPTION(ADMIN MENU)
132 TRANSID(CCAD)
133
134 DEFINE PROGRAM(COTSTP1C) GROUP(CARDDEMO) DA(ANY)
135 DESCRIPTION(PGM1 TEST)
136 TRANSID(CCT1)
137 DEFINE PROGRAM(COTSTP2C) GROUP(CARDDEMO) DA(ANY)
138 DESCRIPTION(PGM2 TEST)
139 TRANSID(CCT2)
140 DEFINE PROGRAM(COTSTP3C) GROUP(CARDDEMO) DA(ANY)
141 DESCRIPTION(PGM1 TEST)
142 TRANSID(CCT3)
143 DEFINE PROGRAM(COTSTP4C) GROUP(CARDDEMO) DA(ANY)
144 DESCRIPTION(PGM4 TEST)
145 TRANSID(CCT4)
146
147 DEFINE TRANSACTION(CCDM) GROUP(CARDDEMO)
148 PROGRAM(COADM00C) TASKDATAL(ANY)
149
150 DEFINE TRANSACTION(CCT1) GROUP(CARDDEMO)
151 PROGRAM(COTSTP1C) TASKDATAL(ANY)
152 DEFINE TRANSACTION(CCT2) GROUP(CARDDEMO)
153 PROGRAM(COTSTP2C) TASKDATAL(ANY)
154 DEFINE TRANSACTION(CCT3) GROUP(CARDDEMO)
155 PROGRAM(COTSTP3C) TASKDATAL(ANY)
156 DEFINE TRANSACTION(CCT4) GROUP(CARDDEMO)
157 PROGRAM(COTSTP4C) TASKDATAL(ANY)
158
159 LIST GROUP(CARDDEMO)
160*
161* END CARDDEMO RESOURCES
162*
163/*
164//
165//*
166//* Ver: CardDemo_v1.0-70-g193b394-123 Date: 2022-08-22 17:02:44 CDT
167//*