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