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