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

20
Copybook/DTSIIEAL.cpy Normal file
View File

@ -0,0 +1,20 @@
00001 ***** 05/22/01
00002 * DTSIIEAL
00003 * DTSIIEAL ALTERNATE INDEX FILE LV001
00004 * LOG NUMBER SUFFIX SEARCH RECORD DEFINITION. DTSIIEAL
00005 * DTSIIEAL
00006 * FUNCTION: ONE EXISTS FOR EACH LOG RECORD ON FILE. DTSIIEAL
00007 * INPUT: 6 DIGIT LOG NUMBER SUFFIX. DTSIIEAL
00008 * RETURN: THE FULL 10 DIGIT LOG NUMBER DTSIIEAL
00009 * DTSIIEAL
00010 * 01/20/2001 INITIAL DEVELOPMENT. GD DTSIIEAL
00011 * DTSIIEAL
00012 ***** DTSIIEAL
00013 DTSIIEAL
00014 10 IEAL-KEY-AREA. DTSIIEAL
00015 15 IEAL-REC-TYPE PIC S9(04) COMP. DTSIIEAL
00016 88 IEAL-EAL-88 VALUE +12. DTSIIEAL
00017 15 IEAL-LOG-NO-SFX PIC 9(06). DTSIIEAL
00018 15 IEAL-LOG-NO PIC 9(10). DTSIIEAL
00019 15 IEAL-COMPLETE-DATE PIC S9(09) COMP-3. DTSIIEAL
00020 15 IEAL-KEY-FILLER PIC X(41). DTSIIEAL