giteaadmin/DUTAS
4
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

DUTAS re-platformed to Raincode - Initial Source Code

Browse Source
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
Download Patch File Download Diff File Expand all files Collapse all files

68
Copybook/DTSIC035.cpy Normal file
View File

@ -0,0 +1,68 @@
00001 ***** 04/05/04
00002 * DTSIC035
00003 * DTSIC035 OPO TYPE CODES VALUES AND DESCRIPTIONS. LV003
00004 * DTSIC035
00005 * DTSIC035
00006 * 04/23/2003 INITIAL DEVELOPMENT. GD DTSIC035
00007 * DTSIC035
00008 * DTSIC035
00009 ***** DTSIC035
00010 DTSIC035
00011 ***** DTSIC035
00012 * OPTION 01 = MOPO-TYPE DTSIC035
00013 ***** DTSIC035
00014 10 C035-01-AREA. DTSIC035
00015 15 FILLER PIC X(02) VALUE '00'. DTSIC035
00016 15 FILLER PIC X(10) VALUE 'OPO '. DTSIC035
00017 15 FILLER PIC X(10) VALUE ' OPO'. DTSIC035
00018 15 FILLER PIC X(40) DTSIC035
00019 VALUE 'OWNER/PARTNER/OFFICER'. DTSIC035
00020 15 FILLER PIC X(02) VALUE '01'. DTSIC035
00021 15 FILLER PIC X(10) VALUE 'EFT '. DTSIC035
00022 15 FILLER PIC X(10) VALUE ' EFT'. DTSIC035
00023 15 FILLER PIC X(40) DTSIC035
00024 VALUE 'EFT (VENDOR) '. DTSIC035
00025 15 FILLER PIC X(02) VALUE '02'. DTSIC035
00026 15 FILLER PIC X(10) VALUE 'EFT '. DTSIC035
00027 15 FILLER PIC X(10) VALUE ' EFT'. DTSIC035
00028 15 FILLER PIC X(40) DTSIC035
00029 VALUE 'EFT (DOES) '. DTSIC035
00030 15 FILLER PIC X(02) VALUE '03'. DTSIC035
00031 15 FILLER PIC X(10) VALUE 'RPT-BSNS '. DTSIC035
00032 15 FILLER PIC X(10) VALUE ' RPT-BSNS'. DTSIC035
00033 15 FILLER PIC X(40) DTSIC035
00034 VALUE 'REPORTING - BUSINESS'. DTSIC035
00035 15 FILLER PIC X(02) VALUE '04'. DTSIC035
00036 15 FILLER PIC X(10) VALUE 'RPT-TECH '. DTSIC035
00037 15 FILLER PIC X(10) VALUE ' RPT-TECH'. DTSIC035
00038 15 FILLER PIC X(40) DTSIC035
00039 VALUE 'REPORTING - TECHNICAL '. DTSIC035
00040 15 FILLER PIC X(02) VALUE '05'. DTSIC035
00041 15 FILLER PIC X(10) VALUE 'FR500 '. DTSIC035
00042 15 FILLER PIC X(10) VALUE ' FR500'. DTSIC035
00043 15 FILLER PIC X(40) DTSIC035
00044 VALUE 'FR500 '. DTSIC035
00045 15 FILLER PIC X(02) VALUE '06'. DTSIC035
00046 15 FILLER PIC X(10) VALUE 'CHARGING '. DTSIC035
00047 15 FILLER PIC X(10) VALUE ' CHARGING'. DTSIC035
00048 15 FILLER PIC X(40) DTSIC035
00049 VALUE 'CHARGING '. DTSIC035
00050 15 FILLER PIC X(02) VALUE '07'. DTSIC035
00051 15 FILLER PIC X(10) VALUE 'BENEFITS '. DTSIC035
00052 15 FILLER PIC X(10) VALUE ' BENEFITS'. DTSIC035
00053 15 FILLER PIC X(40) DTSIC035
00054 VALUE 'BENEFITS '. DTSIC035
00055 15 FILLER PIC X(02) VALUE '08'. DTSIC035
00056 15 FILLER PIC X(10) VALUE 'STATUS '. DTSIC035
00057 15 FILLER PIC X(10) VALUE ' STATUS'. DTSIC035
00058 15 FILLER PIC X(40) DTSIC035
00059 VALUE 'STATUS '. DTSIC035
00060 DTSIC035
00061 10 FILLER REDEFINES C035-01-AREA. DTSIC035
00062 15 C035-01-ENTRY OCCURS 9 TIMES DTSIC035
00063 INDEXED BY C035-01-IDX. DTSIC035
00064 20 C035-01-CD PIC X(02). DTSIC035
00065 20 C035-01-SHORT-DSCR PIC X(10). DTSIC035
00066 20 C035-01-SHORT-DSCR-RIGHT DTSIC035
00067 PIC X(10). DTSIC035
00068 20 C035-01-LONG-DSCR PIC X(40). DTSIC035