MFmainframe-rea
WS carddemo · 26f629ef

jcl · 47 lines · sha256 488bddaab9561e74app/jcl/DEFCUST.jcl

1//DEFCUST JOB 'Define Customer Data File',CLASS=A,MSGCLASS=0,
2// NOTIFY=&SYSUID
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//* DELETE CUSTOMER VSAM FILE IF ONE ALREADY EXISTS
21//* *******************************************************************
22//STEP05 EXEC PGM=IDCAMS
23//SYSPRINT DD SYSOUT=*
24//SYSIN DD *
25 DELETE AWS.CCDA.CUSTDATA.CLUSTER -
26 CLUSTER
27/*
28//*
29//* *******************************************************************
30//* DELETE CUSTOMER VSAM FILE IF ONE ALREADY EXISTS
31//* *******************************************************************
32//STEP05 EXEC PGM=IDCAMS
33//SYSPRINT DD SYSOUT=*
34//SYSIN DD *
35 DEFINE CLUSTER (NAME(AWS.CUSTDATA.CLUSTER) -
36 CYLINDERS(1 5) -
37 KEYS(10 0) -
38 RECORDSIZE(500 500) -
39 SHAREOPTIONS(1 4) -
40 ERASE -
41 INDEXED -
42 ) -
43 DATA (NAME(AWS.CUSTDATA.CLUSTER.DATA) -
44 ) -
45 INDEX (NAME(AWS.CUSTDATA.CLUSTER.INDEX) -
46 )
47/*