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