| 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) * |
| 19 | * LIBRARY(SNJARAO.AWS.DCL(DCLTRTYP)) * |
| 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 TABLE |
| 29 | ( TR_TYPE CHAR(2) NOT NULL, |
| 30 | TR_DESCRIPTION VARCHAR(50) NOT NULL |
| 31 | ) END-EXEC. |
| 32 | ****************************************************************** |
| 33 | * COBOL DECLARATION FOR TABLE CARDDEMO.TRANSACTION_TYPE * |
| 34 | ****************************************************************** |
| 35 | 01 DCLTRANSACTION-TYPE. |
| 36 | * ************************************************************* |
| 37 | * TR_TYPE |
| 38 | 10 DCL-TR-TYPE PIC X(2). |
| 39 | * ************************************************************* |
| 40 | 10 DCL-TR-DESCRIPTION. |
| 41 | * TR_DESCRIPTION LENGTH |
| 42 | 49 DCL-TR-DESCRIPTION-LEN |
| 43 | PIC S9(4) USAGE COMP. |
| 44 | * TR_DESCRIPTION |
| 45 | 49 DCL-TR-DESCRIPTION-TEXT |
| 46 | PIC X(50). |
| 47 | ****************************************************************** |
| 48 | * THE NUMBER OF COLUMNS DESCRIBED BY THIS DECLARATION IS 2 * |
| 49 | ****************************************************************** |