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