| 1 | 000100******************************************************************00010000 |
| 2 | 000200* CardDemo - Admin Menu Options 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 | 001800******************************************************************00180000 |
| 19 | 001900 01 CARDDEMO-ADMIN-MENU-OPTIONS. 00190000 |
| 20 | 002000* Option added for Db2 release 00200000 |
| 21 | 002100* 05 CDEMO-ADMIN-OPT-COUNT PIC 9(02) VALUE 4. 00210000 |
| 22 | 002200 05 CDEMO-ADMIN-OPT-COUNT PIC 9(02) VALUE 6. 00220000 |
| 23 | 002300*Option added for Db2 release 00230000 |
| 24 | 002400 05 CDEMO-ADMIN-OPTIONS-DATA. 00240000 |
| 25 | 002500 00250000 |
| 26 | 002600 10 FILLER PIC 9(02) VALUE 1. 00260000 |
| 27 | 002700 10 FILLER PIC X(35) VALUE 00270000 |
| 28 | 002800 'User List (Security) '. 00280000 |
| 29 | 002900 10 FILLER PIC X(08) VALUE 'COUSR00C'. 00290000 |
| 30 | 003000 00300000 |
| 31 | 003100 10 FILLER PIC 9(02) VALUE 2. 00310000 |
| 32 | 003200 10 FILLER PIC X(35) VALUE 00320000 |
| 33 | 003300 'User Add (Security) '. 00330000 |
| 34 | 003400 10 FILLER PIC X(08) VALUE 'COUSR01C'. 00340000 |
| 35 | 003500 00350000 |
| 36 | 003600 10 FILLER PIC 9(02) VALUE 3. 00360000 |
| 37 | 003700 10 FILLER PIC X(35) VALUE 00370000 |
| 38 | 003800 'User Update (Security) '. 00380000 |
| 39 | 003900 10 FILLER PIC X(08) VALUE 'COUSR02C'. 00390000 |
| 40 | 004000 00400000 |
| 41 | 004100 10 FILLER PIC 9(02) VALUE 4. 00410000 |
| 42 | 004200 10 FILLER PIC X(35) VALUE 00420000 |
| 43 | 004300 'User Delete (Security) '. 00430000 |
| 44 | 004400 10 FILLER PIC X(08) VALUE 'COUSR03C'. 00440000 |
| 45 | 004500* Option added for Db2 V1 release start 00450002 |
| 46 | 004600 10 FILLER PIC 9(02) VALUE 5. 00460000 |
| 47 | 004700 10 FILLER PIC X(35) VALUE 00470000 |
| 48 | 004701 'Transaction Type List/Update (Db2) '. 00470102 |
| 49 | 004900 10 FILLER PIC X(08) VALUE 'COTRTLIC'. 00490002 |
| 50 | 004910 10 FILLER PIC 9(02) VALUE 6. 00491000 |
| 51 | 004920 10 FILLER PIC X(35) VALUE 00492000 |
| 52 | 004930 'Transaction Type Maintenance (Db2) '. 00493003 |
| 53 | 004940 10 FILLER PIC X(08) VALUE 'COTRTUPC'. 00494002 |
| 54 | 005000* Option added for Db2 v1 release end 00500002 |
| 55 | 005100 05 CDEMO-ADMIN-OPTIONS REDEFINES CDEMO-ADMIN-OPTIONS-DATA. 00510000 |
| 56 | 005200 10 CDEMO-ADMIN-OPT OCCURS 9 TIMES. 00520000 |
| 57 | 005300 15 CDEMO-ADMIN-OPT-NUM PIC 9(02). 00530000 |
| 58 | 005400 15 CDEMO-ADMIN-OPT-NAME PIC X(35). 00540000 |
| 59 | 005500 15 CDEMO-ADMIN-OPT-PGMNAME PIC X(08). 00550000 |
| 60 | 005600* 00560000 |
| 61 | 005700* Ver: CardDemo_v2.0-16-gbdcb6ea-226 Date: 2024-01-21 17:49:00 CST |
| 62 | 005800* 00580000 |