00001 ***** 10/16/98 00002 * DTSIL030 00003 * DTSIL030 FIND NEXT AVAILABLE EMPLOYER ACCOUNT NUMBER. LV002 00004 * DTSIL030 00005 * THE CALLING PROGRAM PLACES THE NEXT AVAILABLE EMPLOYER CL**2 00006 * ACCOUNT NUMBER (BASED ON MHDR-LAST-USED-EMP-NO) IN CL**2 00007 * L030-EMP-KEY-REQUESTED. CL**2 00008 * DTSCU030 CHECKS WHETHER THE ACCOUNT NUMBER HAS PREVIOUSLY CL**2 00009 * BEEN USED. IF NOT, IT SETS L030-REQ-KEY-VALID TO TRUE AN CL**2 00010 * RETURNS THE REQUESTED NUMBER IN L030-EMP-KEY-AVAILABLE. CL**2 00011 * IF THE REQUESTED ACCOUNT NUMBER HAS BEEN USED, DTSCU030 CL**2 00012 * READS THE PRE-CONVERSION ACCOUNT NUMBER FILE UNTIL IT CL**2 00013 * FINDS THE NEXT UNUSED NUMBER. IT SETS CL**2 00014 * L030-REQ-KEY-NOT-VALID TO TRUE AND RETURNS THE NEXT CL**2 00015 * UNUSED ACCOUNT NUMBER IN L030-EMP-KEY-AVAILABLE. CL**2 00016 * DTSCU030 RETURNS AN ERROR CODE (AND PUTS ZEROS IN CL**2 00017 * L030-EMP-KEY-AVAILABLE) IF THE FILE IS CLOSED OR CL**2 00018 * IF IT FAILS TO FIND ANY UNUSED EMPLOYER ACCOUNT CL**2 00019 * NUMBERS. CL**2 00020 * CL**2 00021 ***** DTSIL030 00022 DTSIL030 00023 10 L030-REQUEST-AREA. CL**2 00024 15 L030-EMP-KEY-REQUESTED PIC S9(07) COMP-3. CL**2 00025 DTSIL030 00026 10 L030-RETURN-AREA. CL**2 00027 15 L030-EMP-KEY-AVAILABLE PIC S9(07) COMP-3. CL**2 00028 CL**2 00029 15 L030-RESULT-IND PIC X(01). CL**2 00030 88 L030-REQ-KEY-VALID VALUE '1'. CL**2 00031 88 L030-REQ-KEY-NOT-VALID VALUE '2'. CL**2 00032 88 L030-ALL-NUMBERS-USED VALUE '3'. CL**2 00033 88 L030-FILE-CLOSED VALUE '4'. CL**2 00034 88 L030-FATAL-ERROR VALUE '3' '4'. CL**2 00035 DTSIL030 00036 DTSIL030 00037 15 FILLER PIC X(92). CL**2 00038 DTSIL030 00039 15 L030-MSG-AREA. CL**2 00040 20 L030-MSG-ID PIC X(04). CL**2 00041 20 L030-MSG-TEXT PIC X(60). CL**2