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