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
