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