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

56
Copybook/DTSIFLEN.cpy Normal file
View File

@ -0,0 +1,56 @@
00001 ***** 01/29/02
00002 * DTSIFLEN
00003 * DTSIFLEN REFERENCE FILE RECORD LENGTHS. LV015
00004 * DTSIFLEN
00005 ***** DTSIFLEN
00006 DTSIFLEN
00007 10 FLEN-LENGTH-AREA. DTSIFLEN
00008 15 FLEN-CYR-LENGTH PIC S9(04) COMP VALUE +64. DTSIFLEN
00009 15 FLEN-CYR-PREFIX PIC X(04) VALUE 'FCYR'. DTSIFLEN
00010 15 FILLER PIC S9(04) COMP VALUE +0. DTSIFLEN
00011 15 FILLER PIC X(04) VALUE ' '. DTSIFLEN
00012 15 FLEN-FAT-LENGTH PIC S9(04) COMP VALUE +96. DTSIFLEN
00013 15 FLEN-FAT-PREFIX PIC X(04) VALUE 'FFAT'. DTSIFLEN
00014 15 FILLER PIC S9(04) COMP VALUE +0. DTSIFLEN
00015 15 FILLER PIC X(04) VALUE ' '. DTSIFLEN
00016 15 FLEN-FAZ-LENGTH PIC S9(04) COMP VALUE +64. DTSIFLEN
00017 15 FLEN-FAZ-PREFIX PIC X(04) VALUE 'FFAZ'. DTSIFLEN
00018 15 FILLER PIC S9(04) COMP VALUE +0. DTSIFLEN
00019 15 FILLER PIC X(04) VALUE ' '. DTSIFLEN
00020 15 FLEN-FID-LENGTH PIC S9(04) COMP VALUE +600. DTSIFLEN
00021 15 FLEN-FID-PREFIX PIC X(04) VALUE 'FFID'. DTSIFLEN
00022 15 FLEN-FIS-LENGTH PIC S9(04) COMP VALUE +507. DTSIFLEN
00023 15 FLEN-FIS-PREFIX PIC X(04) VALUE 'FFIS'. DTSIFLEN
00024 15 FLEN-OPR-LENGTH PIC S9(04) COMP VALUE +512. DTSIFLEN
00025 15 FLEN-OPR-PREFIX PIC X(04) VALUE 'FOPR'. DTSIFLEN
00026 15 FILLER PIC S9(04) COMP VALUE +0. DTSIFLEN
00027 15 FILLER PIC X(04) VALUE ' '. DTSIFLEN
00028 15 FLEN-QTR-LENGTH PIC S9(04) COMP VALUE +128. DTSIFLEN
00029 15 FLEN-QTR-PREFIX PIC X(04) VALUE 'FQTR'. DTSIFLEN
00030 15 FLEN-AFD-LENGTH PIC S9(04) COMP VALUE +128. DTSIFLEN
00031 15 FLEN-AFD-PREFIX PIC X(04) VALUE 'FAFD'. DTSIFLEN
00032 15 FILLER PIC S9(04) COMP VALUE +0. DTSIFLEN
00033 15 FILLER PIC X(04) VALUE ' '. DTSIFLEN
00034 15 FILLER PIC S9(04) COMP VALUE +0. DTSIFLEN
00035 15 FILLER PIC X(04) VALUE ' '. DTSIFLEN
00036 15 FLEN-SEL-LENGTH PIC S9(04) COMP VALUE +256. DTSIFLEN
00037 15 FLEN-SEL-PREFIX PIC X(04) VALUE 'FSEL'. DTSIFLEN
00038 15 FILLER PIC S9(04) COMP VALUE +0. DTSIFLEN
00039 15 FILLER PIC X(04) VALUE ' '. DTSIFLEN
00040 15 FLEN-UIR-LENGTH PIC S9(04) COMP VALUE +352. DTSIFLEN
00041 15 FLEN-UIR-PREFIX PIC X(04) VALUE 'FUIR'. DTSIFLEN
00042 15 FILLER PIC S9(04) COMP VALUE +0. DTSIFLEN
00043 15 FILLER PIC X(04) VALUE ' '. DTSIFLEN
00044 15 FLEN-581-LENGTH PIC S9(04) COMP VALUE +512. DTSIFLEN
00045 15 FLEN-581-PREFIX PIC X(04) VALUE 'F581'. DTSIFLEN
00046 15 FILLER PIC S9(04) COMP VALUE +0. DTSIFLEN
00047 15 FILLER PIC X(04) VALUE ' '. DTSIFLEN
00048 10 FILLER REDEFINES FLEN-LENGTH-AREA. DTSIFLEN
00049 15 FLEN-REC-AREA OCCURS 20 TIMES DTSIFLEN
00050 INDEXED BY FLEN-IDX. DTSIFLEN
00051 20 FLEN-REC-LEN PIC S9(04) COMP. DTSIFLEN
00052 20 FLEN-REC-PREFIX PIC X(04). DTSIFLEN
00053 DTSIFLEN
00054 10 FLEN-MAX-REC-LEN PIC S9(04) COMP VALUE +768. DTSIFLEN
00055 10 FLEN-MAX-KEY-LEN PIC S9(04) COMP VALUE +16. DTSIFLEN
00056 10 FLEN-MAX-REC-ID PIC S9(04) COMP VALUE +20. DTSIFLEN