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