| 1 | ****************************************************************** |
| 2 | * DCLGEN TABLE(AWSTSSC.AUTHFRDS) * |
| 3 | * LIBRARY(XXXXXXX.DB2.DCLGEN(AUTHFRDS)) * |
| 4 | * LANGUAGE(COBOL) * |
| 5 | * QUOTE * |
| 6 | * ... IS THE DCLGEN COMMAND THAT MADE THE FOLLOWING STATEMENTS * |
| 7 | ****************************************************************** |
| 8 | * Copyright Amazon.com, Inc. or its affiliates. |
| 9 | * All Rights Reserved. |
| 10 | * |
| 11 | * Licensed under the Apache License, Version 2.0 (the "License"). |
| 12 | * You may not use this file except in compliance with the License. |
| 13 | * You may obtain a copy of the License at |
| 14 | * |
| 15 | * http://www.apache.org/licenses/LICENSE-2.0 |
| 16 | * |
| 17 | * Unless required by applicable law or agreed to in writing, |
| 18 | * software distributed under the License is distributed on an |
| 19 | * "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, |
| 20 | * either express or implied. See the License for the specific |
| 21 | * language governing permissions and limitations under the License |
| 22 | ****************************************************************** |
| 23 | |
| 24 | EXEC SQL DECLARE CARDDEMO.AUTHFRDS TABLE |
| 25 | ( CARD_NUM CHAR(16) NOT NULL, |
| 26 | AUTH_TS TIMESTAMP NOT NULL, |
| 27 | AUTH_TYPE CHAR(4), |
| 28 | CARD_EXPIRY_DATE CHAR(4), |
| 29 | MESSAGE_TYPE CHAR(6), |
| 30 | MESSAGE_SOURCE CHAR(6), |
| 31 | AUTH_ID_CODE CHAR(6), |
| 32 | AUTH_RESP_CODE CHAR(2), |
| 33 | AUTH_RESP_REASON CHAR(4), |
| 34 | PROCESSING_CODE CHAR(6), |
| 35 | TRANSACTION_AMT DECIMAL(12, 2), |
| 36 | APPROVED_AMT DECIMAL(12, 2), |
| 37 | MERCHANT_CATAGORY_CODE CHAR(4), |
| 38 | ACQR_COUNTRY_CODE CHAR(3), |
| 39 | POS_ENTRY_MODE SMALLINT, |
| 40 | MERCHANT_ID CHAR(15), |
| 41 | MERCHANT_NAME VARCHAR(22), |
| 42 | MERCHANT_CITY CHAR(13), |
| 43 | MERCHANT_STATE CHAR(2), |
| 44 | MERCHANT_ZIP CHAR(9), |
| 45 | TRANSACTION_ID CHAR(15), |
| 46 | MATCH_STATUS CHAR(1), |
| 47 | AUTH_FRAUD CHAR(1), |
| 48 | FRAUD_RPT_DATE DATE, |
| 49 | ACCT_ID DECIMAL(11, 0), |
| 50 | CUST_ID DECIMAL(9, 0) |
| 51 | ) END-EXEC. |
| 52 | ****************************************************************** |
| 53 | * COBOL DECLARATION FOR TABLE AWSTSSC.AUTHFRDS * |
| 54 | ****************************************************************** |
| 55 | 01 DCLAUTHFRDS. |
| 56 | 10 CARD-NUM PIC X(16). |
| 57 | 10 AUTH-TS PIC X(26). |
| 58 | 10 AUTH-TYPE PIC X(4). |
| 59 | 10 CARD-EXPIRY-DATE PIC X(4). |
| 60 | 10 MESSAGE-TYPE PIC X(6). |
| 61 | 10 MESSAGE-SOURCE PIC X(6). |
| 62 | 10 AUTH-ID-CODE PIC X(6). |
| 63 | 10 AUTH-RESP-CODE PIC X(2). |
| 64 | 10 AUTH-RESP-REASON PIC X(4). |
| 65 | 10 PROCESSING-CODE PIC X(6). |
| 66 | 10 TRANSACTION-AMT PIC S9(10)V9(2) USAGE COMP-3. |
| 67 | 10 APPROVED-AMT PIC S9(10)V9(2) USAGE COMP-3. |
| 68 | 10 MERCHANT-CATAGORY-CODE |
| 69 | PIC X(4). |
| 70 | 10 ACQR-COUNTRY-CODE PIC X(3). |
| 71 | 10 POS-ENTRY-MODE PIC S9(4) USAGE COMP. |
| 72 | 10 MERCHANT-ID PIC X(15). |
| 73 | 10 MERCHANT-NAME. |
| 74 | 49 MERCHANT-NAME-LEN |
| 75 | PIC S9(4) USAGE COMP. |
| 76 | 49 MERCHANT-NAME-TEXT |
| 77 | PIC X(22). |
| 78 | 10 MERCHANT-CITY PIC X(13). |
| 79 | 10 MERCHANT-STATE PIC X(2). |
| 80 | 10 MERCHANT-ZIP PIC X(9). |
| 81 | 10 TRANSACTION-ID PIC X(15). |
| 82 | 10 MATCH-STATUS PIC X(1). |
| 83 | 10 AUTH-FRAUD PIC X(1). |
| 84 | 10 FRAUD-RPT-DATE PIC X(10). |
| 85 | 10 ACCT-ID PIC S9(11)V USAGE COMP-3. |
| 86 | 10 CUST-ID PIC S9(9)V USAGE COMP-3. |
| 87 | ****************************************************************** |
| 88 | * THE NUMBER OF COLUMNS DESCRIBED BY THIS DECLARATION IS 26 * |
| 89 | ****************************************************************** |