00001  IDENTIFICATION DIVISION.                                         12/09/04
00002  PROGRAM-ID.             DTSCU034.                                DTSCU034
00003  AUTHOR.                 TRICOASTAL CONSULTING LTD.                  LV006
00004  DATE-WRITTEN.           MARCH 1994.                              DTSCU034
00005  DATE-COMPILED.                                                   DTSCU034
00006      SKIP3                                                        DTSCU034
00007 *****                                                             DTSCU034
00008 *                                                                 DTSCU034
00009 *    FUNCTION:  COLLECTIONS CODES EDIT/DESCRIPTION.               DTSCU034
00010 *                                                                 DTSCU034
00011 *                                                                 DTSCU034
00012 *    MODIFICATION LOG:                                            DTSCU034
00013 *                                                                 DTSCU034
00014 *    03/29/1994  INITIAL DEVELOPMENT.  COPIED FROM MACCU034.      DTSCU034
00015 *                WORK ORDER:                      PROGRAMMER: ZL1.DTSCU034
00016 *                                                                 DTSCU034
00017 *    04/29/2004  ADDED MCMP-STATUS-CD                             DTSCU034
00018 *                WORK ORDER: COMPROMISE           PROGRAMMER: GD  DTSCU034
00019 *                                                                 DTSCU034
00020 *    XX/XX/XXXX  XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSCU034
00021 *                XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSCU034
00022 *                WORK ORDER:                      PROGRAMMER: XXX DTSCU034
00023 *                                                                 DTSCU034
00024 *                                                                 DTSCU034
00025 *    DESCRIPTION:                                                 DTSCU034
00026 *                                                                 DTSCU034
00027 *    DTSCU034 EDITS COLLECTIONS CODES AND INDICATORS.             DTSCU034
00028 *                                                                 DTSCU034
00029 *    DTSCU034 RETURNS A RESULT INDICATOR, A SHORT DESCRIPTION     DTSCU034
00030 *    OF THE CODE VALUE, AND A LONG DESCRIPTION OF THE CODE        DTSCU034
00031 *    VALUE.                                                       DTSCU034
00032 *                                                                 DTSCU034
00033 *    IF L034-OPTION IS NOT VALID, THEN ABEND THE TASK WITH AN     DTSCU034
00034 *    ABEND CODE OF 'U034'.                                        DTSCU034
00035 *                                                                 DTSCU034
00036 *    GO TO DEPENDING ON L034-OPTION TO GET TO THE PARAGRAPH       DTSCU034
00037 *    THAT CARRIES OUT EDITING FOR THE DATA ELEMENT SPECIFIED      DTSCU034
00038 *    BY L034-OPTION.  USE A SEARCH STATEMENT TO DETERMINE THE     DTSCU034
00039 *    VALIDITY OF L034-CD-*.                                       DTSCU034
00040 *                                                                 DTSCU034
00041 *    IF L034-CD-* IS A VALID VALUE                                DTSCU034
00042 *        MOVE '1' TO L034-RESULT-IND                              DTSCU034
00043 *        MOVE THE APPROPRIATE C034-*-SHORT-DSCR                   DTSCU034
00044 *          TO L034-SHORT-DSCR                                     DTSCU034
00045 *        MOVE THE APPROPRIATE C034-*-LONG-DSCR                    DTSCU034
00046 *          TO L034-LONG-DSCR                                      DTSCU034
00047 *    ELSE                                                         DTSCU034
00048 *        MOVE '2' TO L034-RESULT-IND                              DTSCU034
00049 *        MOVE 'NOT VALID' TO L034-SHORT-DSCR                      DTSCU034
00050 *                            L034-LONG-DSCR.                      DTSCU034
00051 *                                                                 DTSCU034
00052 *****                                                             DTSCU034
00053      SKIP3                                                        DTSCU034
00054  ENVIRONMENT DIVISION.                                            DTSCU034
00055      SKIP3                                                        DTSCU034
00056  DATA DIVISION.                                                   DTSCU034
00057      SKIP3                                                        DTSCU034
00058  WORKING-STORAGE SECTION.                                         DTSCU034
000585 77  PAN-VALET PICTURE X(24) VALUE '006DTSCU034  12/09/04'.       DTSCU034
00059      SKIP3                                                        DTSCU034
00060  01  WRK-AREA.                                                    DTSCU034
00061      05  WRK-ABEND-CODE              PIC  X(04)  VALUE 'U034'.    DTSCU034
00062      05  WRK-RESP-CODE               PIC S9(08)  COMP.            DTSCU034
00063      EJECT                                                        DTSCU034
00064  01  C034-LITERALS.                                               DTSCU034
00065  ++INCLUDE DTSIC034                                               DTSCU034
00066      EJECT                                                        DTSCU034
00067  LINKAGE SECTION.                                                 DTSCU034
00068      SKIP3                                                        DTSCU034
00069  01  DFHCOMMAREA.                                                 DTSCU034
00070  ++INCLUDE DTSIL034                                               DTSCU034
00071      EJECT                                                        DTSCU034
00072  PROCEDURE DIVISION.                                              DTSCU034
00073      SKIP2                                                        DTSCU034
00074      MOVE '2' TO L034-RESULT-IND.                                 DTSCU034
00075      MOVE 'NOT VALID' TO L034-SHORT-DSCR                          DTSCU034
00076                          L034-LONG-DSCR.                          DTSCU034
00077      PERFORM P1000-PROCESS THRU P1000-EXIT.                       DTSCU034
00078      SKIP2                                                        DTSCU034
00079      EXEC CICS                                                    DTSCU034
00080          RETURN                                                   DTSCU034
00081      END-EXEC.                                                    DTSCU034
00082      SKIP2                                                        DTSCU034
00083      GOBACK.                                                      DTSCU034
00084      EJECT                                                        DTSCU034
00085  P1000-PROCESS.                                                   DTSCU034
00086      GO TO P1000-01                                               DTSCU034
00087            P1000-02                                               DTSCU034
00088            S899-ABEND                                             DTSCU034
00089            S899-ABEND                                             DTSCU034
00090            P1000-05                                               DTSCU034
00091            P1000-06                                               DTSCU034
00092            S899-ABEND                                             DTSCU034
00093            P1000-08                                               DTSCU034
00094            P1000-09                                               DTSCU034
00095            P1000-10                                               DTSCU034
00096            P1000-11                                               DTSCU034
00097            P1000-12                                               DTSCU034
00098            P1000-13                                               DTSCU034
00099          DEPENDING ON L034-OPTION.                                DTSCU034
00100      SKIP1                                                        DTSCU034
00101      PERFORM S899-ABEND THRU S899-EXIT.                           DTSCU034
00102      SKIP3                                                        DTSCU034
00103  P1000-01.                                                        DTSCU034
00104      SET C034-01-IDX TO 1.                                        DTSCU034
00105      SEARCH C034-01-ENTRY                                         DTSCU034
00106         VARYING                                                   DTSCU034
00107           C034-01-IDX                                             DTSCU034
00108          WHEN L034-CD-1 = C034-01-CD (C034-01-IDX)                DTSCU034
00109              MOVE '1' TO L034-RESULT-IND                          DTSCU034
00110              MOVE C034-01-SHORT-DSCR (C034-01-IDX)                DTSCU034
00111                TO L034-SHORT-DSCR                                 DTSCU034
00112              MOVE C034-01-LONG-DSCR (C034-01-IDX)                 DTSCU034
00113                TO L034-LONG-DSCR.                                 DTSCU034
00114      SKIP1                                                        DTSCU034
00115      GO TO P1000-EXIT.                                            DTSCU034
00116      SKIP3                                                        DTSCU034
00117  P1000-02.                                                        DTSCU034
00118      SET C034-02-IDX TO 1.                                        DTSCU034
00119      SEARCH C034-02-ENTRY                                         DTSCU034
00120         VARYING                                                   DTSCU034
00121           C034-02-IDX                                             DTSCU034
00122          WHEN L034-CD-1 = C034-02-CD (C034-02-IDX)                DTSCU034
00123              MOVE '1' TO L034-RESULT-IND                          DTSCU034
00124              MOVE C034-02-SHORT-DSCR (C034-02-IDX)                DTSCU034
00125                TO L034-SHORT-DSCR                                 DTSCU034
00126              MOVE C034-02-LONG-DSCR (C034-02-IDX)                 DTSCU034
00127                TO L034-LONG-DSCR.                                 DTSCU034
00128      SKIP1                                                        DTSCU034
00129      GO TO P1000-EXIT.                                            DTSCU034
00130      SKIP3                                                        DTSCU034
00131  P1000-05.                                                        DTSCU034
00132      SET C034-05-IDX TO 1.                                        DTSCU034
00133      SEARCH C034-05-ENTRY                                         DTSCU034
00134         VARYING                                                   DTSCU034
00135           C034-05-IDX                                             DTSCU034
00136          WHEN L034-CD-1 = C034-05-CD (C034-05-IDX)                DTSCU034
00137              MOVE '1' TO L034-RESULT-IND                          DTSCU034
00138              MOVE C034-05-SHORT-DSCR (C034-05-IDX)                DTSCU034
00139                TO L034-SHORT-DSCR                                 DTSCU034
00140              MOVE C034-05-LONG-DSCR (C034-05-IDX)                 DTSCU034
00141                TO L034-LONG-DSCR.                                 DTSCU034
00142      SKIP1                                                        DTSCU034
00143      GO TO P1000-EXIT.                                            DTSCU034
00144      SKIP3                                                        DTSCU034
00145  P1000-06.                                                        DTSCU034
00146      SET C034-06-IDX TO 1.                                        DTSCU034
00147      SEARCH C034-06-ENTRY                                         DTSCU034
00148         VARYING                                                   DTSCU034
00149           C034-06-IDX                                             DTSCU034
00150          WHEN L034-CD-2 = C034-06-CD (C034-06-IDX)                DTSCU034
00151              MOVE '1' TO L034-RESULT-IND                          DTSCU034
00152              MOVE C034-06-SHORT-DSCR (C034-06-IDX)                DTSCU034
00153                TO L034-SHORT-DSCR                                 DTSCU034
00154              MOVE C034-06-LONG-DSCR (C034-06-IDX)                 DTSCU034
00155                TO L034-LONG-DSCR.                                 DTSCU034
00156      SKIP1                                                        DTSCU034
00157      GO TO P1000-EXIT.                                            DTSCU034
00158      SKIP3                                                        DTSCU034
00159  P1000-08.                                                        DTSCU034
00160      SET C034-08-IDX TO 1.                                        DTSCU034
00161      SEARCH C034-08-ENTRY                                         DTSCU034
00162         VARYING                                                   DTSCU034
00163           C034-08-IDX                                             DTSCU034
00164          WHEN L034-CD-1 = C034-08-CD (C034-08-IDX)                DTSCU034
00165              MOVE '1' TO L034-RESULT-IND                          DTSCU034
00166              MOVE C034-08-SHORT-DSCR (C034-08-IDX)                DTSCU034
00167                TO L034-SHORT-DSCR                                 DTSCU034
00168              MOVE C034-08-LONG-DSCR (C034-08-IDX)                 DTSCU034
00169                TO L034-LONG-DSCR.                                 DTSCU034
00170      SKIP1                                                        DTSCU034
00171      GO TO P1000-EXIT.                                            DTSCU034
00172      SKIP3                                                        DTSCU034
00173  P1000-09.                                                        DTSCU034
00174      SET C034-09-IDX TO 1.                                        DTSCU034
00175      SEARCH C034-09-ENTRY                                         DTSCU034
00176         VARYING                                                   DTSCU034
00177           C034-09-IDX                                             DTSCU034
00178          WHEN L034-CD-1 = C034-09-CD (C034-09-IDX)                DTSCU034
00179              MOVE '1' TO L034-RESULT-IND                          DTSCU034
00180              MOVE C034-09-SHORT-DSCR (C034-09-IDX)                DTSCU034
00181                TO L034-SHORT-DSCR                                 DTSCU034
00182              MOVE C034-09-LONG-DSCR (C034-09-IDX)                 DTSCU034
00183                TO L034-LONG-DSCR.                                 DTSCU034
00184      SKIP1                                                        DTSCU034
00185      GO TO P1000-EXIT.                                            DTSCU034
00186      SKIP3                                                        DTSCU034
00187  P1000-10.                                                        DTSCU034
00188      SET C034-10-IDX TO 1.                                        DTSCU034
00189      SEARCH C034-10-ENTRY                                         DTSCU034
00190         VARYING                                                   DTSCU034
00191           C034-10-IDX                                             DTSCU034
00192          WHEN L034-CD-1 = C034-10-CD (C034-10-IDX)                DTSCU034
00193              MOVE '1' TO L034-RESULT-IND                          DTSCU034
00194              MOVE C034-10-SHORT-DSCR (C034-10-IDX)                DTSCU034
00195                TO L034-SHORT-DSCR                                 DTSCU034
00196              MOVE C034-10-LONG-DSCR (C034-10-IDX)                 DTSCU034
00197                TO L034-LONG-DSCR.                                 DTSCU034
00198      SKIP1                                                        DTSCU034
00199      GO TO P1000-EXIT.                                            DTSCU034
00200      SKIP3                                                        DTSCU034
00201  P1000-11.                                                        DTSCU034
00202      SET C034-11-IDX TO 1.                                        DTSCU034
00203      SEARCH C034-11-ENTRY                                         DTSCU034
00204         VARYING                                                   DTSCU034
00205           C034-11-IDX                                             DTSCU034
00206          WHEN L034-CD-1 = C034-11-CD (C034-11-IDX)                DTSCU034
00207              MOVE '1' TO L034-RESULT-IND                          DTSCU034
00208              MOVE C034-11-SHORT-DSCR (C034-11-IDX)                DTSCU034
00209                TO L034-SHORT-DSCR                                 DTSCU034
00210              MOVE C034-11-LONG-DSCR (C034-11-IDX)                 DTSCU034
00211                TO L034-LONG-DSCR.                                 DTSCU034
00212      SKIP1                                                        DTSCU034
00213      GO TO P1000-EXIT.                                            DTSCU034
00214      SKIP3                                                        DTSCU034
00215  P1000-12.                                                        DTSCU034
00216      SET C034-12-IDX TO 1.                                        DTSCU034
00217      SEARCH C034-12-ENTRY                                         DTSCU034
00218         VARYING                                                   DTSCU034
00219           C034-12-IDX                                             DTSCU034
00220          WHEN L034-CD-3 = C034-12-CD (C034-12-IDX)                DTSCU034
00221              MOVE '1' TO L034-RESULT-IND                          DTSCU034
00222              MOVE C034-12-SHORT-DSCR (C034-12-IDX)                DTSCU034
00223                TO L034-SHORT-DSCR                                 DTSCU034
00224              MOVE C034-12-LONG-DSCR (C034-12-IDX)                 DTSCU034
00225                TO L034-LONG-DSCR.                                 DTSCU034
00226      SKIP1                                                        DTSCU034
00227      GO TO P1000-EXIT.                                            DTSCU034
00228      SKIP3                                                        DTSCU034
00229  P1000-13.                                                        DTSCU034
00230      SET C034-13-IDX TO 1.                                        DTSCU034
00231      SEARCH C034-13-ENTRY                                         DTSCU034
00232         VARYING                                                   DTSCU034
00233           C034-13-IDX                                             DTSCU034
00234          WHEN L034-CD-1 = C034-13-CD (C034-13-IDX)                DTSCU034
00235              MOVE '1' TO L034-RESULT-IND                          DTSCU034
00236              MOVE C034-13-SHORT-DSCR (C034-13-IDX)                DTSCU034
00237                TO L034-SHORT-DSCR                                 DTSCU034
00238              MOVE C034-13-LONG-DSCR (C034-13-IDX)                 DTSCU034
00239                TO L034-LONG-DSCR.                                 DTSCU034
00240      SKIP1                                                        DTSCU034
00241      GO TO P1000-EXIT.                                            DTSCU034
00242      SKIP3                                                        DTSCU034
00243  P1000-EXIT.                                                      DTSCU034
00244      EXIT.                                                        DTSCU034
00245      EJECT                                                        DTSCU034
00246  S899-ABEND.                                                      DTSCU034
00247      SKIP1                                                        DTSCU034
00248      EXEC CICS                                                    DTSCU034
00249          ABEND                                                    DTSCU034
00250              ABCODE (WRK-ABEND-CODE)                              DTSCU034
00251      END-EXEC.                                                    DTSCU034
00252      SKIP1                                                        DTSCU034
00253  S899-EXIT.                                                       DTSCU034
00254      EXIT.                                                        DTSCU034
