DUTAS re-platformed to Raincode - Initial Source Code

This commit is contained in:
Neeraj Kumar
2025-07-21 07:44:09 -04:00
commit ca3572c5df
2773 changed files with 798221 additions and 0 deletions

31
Copybook/DTSICPCD.cpy Normal file
View File

@ -0,0 +1,31 @@
00001 ***** 01/23/01
00002 * DTSICPCD
00003 * DTSICPCD PROMPT MESSAGE IDENTIFIERS. LV005
00004 * DTSICPCD
00005 * REVIEWED AND MODIFIED FOR DC. 08/11/1998 EHH DTSICPCD
00006 * DTSICPCD
00007 ***** DTSICPCD
00008 DTSICPCD
00009 10 PMSG-KEY-OPTION PIC X(04) VALUE 'P001'.DTSICPCD
00010 10 PMSG-ADD-CONFIRM PIC X(04) VALUE 'P002'.DTSICPCD
00011 10 PMSG-MOD-CONFIRM PIC X(04) VALUE 'P003'.DTSICPCD
00012 10 PMSG-DEL-CONFIRM PIC X(04) VALUE 'P004'.DTSICPCD
00013 10 PMSG-ADD-CANCELED PIC X(04) VALUE 'P005'.DTSICPCD
00014 10 PMSG-MOD-CANCELED PIC X(04) VALUE 'P006'.DTSICPCD
00015 10 PMSG-DEL-CANCELED PIC X(04) VALUE 'P007'.DTSICPCD
00016 10 PMSG-ADD-SUCCESSFUL PIC X(04) VALUE 'P008'.DTSICPCD
00017 10 PMSG-MOD-SUCCESSFUL PIC X(04) VALUE 'P009'.DTSICPCD
00018 10 PMSG-DEL-SUCCESSFUL PIC X(04) VALUE 'P010'.DTSICPCD
00019 10 PMSG-PRINT-CONFIRM PIC X(04) VALUE 'P011'.DTSICPCD
00020 10 PMSG-PRINT-CANCELED PIC X(04) VALUE 'P012'.DTSICPCD
00021 10 PMSG-PRINT-SUCCESSFUL PIC X(04) VALUE 'P013'.DTSICPCD
00022 10 PMSG-KEY-EMP-NO PIC X(04) VALUE 'P014'.DTSICPCD
00023 10 PMSG-KEY-BATCH-NO PIC X(04) VALUE 'P015'.DTSICPCD
00024 10 PMSG-KEY-ASSIGN-NO PIC X(04) VALUE 'P016'.DTSICPCD
00025 10 PMSG-KEY-DOC-NO PIC X(04) VALUE 'P017'.DTSICPCD
00026 10 PMSG-FIRST-PAGE PIC X(04) VALUE 'P021'.DTSICPCD
00027 10 PMSG-LAST-PAGE PIC X(04) VALUE 'P022'.DTSICPCD
00028 10 PMSG-ONLY-PAGE PIC X(04) VALUE 'P023'.DTSICPCD
00029 10 PMSG-ALT-PRT-CONFIRM PIC X(04) VALUE 'P025'.DTSICPCD
00030 10 PMSG-ALT-ADD-CONFIRM PIC X(04) VALUE 'P026'.DTSICPCD
00031 *********10 PMSG-CLOSE-BATCH PIC X(04) VALUE 'P027'.DTSICPCD