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