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