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

37
Copybook/DTSIL600.cpy Normal file
View File

@ -0,0 +1,37 @@
00001 ***** 05/16/00
00002 * DTSIL600
00003 * DTSIL600 FIND ULTIMATE SUCCESSOR EMPLOYER. LV008
00004 * DTSIL600
00005 * THE CALLING PROGRAM PUTS AND EMPLOYER ACCOUNT NUMBER DTSIL600
00006 * IN L600-EMP-NO. DTSIL600
00007 * DTSIL600
00008 * DTSBU600 WILL READ IPES RECORDS UNTIL IT EITHER FINDS DTSIL600
00009 * THE ULTIMATE SUCCESSOR EMPLOYER OR DETERMINES THAT DTSIL600
00010 * THERE IS NO SUCCESSOR. DTSIL600
00011 * DTSIL600
00012 * DTSBU600 SETS THE RETURN CODE, AND PUTS THE ACCOUNT DTSIL600
00013 * NUMBER OF ANY SUCCESSOR FOUND IN L600-ULTIMATE-SUCCESSOR. DTSIL600
00014 * DTSIL600
00015 * A RETURN CODE OF L600-ERROR-88 MEANS THAT THE MODULE DTSIL600
00016 * READ MORE THAN 100 IPES RECORDS. THE ASSUMPTION IS THAT DTSIL600
00017 * THE CHAIN OF SUCCESSORS CANNOT BE THAT LONG, AND THAT THE DTSIL600
00018 * LINKED LIST FORMS A CIRCLE. DTSIL600
00019 * DTSIL600
00020 * L600-EXP-TRN-EFF-DATE IS USED ONLY IN SPECIAL SITUATIONS. DTSIL600
00021 * NORMALLY, IT IS SET TO ALL NINES AND IGNORED. OTHERWISE, DTSIL600
00022 * DTSBU600 WILL ONLY REPORT A SUCCESSOR IF THE CHANGE OF DTSIL600
00023 * OWNERSHIP OCCURRED PRIOR TO OR ON THE PARAMETER DATE. DTSIL600
00024 * DTSIL600
00025 ***** DTSIL600
00026 DTSIL600
00027 10 L600-EMP-NO PIC S9(07) COMP-3. DTSIL600
00028 10 L600-EXP-TRN-EFF-DATE PIC S9(09) COMP-3. DTSIL600
00029 DTSIL600
00030 10 L600-ULTIMATE-SUCCESSOR PIC S9(07) COMP-3. DTSIL600
00031 DTSIL600
00032 10 L600-RETURN-CODE PIC X(01). DTSIL600
00033 88 L600-SUCCESSOR-FOUND-88 VALUE '0'. DTSIL600
00034 88 L600-NO-SUCCESSOR-88 VALUE '1'. DTSIL600
00035 88 L600-ERROR-88 VALUE '2'. DTSIL600
00036 DTSIL600
00037 10 FILLER PIC X(46). DTSIL600