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