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