00001 IDENTIFICATION DIVISION. 08/06/98 00002 PROGRAM-ID. DTSCU018 DTSCU018 00003 AUTHOR. TRICOASTAL CONSULTING LTD. LV003 00004 DATE-WRITTEN NOVEMBER 1991. DTSCU018 00005 DATE-COMPILED. DTSCU018 00006 SKIP3 DTSCU018 00007 ***** DTSCU018 00008 * DTSCU018 00009 * FUNCTION: EDIT AND FORMAT EMPLOYER NUMBER FROM SCREEN DTSCU018 00010 * DTSCU018 00011 * DTSCU018 00012 * MODIFICATION LOG: DTSCU018 00013 * DTSCU018 00014 * 08/04/98 INITIAL DEVELOPMENT. MODIFIED FROM MACCU018. CL**2 00015 * WORK ORDER: PROGRAMMER: ZL1. CL**2 00016 * DTSCU018 00017 * DTSCU018 00018 * XX/XX/XX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSCU018 00019 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSCU018 00020 * WORK ORDER: PROGRAMMER: DTSCU018 00021 * DTSCU018 00022 * DTSCU018 00023 * DESCRIPTION: DTSCU018 00024 * DTSCU018 00025 ***** DTSCU018 00026 SKIP3 DTSCU018 00027 ENVIRONMENT DIVISION. DTSCU018 00028 DATA DIVISION. DTSCU018 00029 SKIP3 DTSCU018 00030 WORKING-STORAGE SECTION. DTSCU018 000305 77 PAN-VALET PICTURE X(24) VALUE '003DTSCU018 08/06/98'. DTSCU018 00031 01 WRK-AREA. DTSCU018 00032 10 WRK-EMP-NO. DTSCU018 00033 15 WRK-EMP-A-9 PIC 9(03). DTSCU018 00034 15 WRK-EMP-B-9 PIC 9(03). DTSCU018 00035 10 WRK-COMP-EMP-NO REDEFINES WRK-EMP-NO DTSCU018 00036 PIC 9(06). DTSCU018 00037 LINKAGE SECTION. DTSCU018 00038 01 DFHCOMMAREA. DTSCU018 00039 ++INCLUDE DTSIL018 CL**3 00040 PROCEDURE DIVISION. DTSCU018 00041 SKIP2 DTSCU018 00042 IF L018-S-EMP-NO1 = SPACES OR LOW-VALUES DTSCU018 00043 AND L018-S-EMP-NO2 = SPACES OR LOW-VALUES DTSCU018 00044 MOVE ZERO TO L018-EMP-NO DTSCU018 00045 SET L018-NO-ENTRY TO TRUE CL**2 00046 GO TO INIT0199-GO-BACK. DTSCU018 00047 IF L018-S-EMP-NO1 NOT NUMERIC DTSCU018 00048 OR L018-S-EMP-NO2 NOT NUMERIC DTSCU018 00049 PERFORM S-NOT-VALID THRU S-EXIT DTSCU018 00050 GO TO INIT0199-GO-BACK. DTSCU018 00051 MOVE L018-S-EMP-NO1 TO WRK-EMP-A-9. DTSCU018 00052 MOVE L018-S-EMP-NO2 TO WRK-EMP-B-9. DTSCU018 00053 IF WRK-COMP-EMP-NO = ZERO DTSCU018 00054 PERFORM S-NOT-VALID THRU S-EXIT DTSCU018 00055 GO TO INIT0199-GO-BACK. DTSCU018 00056 SET L018-VALID TO TRUE. CL**2 00057 MOVE WRK-COMP-EMP-NO TO L018-EMP-NO. DTSCU018 00058 INIT0199-GO-BACK. DTSCU018 00059 EXEC CICS DTSCU018 00060 RETURN DTSCU018 00061 END-EXEC. DTSCU018 00062 GOBACK. DTSCU018 00063 S-NOT-VALID. DTSCU018 00064 SET L018-NOT-VALID TO TRUE. CL**2 00065 MOVE ZERO TO L018-EMP-NO. DTSCU018 00066 S-EXIT. DTSCU018 00067 EXIT. DTSCU018