00001 IDENTIFICATION DIVISION. 05/25/10 00002 PROGRAM-ID. CHGBR140. CHGBR140 00003 *AUTHOR. TRW. LV011 00004 *DATE-WRITTEN. AUGUST 2001. CHGBR140 00005 DATE-COMPILED. CHGBR140 00006 CHGBR140 00007 ***** CHGBR140 00008 * CALLING SEQUENCE: CHGBD300 CALLS CHGBR140 00009 * CHGBR140 READS CHGIM004 RECORDS CHGBR140 00010 * CHGBR140 WRITES NO CHARGE FOUND FOR CHGBR140 00011 * THIS EMPLOYER ACCOUNT REPORT. CHGBR140 00012 * CHGBR140 00013 * FUNCTION: PRINT NO CHARGES FOUND FOR THIS EMP ACCOUNT RPT. CHGBR140 00014 * CHGBR140 00015 * DESCRIPTION: CHGBR140 00016 * CHGBR140 00017 * THIS MODULE GENERATES THE NO CHARGES FOR THIS EMP ACCT. CHGBR140 00018 * REPORT. CHGBR140 00019 * CHGBR140 00020 * RECORDS READ: CHGBR140 00021 * CHGBR140 00022 * NONE. CHGBR140 00023 * CHGBR140 00024 * INPUT: CHGBR140 00025 * CHGBR140 00026 * CHGIM004 RECORD PASSED FROM CHGBD300 CHGBR140 00027 * CHGBR140 00028 * PRINTED OUTPUTS: CHGBR140 00029 * CHGBR140 00030 * RPC140R1 - PRINT NO CHARGES FOUND ON EMP ACCT REPORT CHGBR140 00031 * CHGBR140 00032 * MODULES CALLED: CHGBR140 00033 * CHGBR140 00034 * NONE CHGBR140 00035 * CHGBR140 00036 ***** CHGBR140 00037 CHGBR140 00038 ******************************************************************CHGBR140 00039 * MODIFICATION HISTORY: *CHGBR140 00040 * *CHGBR140 00041 * 08-15-2001 INITIAL DEVELOPMENT *CHGBR140 00042 * REFERENCE RFP # AUTHOR OF CHANGE - RW *CHGBR140 00043 * *CHGBR140 00044 * 07-28-2008 REMOVED ORLANDO NAME FROM REPORT *CHGBR140 00045 * REFERENCE RFP # AUTHOR OF CHANGE - ZL1 *CHGBR140 00046 * *CHGBR140 00047 * 05-14-2010 RECOMPILE FOR NEW VERSIN OF CHGIM004 *CHGBR140 00048 * REFERENCE RFP # AUTHOR OF CHANGE - ZL1 *CHGBR140 00049 * *CHGBR140 00050 * MM-DD-YYYY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX *CHGBR140 00051 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX *CHGBR140 00052 * REFERENCE RFP # AUTHOR OF CHANGE - XX *CHGBR140 00053 ******************************************************************CHGBR140 00054 CHGBR140 00055 ENVIRONMENT DIVISION. CHGBR140 00056 CONFIGURATION SECTION. CHGBR140 00057 SPECIAL-NAMES. C01 IS TOP-OF-PAGE. CHGBR140 00058 CHGBR140 00059 INPUT-OUTPUT SECTION. CHGBR140 00060 FILE-CONTROL. CHGBR140 00061 CHGBR140 00062 SELECT NO-CHARGE-RPT ASSIGN TO RPC140R1. CHGBR140 00063 CHGBR140 00064 DATA DIVISION. CHGBR140 00065 FILE SECTION. CHGBR140 00066 CHGBR140 00067 FD NO-CHARGE-RPT CHGBR140 00068 RECORDING MODE IS F CHGBR140 00069 RECORD CONTAINS 133 CHARACTERS CHGBR140 00070 BLOCK CONTAINS 0 RECORDS. CHGBR140 00071 CHGBR140 00072 01 NO-CHRG-RPT PIC X(133). CHGBR140 00073 CHGBR140 00074 WORKING-STORAGE SECTION. CHGBR140 000745 77 PAN-VALET PICTURE X(24) VALUE '011CHGBR140 05/25/10'. CHGBR140 00075 CHGBR140 00076 01 WRK-AREA. CHGBR140 00077 05 WRK-ABEND-CODE PIC S9(04) COMP VALUE +140. CHGBR140 00078 05 ABEND-MSG PIC X(60) VALUE SPACE. CHGBR140 00079 05 ABEND-MOD PIC X(08) VALUE 'DTSBU999'. CHGBR140 00080 CHGBR140 00081 05 WRK-RPT-SPECIAL PIC X(26) VALUE CHGBR140 00082 ' BENEFIT CHARGE REPORT '. CHGBR140 00083 05 WRK-PAGE-CNT PIC S9(03) COMP-3 VALUE +0. CHGBR140 00084 05 WS-REC PIC X(133) VALUE SPACES. CHGBR140 00085 CHGBR140 00086 01 REPORT-LINE-AREA. CHGBR140 00087 05 HEAD01. CHGBR140 00088 10 FILLER PIC X(01) VALUE SPACE. CHGBR140 00089 10 FILLER PIC X(08) VALUE 'CHGBR140'. CHGBR140 00090 10 FILLER PIC X(47) VALUE SPACE. CHGBR140 00091 10 FILLER PIC X(20) VALUE 'DISTRICT OF COLUMBIA'. CHGBR140 00092 10 FILLER PIC X(42) VALUE SPACE. CHGBR140 00093 10 FILLER PIC X(09) VALUE 'PAGE NO.:'. CHGBR140 00094 10 FILLER PIC X(01) VALUE SPACE. CHGBR140 00095 10 WRK-PRT-PAGE-CNT PIC ZZZ99. CHGBR140 00096 CHGBR140 00097 05 HEAD02. CHGBR140 00098 10 FILLER PIC X(01) VALUE SPACE. CHGBR140 00099 10 FILLER PIC X(10) VALUE ' '. CHGBR140 00100 10 FILLER PIC X(42) VALUE SPACE. CHGBR140 00101 10 H2-RPT-TYP PIC X(26) VALUE SPACE. CHGBR140 00102 10 FILLER PIC X(49) VALUE SPACE. CHGBR140 00103 10 FILLER PIC X(04) VALUE SPACES. CHGBR140 00104 CHGBR140 00105 05 HEAD03. CHGBR140 00106 10 FILLER PIC X(01) VALUE SPACE. CHGBR140 00107 10 FILLER PIC X(10) VALUE 'ROOM 325'. CHGBR140 00108 10 FILLER PIC X(35) VALUE SPACE. CHGBR140 00109 10 FILLER PIC X(13) VALUE 'DEPARTMENT '. CHGBR140 00110 10 FILLER PIC X(13) VALUE 'OF EMPLOYME'. CHGBR140 00111 10 FILLER PIC X(13) VALUE 'NT SERVICES'. CHGBR140 00112 CHGBR140 00113 05 HEAD04. CHGBR140 00114 10 FILLER PIC X(01) VALUE SPACE. CHGBR140 00115 10 FILLER PIC X(49) VALUE SPACE. CHGBR140 00116 10 FILLER PIC X(12) VALUE 'EMPLOYER ACC'. CHGBR140 00117 10 FILLER PIC X(12) VALUE 'OUNT NUMBER '. CHGBR140 00118 10 WRK-PRT-HDR-EMP PIC 9(06). CHGBR140 00119 CHGBR140 00120 05 HEAD05. CHGBR140 00121 10 FILLER PIC X(01) VALUE SPACE. CHGBR140 00122 10 FILLER PIC X(39) VALUE SPACE. CHGBR140 00123 10 FILLER PIC X(14) VALUE 'REPORT INCLUDE'. CHGBR140 00124 10 FILLER PIC X(14) VALUE 'S PERIOD FROM '. CHGBR140 00125 10 WS-REPORT-START-DATE PIC X(10) VALUE SPACE. CHGBR140 00126 10 FILLER PIC X(04) VALUE ' TO '. CHGBR140 00127 10 WS-REPORT-END-DATE PIC X(10) VALUE SPACE. CHGBR140 00128 CHGBR140 00129 05 WRK-PRINT-LINE. CHGBR140 00130 10 FILLER PIC X(01) VALUE SPACE. CHGBR140 00131 10 FILLER PIC X(20) VALUE SPACE. CHGBR140 00132 10 FILLER PIC X(42) VALUE CHGBR140 00133 '*** NO CHARGE RECORDS WERE FOUND FOR THIS '. CHGBR140 00134 10 FILLER PIC X(47) VALUE CHGBR140 00135 'EMPLOYER DURING THE REPORTING PERIOD REQUESTED.'. CHGBR140 00136 CHGBR140 00137 01 L001-LINK-AREA. CHGBR140 00138 ++INCLUDE DTSIL001 CHGBR140 00139 CHGBR140 00140 EJECT CHGBR140 00141 LINKAGE SECTION. CHGBR140 00142 CHGBR140 00143 01 REPORT-LINK-AREA. CHGBR140 00144 ++INCLUDE CHGIL001 CHGBR140 00145 CHGBR140 00146 01 BD210-CHG-REC. CHGBR140 00147 ++INCLUDE CHGIM004 CHGBR140 00148 EJECT CHGBR140 00149 PROCEDURE DIVISION USING REPORT-LINK-AREA CHGBR140 00150 BD210-CHG-REC. CHGBR140 00151 CHGBR140 00152 CHGBR140-MAIN. CHGBR140 00153 IF CHG-LINK1-CMD-INIT-88 CHGBR140 00154 NEXT SENTENCE CHGBR140 00155 ELSE CHGBR140 00156 IF CHG-LINK1-CMD-PROCESS-88 CHGBR140 00157 PERFORM P0000-PROCESS THRU P0000-EXIT CHGBR140 00158 ELSE CHGBR140 00159 IF CHG-LINK1-CMD-CLOSE-88 CHGBR140 00160 NEXT SENTENCE CHGBR140 00161 ELSE CHGBR140 00162 MOVE 'INVALID CHG-LINK1-COMMAND VALUE' CHGBR140 00163 TO ABEND-MSG CHGBR140 00164 PERFORM S999-ABEND THRU S999-EXIT CHGBR140 00165 END-IF CHGBR140 00166 END-IF CHGBR140 00167 END-IF. CHGBR140 00168 CHGBR140 00169 CHGBR140-EXIT. CHGBR140 00170 GOBACK. CHGBR140 00171 CHGBR140 00172 P0000-PROCESS. CHGBR140 00173 CHGBR140 00174 MOVE WRK-RPT-SPECIAL TO H2-RPT-TYP. CHGBR140 00175 MOVE CHG4-EMP-NO TO WRK-PRT-HDR-EMP. CHGBR140 00176 CHGBR140 00177 MOVE CHG-LINK1-PERIOD-BEGIN TO L001-FED-8-DATE-9. CHGBR140 00178 PERFORM S001-FROM-FED-8 THRU S001-EXIT. CHGBR140 00179 MOVE L001-SLASH-8-DATE TO WS-REPORT-START-DATE. CHGBR140 00180 CHGBR140 00181 MOVE CHG-LINK1-PERIOD-END TO L001-FED-8-DATE-9. CHGBR140 00182 PERFORM S001-FROM-FED-8 THRU S001-EXIT. CHGBR140 00183 MOVE L001-SLASH-8-DATE TO WS-REPORT-END-DATE. CHGBR140 00184 CHGBR140 00185 OPEN OUTPUT NO-CHARGE-RPT. CHGBR140 00186 PERFORM P1100-PRINT-HEADER THRU P1100-EXIT. CHGBR140 00187 CLOSE NO-CHARGE-RPT. CHGBR140 00188 CHGBR140 00189 P0000-EXIT. CHGBR140 00190 EXIT. CHGBR140 00191 CHGBR140 00192 P1100-PRINT-HEADER. CHGBR140 00193 ADD 1 TO WRK-PAGE-CNT. CHGBR140 00194 MOVE WRK-PAGE-CNT TO WRK-PRT-PAGE-CNT. CHGBR140 00195 MOVE HEAD01 TO WS-REC CHGBR140 00196 WRITE NO-CHRG-RPT FROM WS-REC AFTER ADVANCING TOP-OF-PAGE CHGBR140 00197 MOVE HEAD02 TO WS-REC CHGBR140 00198 WRITE NO-CHRG-RPT FROM WS-REC AFTER ADVANCING 1 LINE CHGBR140 00199 MOVE HEAD03 TO WS-REC CHGBR140 00200 WRITE NO-CHRG-RPT FROM WS-REC AFTER ADVANCING 1 LINE CHGBR140 00201 MOVE SPACES TO WS-REC CHGBR140 00202 WRITE NO-CHRG-RPT FROM WS-REC AFTER ADVANCING 1 LINE CHGBR140 00203 MOVE HEAD04 TO WS-REC CHGBR140 00204 WRITE NO-CHRG-RPT FROM WS-REC AFTER ADVANCING 1 LINE CHGBR140 00205 MOVE SPACES TO WS-REC CHGBR140 00206 WRITE NO-CHRG-RPT FROM WS-REC AFTER ADVANCING 1 LINE CHGBR140 00207 MOVE HEAD05 TO WS-REC CHGBR140 00208 WRITE NO-CHRG-RPT FROM WS-REC AFTER ADVANCING 1 LINE CHGBR140 00209 CHGBR140 00210 WRITE NO-CHRG-RPT FROM WRK-PRINT-LINE CHGBR140 00211 AFTER ADVANCING 3 LINES. CHGBR140 00212 CHGBR140 00213 P1100-EXIT. CHGBR140 00214 EXIT. CHGBR140 00215 CHGBR140 00216 S001-FROM-FED-8. CHGBR140 00217 SET L001-FROM-FED-8 TO TRUE. CHGBR140 00218 GO TO S001-DATE. CHGBR140 00219 CHGBR140 00220 S001-DATE. CHGBR140 00221 CALL 'DTSBU001' USING L001-LINK-AREA. CHGBR140 00222 CHGBR140 00223 S001-EXIT. CHGBR140 00224 EXIT. CHGBR140 00225 CHGBR140 00226 S999-ABEND. CHGBR140 00227 DISPLAY '**** CHGBR140 ABENDING ' CHGBR140 00228 ABEND-MSG. CHGBR140 00229 CALL ABEND-MOD USING WRK-ABEND-CODE. CHGBR140 00230 CHGBR140 00231 S999-EXIT. CHGBR140 00232 EXIT. CHGBR140