00001  IDENTIFICATION DIVISION.                                         09/09/98
00002  PROGRAM-ID.             DTSCU201.                                DTSCU201
00003  AUTHOR.                 TRICOASTAL CONSULTING LTD.                  LV005
00004  DATE-WRITTEN.           DECEMBER 1991.                           DTSCU201
00005  DATE-COMPILED.                                                   DTSCU201
00006      SKIP3                                                        DTSCU201
00007 *****                                                             DTSCU201
00008 *                                                                 DTSCU201
00009 *    FUNCTION:  DETERMINE EMPLOYER CLASS.                         DTSCU201
00010 *                                                                 DTSCU201
00011 *                                                                 DTSCU201
00012 *    MODIFICATION LOG:                                            DTSCU201
00013 *                                                                 DTSCU201
00014 *    12/01/91  INITIAL DEVELOPMENT.                               DTSCU201
00015 *              WORK ORDER:                      PROGRAMMER: TCL   DTSCU201
00016 *                                                                 DTSCU201
00017 *    04/06/94  MODIFIED FOR MONTANA.                              DTSCU201
00018 *              WORK ORDER:                      PROGRAMMER: RHC   DTSCU201
00019 *                                                                 DTSCU201
00020 *    09/09/1998  REVIEWED AND MODIFIED FOR DC.                       CL**2
00021 *                                                                    CL**3
00022 *                UNLIKE MONTANA, IN DC DTSCU201 DOES NOT ASSIGN      CL**3
00023 *                EMP-CLASS EQUAL TO "CHARGING ONLY" TO AN            CL**3
00024 *                EMPLOYER.                                           CL**3
00025 *                                                                    CL**3
00026 *                IN DC, ASSIGNMENT OF EMP-CLASS EQUAL TO             CL**3
00027 *                "CHARGING ONLY" OCCURS IN DTSCS1A.                  CL**3
00028 *                                                                    CL**3
00029 *                REFERENCE: DC DEVELOPMENT      PROGRAMMER: EHH      CL**2
00030 *                                                                    CL**2
00031 *    MM/DD/YYYY  XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX      CL**2
00032 *                XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX      CL**2
00033 *                REFERENCE: XXXXXXXXXXXXXXX     PROGRAMMER: XXX      CL**2
00034 *                                                                 DTSCU201
00035 *                                                                 DTSCU201
00036 *  DESCRIPTION:                                                   DTSCU201
00037 *                                                                 DTSCU201
00038 *    DETERMINE L201-EMP-CLASS BASED ON L201-EMP-NO AND            DTSCU201
00039 *    L201-LIAB-CD.                                                DTSCU201
00040 *                                                                 DTSCU201
00041 *    SEE MPRF-EMP-CLASS DESCRIPTION FOR DETAILS.                  DTSCU201
00042 *                                                                 DTSCU201
00043 *****                                                             DTSCU201
00044      SKIP3                                                        DTSCU201
00045  ENVIRONMENT DIVISION.                                            DTSCU201
00046      SKIP3                                                        DTSCU201
00047  DATA DIVISION.                                                   DTSCU201
00048      SKIP3                                                        DTSCU201
00049  WORKING-STORAGE SECTION.                                         DTSCU201
000495 77  PAN-VALET PICTURE X(24) VALUE '005DTSCU201  09/09/98'.       DTSCU201
00050      SKIP3                                                        DTSCU201
00051  01  WRK-AREA.                                                    DTSCU201
00052      05  WRK-ABEND-CD                PIC  X(04)  VALUE 'U201'.    DTSCU201
00053                                                                      CL**2
00054      05  WRK-RESP-CD                 PIC S9(08)  COMP.            DTSCU201
00055      EJECT                                                        DTSCU201
00056  LINKAGE SECTION.                                                 DTSCU201
00057      SKIP3                                                        DTSCU201
00058  01  DFHCOMMAREA.                                                 DTSCU201
00059  ++INCLUDE DTSIL201                                                  CL**2
00060      EJECT                                                        DTSCU201
00061  PROCEDURE DIVISION.                                              DTSCU201
00062      SKIP2                                                        DTSCU201
00063      IF L201-LIAB-CD = SPACE                                         CL**3
00064          MOVE 'U' TO L201-EMP-CLASS                                  CL**3
00065      ELSE                                                            CL**3
00066      IF (L201-LIAB-CD >= '01')                                       CL**3
00067              AND                                                     CL**3
00068         (L201-LIAB-CD <= '11')                                       CL**3
00069          MOVE 'R' TO L201-EMP-CLASS                                  CL**3
00070      ELSE                                                            CL**3
00071      IF (L201-LIAB-CD >= '21')                                       CL**3
00072              AND                                                     CL**3
00073         (L201-LIAB-CD <= '30')                                       CL**3
00074          MOVE 'S' TO L201-EMP-CLASS                                  CL**3
00075      ELSE                                                            CL**3
00076          PERFORM S899-ABEND THRU S899-EXIT.                          CL**4
00077      SKIP2                                                        DTSCU201
00078      EXEC CICS                                                    DTSCU201
00079          RETURN                                                   DTSCU201
00080      END-EXEC.                                                    DTSCU201
00081      SKIP2                                                        DTSCU201
00082      GOBACK.                                                      DTSCU201
00083      EJECT                                                           CL**3
00084  S899-ABEND.                                                         CL**3
00085                                                                      CL**3
00086      EXEC CICS                                                       CL**3
00087          ABEND                                                       CL**3
00088              ABCODE (WRK-ABEND-CD)                                   CL**5
00089      END-EXEC.                                                       CL**3
00090                                                                      CL**3
00091  S899-EXIT.                                                          CL**3
00092      EXIT.                                                           CL**3
