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