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