MFmainframe-rea
WS carddemo · 26f629ef

jcl · 97 lines · sha256 d32627022d7686d1app/jcl/CREASTMT.JCL

1//CREASTMT JOB 'Create Statement',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//* This JCL will create statement for each CARD present in the XREF
20//* file
21//******************************************************************
22//DELDEF01 EXEC PGM=IDCAMS
23//SYSPRINT DD SYSOUT=*
24//SYSIN DD *
25 DELETE AWS.M2.CARDDEMO.TRXFL.SEQ
26 DELETE AWS.M2.CARDDEMO.TRXFL.VSAM.KSDS -
27 CLUSTER
28 SET MAXCC = 0
29 DEFINE CLUSTER (NAME(AWS.M2.CARDDEMO.TRXFL.VSAM.KSDS) -
30 KEYS(32 0) -
31 VOLUMES(TSU023) -
32 RECORDSIZE(350 350) -
33 SHAREOPTIONS(2 3) -
34 ERASE -
35 INDEXED -
36 CYL(1 5)) -
37 DATA (NAME(AWS.M2.CARDDEMO.TRXFL.DATA) -
38 CISZ(4096)) -
39 INDEX (NAME(AWS.M2.CARDDEMO.TRXFL.INDEX))
40/*
41//*********************************************************************
42//* CREATE COPY OF TRANSACT FILE WITH CARD NUMBER AND TRAN ID AS KEY
43//*********************************************************************
44//STEP010 EXEC PGM=SORT
45//SORTIN DD DISP=SHR,DSN=AWS.M2.CARDDEMO.TRANSACT.VSAM.KSDS
46//SYSPRINT DD SYSOUT=*
47//SYSOUT DD SYSOUT=*
48//SORTOUT DD DSN=AWS.M2.CARDDEMO.TRXFL.SEQ,
49// DISP=(NEW,CATLG,DELETE),UNIT=SYSDA,
50// DCB=(LRECL=350,BLKSIZE=3500,RECFM=FB),
51// SPACE=(CYL,(1,1),RLSE)
52//SYSIN DD *
53 SORT FIELDS=(263,16,CH,A,1,16,CH,A)
54 OUTREC FIELDS=(1:263,16,17:1,262,279:279,50)
55/*
56//STEP020 EXEC PGM=IDCAMS,COND=(0,NE)
57//SYSPRINT DD SYSOUT=*
58//INFILE DD DISP=SHR,DSN=AWS.M2.CARDDEMO.TRXFL.SEQ
59//OUTFILE DD DISP=SHR,DSN=AWS.M2.CARDDEMO.TRXFL.VSAM.KSDS
60//SYSIN DD *
61 REPRO INFILE(INFILE) OUTFILE(OUTFILE)
62/*
63//*********************************************************************
64//* DELETE TRANSACTION REPORTS FROM PREVIOUS RUN
65//*********************************************************************
66//STEP030 EXEC PGM=IEFBR14,COND=(0,NE)
67//HTMLFILE DD DISP=(MOD,DELETE,DELETE),
68// UNIT=SYSDA,
69// DCB=(LRECL=80,BLKSIZE=3200,RECFM=FB),
70// SPACE=(CYL,(1,1),RLSE),
71// DSN=AWS.M2.CARDDEMO.STATEMNT.HTML
72//STMTFILE DD DISP=(MOD,DELETE,DELETE),
73// DCB=(LRECL=80,BLKSIZE=8000,RECFM=FB),
74// SPACE=(CYL,(1,1),RLSE),
75// DSN=AWS.M2.CARDDEMO.STATEMNT.PS
76//*********************************************************************
77//* PRODUCING REPORT IN TEXT AND HTML - DEMONSTRATES CALLED SUBROUTINE
78//*********************************************************************
79//STEP040 EXEC PGM=CBSTM03A,COND=(0,NE)
80//STEPLIB DD DISP=SHR,DSN=AWS.M2.CARDDEMO.LOADLIB
81//SYSPRINT DD SYSOUT=*
82//SYSOUT DD SYSOUT=*
83//TRNXFILE DD DISP=SHR,DSN=AWS.M2.CARDDEMO.TRXFL.VSAM.KSDS
84//XREFFILE DD DISP=SHR,DSN=AWS.M2.CARDDEMO.CARDXREF.VSAM.KSDS
85//ACCTFILE DD DISP=SHR,DSN=AWS.M2.CARDDEMO.ACCTDATA.VSAM.KSDS
86//CUSTFILE DD DISP=SHR,DSN=AWS.M2.CARDDEMO.CUSTDATA.VSAM.KSDS
87//STMTFILE DD DISP=(NEW,CATLG,DELETE),
88// UNIT=SYSDA,
89// DCB=(LRECL=80,BLKSIZE=8000,RECFM=FB),
90// SPACE=(CYL,(1,1),RLSE), 00,RECFM=FB), ATA.VSAM.KSDS
91// DSN=AWS.M2.CARDDEMO.STATEMNT.PS
92//HTMLFILE DD DISP=(NEW,CATLG,DELETE),
93// UNIT=SYSDA,
94// DCB=(LRECL=100,BLKSIZE=800,RECFM=FB),
95// SPACE=(CYL,(1,1),RLSE),
96// DSN=AWS.M2.CARDDEMO.STATEMNT.HTML
97//*