| 1 | 000010******************************************************************00001000 |
| 2 | 000020* Copyright Amazon.com, Inc. or its affiliates. 00002000 |
| 3 | 000030* All Rights Reserved. 00003000 |
| 4 | 000040* 00004000 |
| 5 | 000050* Licensed under the Apache License, Version 2.0 (the "License"). 00005000 |
| 6 | 000060* You may not use this file except in compliance with the License.00006000 |
| 7 | 000070* You may obtain a copy of the License at 00007000 |
| 8 | 000080* 00008000 |
| 9 | 000090* http://www.apache.org/licenses/LICENSE-2.0 00009000 |
| 10 | 000091* 00009100 |
| 11 | 000092* Unless required by applicable law or agreed to in writing, 00009200 |
| 12 | 000093* software distributed under the License is distributed on an 00009300 |
| 13 | 000094* "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, 00009400 |
| 14 | 000095* either express or implied. See the License for the specific 00009500 |
| 15 | 000096* language governing permissions and limitations under the License00009600 |
| 16 | 000100******************************************************************00010000 |
| 17 | ****************************************************************** |
| 18 | * DCLGEN TABLE(CARDDEMO.TRANSACTION_TYPE_CATEGORY) * |
| 19 | * LIBRARY(SNJARAO.AWS.DCL(DCLTRCAT)) * |
| 20 | * ACTION(REPLACE) * |
| 21 | * LANGUAGE(COBOL) * |
| 22 | * NAMES(DCL-) * |
| 23 | * QUOTE * |
| 24 | * LABEL(YES) * |
| 25 | * COLSUFFIX(YES) * |
| 26 | * ... IS THE DCLGEN COMMAND THAT MADE THE FOLLOWING STATEMENTS * |
| 27 | ****************************************************************** |
| 28 | EXEC SQL DECLARE CARDDEMO.TRANSACTION_TYPE_CATEGORY TABLE |
| 29 | ( TRC_TYPE_CODE CHAR(2) NOT NULL, |
| 30 | TRC_TYPE_CATEGORY CHAR(4) NOT NULL, |
| 31 | TRC_CAT_DATA VARCHAR(50) NOT NULL |
| 32 | ) END-EXEC. |
| 33 | ****************************************************************** |
| 34 | * COBOL DECLARATION FOR TABLE CARDDEMO.TRANSACTION_TYPE_CATEGORY * |
| 35 | ****************************************************************** |
| 36 | 01 DCLTRANSACTION-TYPE-CATEGORY. |
| 37 | * ************************************************************* |
| 38 | * TRC_TYPE_CODE |
| 39 | 10 DCL-TRC-TYPE-CODE PIC X(2). |
| 40 | * ************************************************************* |
| 41 | * TRC_TYPE_CATEGORY |
| 42 | 10 DCL-TRC-TYPE-CATEGORY |
| 43 | PIC X(4). |
| 44 | * ************************************************************* |
| 45 | 10 DCL-TRC-CAT-DATA. |
| 46 | * TRC_CAT_DATA LENGTH |
| 47 | 49 DCL-TRC-CAT-DATA-LEN |
| 48 | PIC S9(4) USAGE COMP. |
| 49 | * TRC_CAT_DATA |
| 50 | 49 DCL-TRC-CAT-DATA-TEXT |
| 51 | PIC X(50). |
| 52 | ****************************************************************** |
| 53 | * THE NUMBER OF COLUMNS DESCRIBED BY THIS DECLARATION IS 3 * |
| 54 | ****************************************************************** |