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