00001  IDENTIFICATION DIVISION.                                         05/20/13
00002  PROGRAM-ID.             DTSCU033.                                DTSCU033
00003  AUTHOR.                 TRICOASTAL CONSULTING LTD.                  LV005
00004  DATE-WRITTEN.           MARCH 1994.                              DTSCU033
00005  DATE-COMPILED.                                                   DTSCU033
00006      SKIP3                                                        DTSCU033
00007 *****                                                             DTSCU033
00008 *                                                                 DTSCU033
00009 *    FUNCTION:  CURRENT RTP/PURSUED/DESCRIPTION.                  DTSCU033
00010 *                                                                 DTSCU033
00011 *                                                                 DTSCU033
00012 *    MODIFICATION LOG:                                            DTSCU033
00013 *                                                                 DTSCU033
00014 *    09/22/94  INITIAL DEVELOPMENT.                               DTSCU033
00015 *              WORK ORDER:                      PROGRAMMER: JLB   DTSCU033
00016 *                                                                 DTSCU033
00017 *    11/09/1998  REVIEWED AND MODIFIED FOR DC.                    DTSCU033
00018 *                REFERENCE: DC DEVELOPMENT      PROGRAMMER: EHH   DTSCU033
00019 *                                                                 DTSCU033
00020 *    05/17/1999  RECOMPILED FOR PICKUP MODIFICATIONS TO           DTSCU033
00021 *                DTSIC033.                                        DTSCU033
00022 *                REFERENCE: PICKUP DIR          PROGRAMMER: EHH   DTSCU033
00023 *                                                                 DTSCU033
00024 *    11/19/2012  RECOMPILED FOR CLAIMANT WAGE REPORTS             DTSCU033
00025 *                REFERENCE:                     PROGRAMMER: GD    DTSCU033
00026 *                                                                 DTSCU033
00027 *    04/01/2013  RECOMPILED FOR ANNUAL FILER REVISIONS            DTSCU033
00028 *                REFERENCE: TKT 1474            PROGRAMMER: GD    DTSCU033
00029 *                                                                 DTSCU033
00030 *    MM/DD/YYYY  XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX   DTSCU033
00031 *                XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX   DTSCU033
00032 *                REFERENCE: XXXXXXXXXXXXXXX     PROGRAMMER: XXX   DTSCU033
00033 *                                                                 DTSCU033
00034 *                                                                 DTSCU033
00035 *    DESCRIPTION:                                                 DTSCU033
00036 *                                                                 DTSCU033
00037 *    DTSCU033 EDITS ACCOUNTING CODES AND INDICATORS.              DTSCU033
00038 *                                                                 DTSCU033
00039 *    DTSCU033 RETURNS A RESULT INDICATOR, A SHORT DESCRIPTION     DTSCU033
00040 *    OF THE CODE VALUE, AND A LONG DESCRIPTION OF THE CODE        DTSCU033
00041 *    VALUE.                                                       DTSCU033
00042 *                                                                 DTSCU033
00043 *    IF L033-OPTION IS NOT VALID, THEN ABEND THE TASK WITH AN     DTSCU033
00044 *    ABEND CODE OF 'U033'.                                        DTSCU033
00045 *                                                                 DTSCU033
00046 *    GO TO DEPENDING ON L033-OPTION TO GET TO THE PARAGRAPH       DTSCU033
00047 *    THAT CARRIES OUT EDITING FOR THE DATA ELEMENT SPECIFIED      DTSCU033
00048 *    BY L033-OPTION.  USE A SEARCH STATEMENT TO DETERMINE THE     DTSCU033
00049 *    VALIDITY OF L033-CD-*.                                       DTSCU033
00050 *                                                                 DTSCU033
00051 *    IF L033-CD-* IS A VALID VALUE                                DTSCU033
00052 *        MOVE '1' TO L033-RESULT-IND                              DTSCU033
00053 *        MOVE THE APPROPRIATE C033-*-SHORT-DSCR                   DTSCU033
00054 *          TO L033-SHORT-DSCR                                     DTSCU033
00055 *        MOVE THE APPROPRIATE C033-*-LONG-DSCR                    DTSCU033
00056 *          TO L033-LONG-DSCR                                      DTSCU033
00057 *    ELSE                                                         DTSCU033
00058 *        MOVE '2' TO L033-RESULT-IND                              DTSCU033
00059 *        MOVE 'NOT VALID' TO L033-SHORT-DSCR                      DTSCU033
00060 *                            L033-LONG-DSCR.                      DTSCU033
00061 *                                                                 DTSCU033
00062 *****                                                             DTSCU033
00063      SKIP3                                                        DTSCU033
00064  ENVIRONMENT DIVISION.                                            DTSCU033
00065      SKIP3                                                        DTSCU033
00066  DATA DIVISION.                                                   DTSCU033
00067      SKIP3                                                        DTSCU033
00068  WORKING-STORAGE SECTION.                                         DTSCU033
000685 77  PAN-VALET PICTURE X(24) VALUE '005DTSCU033  05/20/13'.       DTSCU033
00069  77  PAN-VALET PICTURE X(24) VALUE '004DTSCU033  04/01/13'.       DTSCU033
00070  77  PAN-VALET PICTURE X(24) VALUE '003DTSCU033  05/17/99'.       DTSCU033
00071      SKIP3                                                        DTSCU033
00072  01  WRK-AREA.                                                    DTSCU033
00073      05  WRK-ABEND-CODE              PIC  X(04)  VALUE 'U033'.    DTSCU033
00074      05  WRK-RESP-CODE               PIC S9(08)  COMP.            DTSCU033
00075      EJECT                                                        DTSCU033
00076  01  C033-LITERALS.                                               DTSCU033
00077  ++INCLUDE DTSIC033                                               DTSCU033
00078      EJECT                                                        DTSCU033
00079  LINKAGE SECTION.                                                 DTSCU033
00080      SKIP3                                                        DTSCU033
00081  01  DFHCOMMAREA.                                                 DTSCU033
00082  ++INCLUDE DTSIL033                                               DTSCU033
00083      EJECT                                                        DTSCU033
00084  PROCEDURE DIVISION.                                              DTSCU033
00085                                                                   DTSCU033
00086                                                                   DTSCU033
00087      SET L033-NOT-VALID TO TRUE.                                  DTSCU033
00088                                                                   DTSCU033
00089      MOVE 'NOT VALID' TO L033-SHORT-DSCR                          DTSCU033
00090                          L033-LONG-DSCR.                          DTSCU033
00091                                                                   DTSCU033
00092      MOVE ' NOT VALID' TO L033-SHORT-DSCR-RIGHT.                  DTSCU033
00093                                                                   DTSCU033
00094      PERFORM P1000-PROCESS THRU P1000-EXIT.                       DTSCU033
00095                                                                   DTSCU033
00096                                                                   DTSCU033
00097      EXEC CICS                                                    DTSCU033
00098          RETURN                                                   DTSCU033
00099      END-EXEC.                                                    DTSCU033
00100                                                                   DTSCU033
00101                                                                   DTSCU033
00102      GOBACK.                                                      DTSCU033
00103      EJECT                                                        DTSCU033
00104  P1000-PROCESS.                                                   DTSCU033
00105      GO TO P1000-01                                               DTSCU033
00106          DEPENDING ON L033-OPTION.                                DTSCU033
00107                                                                   DTSCU033
00108      PERFORM S899-ABEND THRU S899-EXIT.                           DTSCU033
00109      SKIP3                                                        DTSCU033
00110  P1000-01.                                                        DTSCU033
00111      SET C033-01-IDX TO 1.                                        DTSCU033
00112      SEARCH C033-01-ENTRY                                         DTSCU033
00113         VARYING                                                   DTSCU033
00114           C033-01-IDX                                             DTSCU033
00115          WHEN L033-CD-2 = C033-01-CD (C033-01-IDX)                DTSCU033
00116              MOVE '1' TO L033-RESULT-IND                          DTSCU033
00117              MOVE C033-01-SHORT-DSCR (C033-01-IDX)                DTSCU033
00118                TO L033-SHORT-DSCR                                 DTSCU033
00119              MOVE C033-01-SHORT-DSCR-RIGHT (C033-01-IDX)          DTSCU033
00120                TO L033-SHORT-DSCR-RIGHT                           DTSCU033
00121              MOVE C033-01-LONG-DSCR (C033-01-IDX)                 DTSCU033
00122                TO L033-LONG-DSCR.                                 DTSCU033
00123                                                                   DTSCU033
00124      GO TO P1000-EXIT.                                            DTSCU033
00125      SKIP3                                                        DTSCU033
00126  P1000-EXIT.                                                      DTSCU033
00127      EXIT.                                                        DTSCU033
00128      EJECT                                                        DTSCU033
00129  S899-ABEND.                                                      DTSCU033
00130                                                                   DTSCU033
00131      EXEC CICS                                                    DTSCU033
00132          ABEND                                                    DTSCU033
00133              ABCODE (WRK-ABEND-CODE)                              DTSCU033
00134      END-EXEC.                                                    DTSCU033
00135                                                                   DTSCU033
00136  S899-EXIT.                                                       DTSCU033
00137      EXIT.                                                        DTSCU033
