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