44 lines
3.4 KiB
COBOL
44 lines
3.4 KiB
COBOL
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
|