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