00001  IDENTIFICATION DIVISION.                                         05/22/01
00002  PROGRAM-ID.             DTSCU041.                                DTSCU041
00003  AUTHOR.                 TRW.                                        LV001
00004  DATE-WRITTEN.           JANUARY 20001.                           DTSCU041
00005  DATE-COMPILED.                                                   DTSCU041
00006      SKIP3                                                        DTSCU041
00007 *****                                                             DTSCU041
00008 *                                                                 DTSCU041
00009 *    FUNCTION:  ELECTRONIC FILER CODED VALUES EDIT/DISPLAY PGM.   DTSCU041
00010 *                                                                 DTSCU041
00011 *                                                                 DTSCU041
00012 *    MODIFICATION LOG:                                            DTSCU041
00013 *                                                                 DTSCU041
00014 *    01/22/2001  INITIAL DEVELOPMENT. MODIFIED FROM DTSCU031.     DTSCU041
00015 *                WORK ORDER:                      PROGRAMMER: RLW DTSCU041
00016 *                                                                 DTSCU041
00017 *    XX/XX/XXXX  XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSCU041
00018 *                XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSCU041
00019 *                WORK ORDER:                      PROGRAMMER: XXX DTSCU041
00020 *                                                                 DTSCU041
00021 *                                                                 DTSCU041
00022 *    DESCRIPTION:                                                 DTSCU041
00023 *                                                                 DTSCU041
00024 *    DTSCU041 EDITS ELECTRONIC FILER DATA-TYPE-CD, MEDIUM-CD,     DTSCU041
00025 *             AND FOMMAT-CD.                                      DTSCU041
00026 *                                                                 DTSCU041
00027 *    DTSCU041 RETURNS A RESULT INDICATOR, A SHORT DESCRIPTION     DTSCU041
00028 *    OF THE CODE VALUE, AND A LONG DESCRIPTION OF THE CODE        DTSCU041
00029 *    VALUE.                                                       DTSCU041
00030 *                                                                 DTSCU041
00031 *    IF L041-OPTION IS NOT VALID, THEN ABEND THE TASK WITH AN     DTSCU041
00032 *    ABEND CODE OF 'U041'.                                        DTSCU041
00033 *                                                                 DTSCU041
00034 *    GO TO DEPENDING ON L041-OPTION TO GET TO THE PARAGRAPH       DTSCU041
00035 *    THAT CARRIES OUT EDITING FOR THE DATA ELEMENT SPECIFIED      DTSCU041
00036 *    BY L041-OPTION.  USE A SEARCH STATEMENT TO DETERMINE THE     DTSCU041
00037 *    VALIDITY OF L041-CD-*.                                       DTSCU041
00038 *                                                                 DTSCU041
00039 *    IF L041-CD-* IS A VALID VALUE                                DTSCU041
00040 *        MOVE '1' TO L041-RESULT-IND                              DTSCU041
00041 *        MOVE THE APPROPRIATE C041-*-SHORT-DSCR                   DTSCU041
00042 *          TO L041-SHORT-DSCR                                     DTSCU041
00043 *        MOVE THE APPROPRIATE C041-*-LONG-DSCR                    DTSCU041
00044 *          TO L041-LONG-DSCR                                      DTSCU041
00045 *    ELSE                                                         DTSCU041
00046 *        MOVE '2' TO L041-RESULT-IND                              DTSCU041
00047 *        MOVE 'NOT VALID' TO L041-SHORT-DSCR                      DTSCU041
00048 *                            L041-LONG-DSCR.                      DTSCU041
00049 *                                                                 DTSCU041
00050 *                                                                 DTSCU041
00051 *****                                                             DTSCU041
00052      SKIP3                                                        DTSCU041
00053  ENVIRONMENT DIVISION.                                            DTSCU041
00054      SKIP3                                                        DTSCU041
00055  DATA DIVISION.                                                   DTSCU041
00056      SKIP3                                                        DTSCU041
00057  WORKING-STORAGE SECTION.                                         DTSCU041
000575 77  PAN-VALET PICTURE X(24) VALUE '001DTSCU041  05/22/01'.       DTSCU041
00058      SKIP3                                                        DTSCU041
00059  01  WRK-AREA.                                                    DTSCU041
00060      05  WRK-ABEND-CODE              PIC  X(04)  VALUE 'U041'.    DTSCU041
00061      05  WRK-RESP-CODE               PIC S9(08)  COMP.            DTSCU041
00062      EJECT                                                        DTSCU041
00063  01  C041-LITERALS.                                               DTSCU041
00064  ++INCLUDE DTSIC041                                               DTSCU041
00065      EJECT                                                        DTSCU041
00066  LINKAGE SECTION.                                                 DTSCU041
00067      SKIP3                                                        DTSCU041
00068  01  DFHCOMMAREA.                                                 DTSCU041
00069  ++INCLUDE DTSIL041                                               DTSCU041
00070      EJECT                                                        DTSCU041
00071  PROCEDURE DIVISION.                                              DTSCU041
00072      SKIP2                                                        DTSCU041
00073      MOVE '2' TO L041-RESULT-IND.                                 DTSCU041
00074      MOVE 'NOT VALID' TO L041-SHORT-DSCR                          DTSCU041
00075                          L041-LONG-DSCR.                          DTSCU041
00076      PERFORM P1000-PROCESS THRU P1000-EXIT.                       DTSCU041
00077      SKIP2                                                        DTSCU041
00078      EXEC CICS                                                    DTSCU041
00079          RETURN                                                   DTSCU041
00080      END-EXEC.                                                    DTSCU041
00081      SKIP2                                                        DTSCU041
00082      GOBACK.                                                      DTSCU041
00083      EJECT                                                        DTSCU041
00084  P1000-PROCESS.                                                   DTSCU041
00085      GO TO P1000-01-EPRF-DATA-TYPE-CD                             DTSCU041
00086            P1000-02-EPRF-MEDIUM-TYPE-CD                           DTSCU041
00087            P1000-03-EPRF-FORMAT-CD                                DTSCU041
00088            S899-ABEND                                             DTSCU041
00089            S899-ABEND                                             DTSCU041
00090            S899-ABEND                                             DTSCU041
00091            S899-ABEND                                             DTSCU041
00092            S899-ABEND                                             DTSCU041
00093            S899-ABEND                                             DTSCU041
00094            S899-ABEND                                             DTSCU041
00095            P1000-11-EEMH-RESULT-CD                                DTSCU041
00096            S899-ABEND                                             DTSCU041
00097            S899-ABEND                                             DTSCU041
00098            S899-ABEND                                             DTSCU041
00099            S899-ABEND                                             DTSCU041
00100            S899-ABEND                                             DTSCU041
00101            S899-ABEND                                             DTSCU041
00102            S899-ABEND                                             DTSCU041
00103            S899-ABEND                                             DTSCU041
00104            S899-ABEND                                             DTSCU041
00105          DEPENDING ON L041-OPTION.                                DTSCU041
00106      SKIP1                                                        DTSCU041
00107      PERFORM S899-ABEND THRU S899-EXIT.                           DTSCU041
00108      SKIP3                                                        DTSCU041
00109  P1000-01-EPRF-DATA-TYPE-CD.                                      DTSCU041
00110      SET C041-01-IDX TO 1.                                        DTSCU041
00111      SEARCH C041-01-ENTRY                                         DTSCU041
00112         VARYING                                                   DTSCU041
00113           C041-01-IDX                                             DTSCU041
00114          WHEN L041-CD-2 = C041-01-CD (C041-01-IDX)                DTSCU041
00115              MOVE '1' TO L041-RESULT-IND                          DTSCU041
00116              MOVE C041-01-SHORT-DSCR (C041-01-IDX)                DTSCU041
00117                TO L041-SHORT-DSCR                                 DTSCU041
00118              MOVE C041-01-LONG-DSCR (C041-01-IDX)                 DTSCU041
00119                TO L041-LONG-DSCR.                                 DTSCU041
00120      SKIP1                                                        DTSCU041
00121      GO TO P1000-EXIT.                                            DTSCU041
00122      SKIP3                                                        DTSCU041
00123  P1000-02-EPRF-MEDIUM-TYPE-CD.                                    DTSCU041
00124      SET C041-02-IDX TO 1.                                        DTSCU041
00125      SEARCH C041-02-ENTRY                                         DTSCU041
00126         VARYING                                                   DTSCU041
00127           C041-02-IDX                                             DTSCU041
00128          WHEN L041-CD-2 = C041-02-CD (C041-02-IDX)                DTSCU041
00129              MOVE '1' TO L041-RESULT-IND                          DTSCU041
00130              MOVE C041-02-SHORT-DSCR (C041-02-IDX)                DTSCU041
00131                TO L041-SHORT-DSCR                                 DTSCU041
00132              MOVE C041-02-LONG-DSCR (C041-02-IDX)                 DTSCU041
00133                TO L041-LONG-DSCR.                                 DTSCU041
00134      SKIP1                                                        DTSCU041
00135      GO TO P1000-EXIT.                                            DTSCU041
00136      SKIP3                                                        DTSCU041
00137  P1000-03-EPRF-FORMAT-CD.                                         DTSCU041
00138      SET C041-03-IDX TO 1.                                        DTSCU041
00139      SEARCH C041-03-ENTRY                                         DTSCU041
00140         VARYING                                                   DTSCU041
00141           C041-03-IDX                                             DTSCU041
00142          WHEN L041-CD-3 = C041-03-CD (C041-03-IDX)                DTSCU041
00143              MOVE '1' TO L041-RESULT-IND                          DTSCU041
00144              MOVE C041-03-SHORT-DSCR (C041-03-IDX)                DTSCU041
00145                TO L041-SHORT-DSCR                                 DTSCU041
00146              MOVE C041-03-LONG-DSCR (C041-03-IDX)                 DTSCU041
00147                TO L041-LONG-DSCR.                                 DTSCU041
00148      SKIP1                                                        DTSCU041
00149      GO TO P1000-EXIT.                                            DTSCU041
00150      SKIP3                                                        DTSCU041
00151  P1000-11-EEMH-RESULT-CD.                                         DTSCU041
00152      SET C041-11-IDX TO 1.                                        DTSCU041
00153      SEARCH C041-11-ENTRY                                         DTSCU041
00154         VARYING                                                   DTSCU041
00155           C041-11-IDX                                             DTSCU041
00156          WHEN L041-CD-2 = C041-11-CD (C041-11-IDX)                DTSCU041
00157              MOVE '1' TO L041-RESULT-IND                          DTSCU041
00158              MOVE C041-11-SHORT-DSCR (C041-11-IDX)                DTSCU041
00159                TO L041-SHORT-DSCR                                 DTSCU041
00160              MOVE C041-11-LONG-DSCR (C041-11-IDX)                 DTSCU041
00161                TO L041-LONG-DSCR.                                 DTSCU041
00162      SKIP1                                                        DTSCU041
00163      GO TO P1000-EXIT.                                            DTSCU041
00164      SKIP3                                                        DTSCU041
00165  P1000-EXIT.                                                      DTSCU041
00166      EXIT.                                                        DTSCU041
00167      EJECT                                                        DTSCU041
00168  S899-ABEND.                                                      DTSCU041
00169      SKIP1                                                        DTSCU041
00170      EXEC CICS                                                    DTSCU041
00171          ABEND                                                    DTSCU041
00172              ABCODE (WRK-ABEND-CODE)                              DTSCU041
00173      END-EXEC.                                                    DTSCU041
00174      SKIP1                                                        DTSCU041
00175  S899-EXIT.                                                       DTSCU041
00176      EXIT.                                                        DTSCU041
