| 1 | 000100******************************************************************00010000 |
| 2 | 000200* CardDemo - Common Working Storage for Db2 00020000 |
| 3 | 000300******************************************************************00030000 |
| 4 | 000400* Copyright Amazon.com, Inc. or its affiliates. 00040000 |
| 5 | 000500* All Rights Reserved. 00050000 |
| 6 | 000600* 00060000 |
| 7 | 000700* Licensed under the Apache License, Version 2.0 (the "License"). 00070000 |
| 8 | 000800* You may not use this file except in compliance with the License.00080000 |
| 9 | 000900* You may obtain a copy of the License at 00090000 |
| 10 | 001000* 00100000 |
| 11 | 001100* http://www.apache.org/licenses/LICENSE-2.0 00110000 |
| 12 | 001200* 00120000 |
| 13 | 001300* Unless required by applicable law or agreed to in writing, 00130000 |
| 14 | 001400* software distributed under the License is distributed on an 00140000 |
| 15 | 001500* "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, 00150000 |
| 16 | 001600* either express or implied. See the License for the specific 00160000 |
| 17 | 001700* language governing permissions and limitations under the License00170000 |
| 18 | 036900******************************************************************03690000 |
| 19 | 037000* Db2 Common variables 03700000 |
| 20 | 037100******************************************************************03710000 |
| 21 | 037101 05 WS-DB2-COMMON-VARS. 03710100 |
| 22 | 037102 10 WS-DISP-SQLCODE PIC ----9. 03710200 |
| 23 | 037103 10 WS-DUMMY-DB2-INT PIC S9(4) COMP-3 03710300 |
| 24 | 037104 VALUE 0. 03710400 |
| 25 | 037105 10 WS-DB2-PROCESSING-FLAG PIC X(1). 03710500 |
| 26 | 037106 88 WS-DB2-OK VALUE '0'. 03710600 |
| 27 | 037107 88 WS-DB2-ERROR VALUE '1'. 03710700 |
| 28 | 037108 10 WS-DB2-CURRENT-ACTION PIC X(72) 03710800 |
| 29 | 037109 VALUE SPACES. 03710900 |
| 30 | 037110******************************************************************03711000 |
| 31 | 037111* Db2 DSNTIAC Message Construction 03711100 |
| 32 | 037112******************************************************************03711200 |
| 33 | 037200 05 WS-DSNTIAC-FORMATTED. 03720000 |
| 34 | 037300 10 WS-DSNTIAC-MESG-LEN PIC S9(4) USAGE COMP VALUE +720. 03730000 |
| 35 | 037400 10 WS-DSNTIAC-FMTD-TEXT. 03740001 |
| 36 | 037500 15 WS-DSNTIAC-FMTD-TEXT-LINE 03750001 |
| 37 | 037600 PIC X(72) 03760000 |
| 38 | 037700 OCCURS 10 TIMES 03770000 |
| 39 | 037800 VALUE SPACES. 03780000 |
| 40 | 037900 03790000 |
| 41 | 038000 05 WS-DSNTIAC-LRECL PIC S9(4) USAGE COMP VALUE +72. 03800000 |
| 42 | 038100 05 WS-DSNTIAC-ERROR. 03810000 |
| 43 | 038200 10 WS-DSNTIAC-ERR-MSG PIC X(10) VALUE 'DSNTIAC CD'. 03820000 |
| 44 | 038300 10 WS-DSNTIAC-ERR-CD-X PIC X(02) VALUE SPACES. |
| 45 | 10 WS-DSNTIAC-ERR-CD REDEFINES |
| 46 | WS-DSNTIAC-ERR-CD-X PIC 9(02). 03830000 |