00001  IDENTIFICATION DIVISION.                                         08/02/02
00002  PROGRAM-ID.             OJRCU423.                                OJRCU423
00003  AUTHOR.                 TRW.                                        LV001
00004  DATE-WRITTEN.           MAR 2002.                                OJRCU423
00005  DATE-COMPILED.                                                   OJRCU423
00006      SKIP3                                                        OJRCU423
00007 *****                                                             OJRCU423
00008 *                                                                 OJRCU423
00009 *    FUNCTION:  ONLINE EDIT OF PARMS FOR SUBMISSION OF 423 REPORT OJRCU423
00010 *                                                                 OJRCU423
00011 *                                                                 OJRCU423
00012 *    MODIFICATION LOG:                                            OJRCU423
00013 *                                                                 OJRCU423
00014 *    03/02     INITIAL DEVELOPMENT.                               OJRCU423
00015 *              WORK ORDER:                      PROGRAMMER: JMO.  OJRCU423
00016 *                                                                 OJRCU423
00017 *                                                                 OJRCU423
00018 *    MAINTENANCE NOTES:                                           OJRCU423
00019 *                                                                 OJRCU423
00020 *      REPORT INFO COMES FROM REDEFINED TABLE IN COPYBOOK         OJRCU423
00021 *                                                                 OJRCU423
00022 *****                                                             OJRCU423
00023      SKIP3                                                        OJRCU423
00024  ENVIRONMENT DIVISION.                                            OJRCU423
00025      EJECT                                                        OJRCU423
00026  DATA DIVISION.                                                   OJRCU423
00027  WORKING-STORAGE SECTION.                                         OJRCU423
000275 77  PAN-VALET PICTURE X(24) VALUE '001OJRCU423  08/02/02'.       OJRCU423
00028                                                                   OJRCU423
00029  01  WRK-AREA.                                                    OJRCU423
00030      05  ABEND-MSG                   PIC  X(60) VALUE SPACES.     OJRCU423
00031                                                                   OJRCU423
00032      05  WRK-SUB                     PIC S9(04)  COMP.            OJRCU423
00033                                                                   OJRCU423
00034      05  WRK-RESP-CD                 PIC S9(08)  COMP.            OJRCU423
00035                                                                   OJRCU423
00036      05  WRK-PARM                    PIC  X(32).                  OJRCU423
00037                                                                   OJRCU423
00038  01  L001-COMM-AREA.                                              OJRCU423
00039  ++INCLUDE DTSIL001                                               OJRCU423
00040  01  L004-COMM-AREA.                                              OJRCU423
00041  ++INCLUDE DTSIL004                                               OJRCU423
00042  01  L082-COMM-AREA.                                              OJRCU423
00043  ++INCLUDE DTSIL082                                               OJRCU423
00044  01  L810-COMM-AREA.                                              OJRCU423
00045      05  L810-CONTROL-BLOCK.                                      OJRCU423
00046  ++INCLUDE DTSIL810                                               OJRCU423
00047      05 MSKL-REC.                                                 OJRCU423
00048  ++INCLUDE DTSIMSKL                                               OJRCU423
00049      05 MHDR-REC.                                                 OJRCU423
00050  ++INCLUDE DTSIMHDR                                               OJRCU423
00051      EJECT                                                        OJRCU423
00052 * 423 PARM DEFINITIONS                                            OJRCU423
00053  ++INCLUDE OJRWE423                                               OJRCU423
00054      EJECT                                                        OJRCU423
00055  LINKAGE SECTION.                                                 OJRCU423
00056      SKIP3                                                        OJRCU423
00057  01  DFHCOMMAREA.                                                 OJRCU423
00058  ++INCLUDE DTSILCCM                                               OJRCU423
00059      SKIP3                                                        OJRCU423
00060 * PARM EDIT AND DATA CAPTURE AREA                                 OJRCU423
00061  ++INCLUDE OJRILCCM                                               OJRCU423
00062                                                                   OJRCU423
00063  PROCEDURE DIVISION.                                              OJRCU423
00064                                                                   OJRCU423
00065      PERFORM I0000-INITIALIZE THRU I0000-EXIT.                    OJRCU423
00066                                                                   OJRCU423
00067  MAINLINE-EXIT.                                                   OJRCU423
00068                                                                   OJRCU423
00069      EXEC CICS                                                    OJRCU423
00070          RETURN                                                   OJRCU423
00071      END-EXEC.                                                    OJRCU423
00072                                                                   OJRCU423
00073      GOBACK.                                                      OJRCU423
00074      EJECT                                                        OJRCU423
00075                                                                   OJRCU423
00076  I0000-INITIALIZE.                                                OJRCU423
00077      SET WRK-EDIT-PASSED-88 TO TRUE                               OJRCU423
00078      INITIALIZE LCCM-MSG-AREA                                     OJRCU423
00079                                                                   OJRCU423
00080      IF LCCM-GET-DEFAULTS-88                                      OJRCU423
00081         PERFORM I0100-GET-MASTER THRU I0100-EXIT                  OJRCU423
00082         IF LCCM-NO-MSG                                            OJRCU423
00083            PERFORM I0200-MOVE-FROM-MHDR THRU I0200-EXIT           OJRCU423
00084         END-IF                                                    OJRCU423
00085      ELSE                                                         OJRCU423
00086          PERFORM I0500-MOVE-FROM-LCCM THRU I0500-EXIT             OJRCU423
00087      END-IF                                                       OJRCU423
00088                                                                   OJRCU423
00089      PERFORM I1000-EDIT-AND-DEFAULT-PARMS  THRU I1000-EXIT        OJRCU423
00090                                                                   OJRCU423
00091      IF WRK-EDIT-PASSED-88                                        OJRCU423
00092         PERFORM I2000-MOVE-TO-LCCM  THRU  I2000-EXIT              OJRCU423
00093      ELSE                                                         OJRCU423
00094          SET LCCM-MSG   TO TRUE                                   OJRCU423
00095      END-IF.                                                      OJRCU423
00096  I0000-EXIT.                                                      OJRCU423
00097      EXIT.                                                        OJRCU423
00098                                                                   OJRCU423
00099  I0100-GET-MASTER.                                                OJRCU423
00100      MOVE LOW-VALUES    TO MHDR-KEY-AREA                          OJRCU423
00101      MOVE +0            TO MHDR-EMP-NO                            OJRCU423
00102      SET  MHDR-HDR-88   TO TRUE                                   OJRCU423
00103      SET  L810-READ-88  TO TRUE                                   OJRCU423
00104      MOVE MHDR-KEY-AREA TO MSKL-KEY-AREA                          OJRCU423
00105      PERFORM S810-MASTER-IO THRU S810-EXIT                        OJRCU423
00106      IF L810-FILE-CLOSED-88                                       OJRCU423
00107         MOVE L810-MSG-AREA TO LCCM-MSG-AREA                       OJRCU423
00108         SET  WRK-EDIT-FAILED-88 TO TRUE                           OJRCU423
00109      ELSE                                                         OJRCU423
00110          MOVE MSKL-REC TO MHDR-REC                                OJRCU423
00111      END-IF.                                                      OJRCU423
00112  I0100-EXIT.                                                      OJRCU423
00113      EXIT.                                                        OJRCU423
00114                                                                   OJRCU423
00115  I0200-MOVE-FROM-MHDR.                                            OJRCU423
00116      INITIALIZE  OJR-PARM-START-YRQ                               OJRCU423
00117                  OJR-PARM-END-YRQ                                 OJRCU423
00118                                                                   OJRCU423
00119      MOVE MHDR-LAST-UC30-DEL-MAIL-YRQ                             OJRCU423
00120                                     TO OJR-LAST-UC30-DEL-MAIL-YRQ OJRCU423
00121                                    LCCM-8B-LAST-UC30-DEL-MAIL-YRQ OJRCU423
00122      MOVE MHDR-FIRST-PURSUED-RPT-YRQ                              OJRCU423
00123                                     TO OJR-FIRST-PURSUED-RPT-YRQ  OJRCU423
00124                                    LCCM-8B-FIRST-PURSUED-RPT-YRQ  OJRCU423
00125                                                                   OJRCU423
00126      MOVE LCCM-PICKUP-YRQ           TO OJR-PICKUP-YRQ.            OJRCU423
00127  I0200-EXIT.                                                      OJRCU423
00128      EXIT.                                                        OJRCU423
00129                                                                   OJRCU423
00130  I0500-MOVE-FROM-LCCM.                                            OJRCU423
00131      MOVE LCCM-PARM-VALUE(1)        TO OJR-PARM-START-YRQ         OJRCU423
00132      MOVE LCCM-PARM-VALUE(2)        TO OJR-PARM-END-YRQ           OJRCU423
00133                                                                   OJRCU423
00134      MOVE LCCM-8B-FIRST-PURSUED-RPT-YRQ                           OJRCU423
00135                                     TO OJR-FIRST-PURSUED-RPT-YRQ  OJRCU423
00136      MOVE LCCM-8B-LAST-UC30-DEL-MAIL-YRQ                          OJRCU423
00137                                     TO OJR-LAST-UC30-DEL-MAIL-YRQ OJRCU423
00138                                                                   OJRCU423
00139      MOVE LCCM-PICKUP-YRQ           TO OJR-PICKUP-YRQ.            OJRCU423
00140  I0500-EXIT.                                                      OJRCU423
00141      EXIT.                                                        OJRCU423
00142                                                                   OJRCU423
00143  ++INCLUDE OJRPE423                                               OJRCU423
00144                                                                   OJRCU423
00145  I2000-MOVE-TO-LCCM.                                              OJRCU423
00146      MOVE WRK-PARM-START-YRQ        TO  WRK-QTR-5                 OJRCU423
00147      MOVE WRK-QTR-5(3:2)            TO  WRK-QTR-3(1:2)            OJRCU423
00148      MOVE WRK-QTR-5(5:1)            TO  WRK-QTR-3(3:1)            OJRCU423
00149      MOVE WRK-QTR-3                 TO  LCCM-PARM-VALUE(1)        OJRCU423
00150                                                                   OJRCU423
00151      MOVE WRK-PARM-END-YRQ          TO  WRK-QTR-5                 OJRCU423
00152      MOVE WRK-QTR-5(3:2)            TO  WRK-QTR-3(1:2)            OJRCU423
00153      MOVE WRK-QTR-5(5:1)            TO  WRK-QTR-3(3:1)            OJRCU423
00154      MOVE WRK-QTR-3                 TO  LCCM-PARM-VALUE(2).       OJRCU423
00155  I2000-EXIT.                                                      OJRCU423
00156       EXIT.                                                       OJRCU423
00157                                                                   OJRCU423
00158  S004-FROM-DATE.                                                  OJRCU423
00159      SET L004-FROM-DATE TO TRUE.                                  OJRCU423
00160      GO TO S004-LINK.                                             OJRCU423
00161      SKIP1                                                        OJRCU423
00162  S004-FROM-5.                                                     OJRCU423
00163      SET L004-FROM-5 TO TRUE.                                     OJRCU423
00164      GO TO S004-LINK.                                             OJRCU423
00165                                                                   OJRCU423
00166  S004-FROM-ABS.                                                   OJRCU423
00167      SET L004-FROM-ABS TO TRUE.                                   OJRCU423
00168      GO TO S004-LINK.                                             OJRCU423
00169      SKIP1                                                        OJRCU423
00170  S004-FROM-3.                                                     OJRCU423
00171      SET L004-FROM-3 TO TRUE.                                     OJRCU423
00172      GO TO S004-LINK.                                             OJRCU423
00173      SKIP1                                                        OJRCU423
00174  S004-LINK.                                                       OJRCU423
00175      SKIP1                                                        OJRCU423
00176      EXEC CICS LINK                                               OJRCU423
00177          PROGRAM  ('DTSCU004')                                    OJRCU423
00178          COMMAREA (L004-COMM-AREA)                                OJRCU423
00179      END-EXEC.                                                    OJRCU423
00180      SKIP1                                                        OJRCU423
00181  S004-EXIT.                                                       OJRCU423
00182      EXIT.                                                        OJRCU423
00183      SKIP3                                                        OJRCU423
00184                                                                   OJRCU423
00185  S082-LOOKUP-OP-ID.                                               OJRCU423
00186      EXEC CICS LINK                                               OJRCU423
00187          PROGRAM  ('DTSCU082')                                    OJRCU423
00188          COMMAREA (L082-COMM-AREA)                                OJRCU423
00189      END-EXEC.                                                    OJRCU423
00190      SKIP1                                                        OJRCU423
00191  S082-EXIT.                                                       OJRCU423
00192      EXIT.                                                        OJRCU423
00193                                                                   OJRCU423
00194  S810-MASTER-IO.                                                  OJRCU423
00195      EXEC CICS LINK                                               OJRCU423
00196          PROGRAM  ('DTSCU810')                                    OJRCU423
00197          COMMAREA (L810-COMM-AREA)                                OJRCU423
00198      END-EXEC.                                                    OJRCU423
00199  S810-EXIT.                                                       OJRCU423
00200      EXIT.                                                        OJRCU423
