       IDENTIFICATION   DIVISION.                                       EW000010
       PROGRAM-ID.      EW030.                                          EW000020
       AUTHOR.          DOE.                                            EW000030
      ***************************************************************** EW000040
      *                       PC-3/4 REPORT                           * EW000050
      ***************************************************************** EW000060
      * DATE CREATED:   06/24/95                                      * EW000070
      ***************************************************************** EW000080
      * CALL #  - MMDDYY - PURPOSE                                    * EW000090
      * 9508182 - 083095 - CHANGE LAYOUT OF XCD FLAT FILE.            * EW000100
      * 07624 060997 SOFTWARE CHANGES PER DOE NOTE 97-15.          JJD* EW000110
07624 * FIX9703 041397 ADD RECONCILIATION RECORD MARKER               * EW000120
07624 * FIX9704 041497 PRINT FOOD.SRVC.&TRANS. TOTALS ON DIF.LINES    * EW000130
      * FIX9908 - 041499 - ADDED CHARTER SCHOOL PROCESSING            * EW000140
      * FIX9904 - 050399 - ADD PROCESSING FOR FORM 7                  * EW000150
      * 07828 081597 ADD LATEST DOE PROGRAM CHANGES.               JJD* EW000160
07828 * GTW003  - 072997 - CARRY DECIMAL AMOUNTS FROM RWF THROUGH     * EW000170
07828 *                    ADDITION AND DROP AT PRINT TIME.           * EW000180
      *        *NOTE: LOCAL CHANGE ABOVE REPLACED WITD DOE CHG 2003002* EW000180
      * 2001002 - 040301 - CORRECT PRINTING INDIRECT DOLLARS BEING    * EW000190
      *                    ROLLED INTO 6100 CONTROL TOTALS            * EW000200
      * 2003001 - 101702 - CORRECT LOAD OF ABF TABLE                  * EW000190
      * 2003002 - 042203 - FIX ROUNDING TRUNCATION ERRORS             * EW000190
      * 2006001 - 041706 - ADD FUNCTIONS 6500 & 8200.                 * EW000190
      ***************************************************************** EW000210
                                                                        EW000220
                                                                        EW000230
       ENVIRONMENT DIVISION.                                            EW000240
                                                                        EW000250
       INPUT-OUTPUT SECTION.                                            EW000260
       FILE-CONTROL.                                                    EW000270
                                                                        EW000280
MVS        SELECT    CRD-CARD          ASSIGN    UT-S-CARDIN.           EW000300
                                                                        EW000310
MVS        SELECT    SRT-SORT          ASSIGN    DA-SORTWK.             EW000330
                                                                        EW000340
MVS        SELECT    PR1-PRNT          ASSIGN    UT-S-PRTOT1.           EW000360
                                                                        EW000370
MVS        SELECT    CRF-DISK          ASSIGN       DA-EWCRF            EW000390
                                       ORGANIZATION INDEXED             EW000400
                                       ACCESS       DYNAMIC             EW000410
                                       RECORD KEY   CRFDK               EW000420
                                       FILE STATUS  RETCRF.             EW000430
                                                                        EW000440
MVS        SELECT    RWF-DISK          ASSIGN       DA-EWRWF            EW000460
                                       ORGANIZATION INDEXED             EW000470
                                       ACCESS       SEQUENTIAL          EW000480
                                       RECORD KEY   RWFDK               EW000490
                                       FILE STATUS  RETRWF.             EW000500
                                                                        EW000510
MVS        SELECT    ABF-DISK          ASSIGN       DA-EWABF            EW000530
                                       ORGANIZATION INDEXED             EW000540
                                       ACCESS       DYNAMIC             EW000550
                                       RECORD KEY   ABFDK               EW000560
                                       FILE STATUS  RETABF.             EW000570
                                                                        EW000580
MVS        SELECT    XCD-DISK          ASSIGN       DA-EWXCD            EW000600
                                       ORGANIZATION SEQUENTIAL          EW000610
                                       ACCESS       SEQUENTIAL          EW000620
                                       FILE STATUS  RETXCD.             EW000630
                                                                        EW000640
       DATA DIVISION.                                                   EW000650
       FILE SECTION.                                                    EW000660
                                                                        EW000670
       FD  CRD-CARD                                                     EW000680
           RECORDING MODE       IS  F                                   EW000690
           RECORD    CONTAINS   80  CHARACTERS                          EW000700
MVS        BLOCK     CONTAINS    0  RECORDS                             EW000710
           LABEL     RECORDS   ARE  OMITTED                             EW000720
           DATA      RECORDS   ARE  CRD  CRH.                           EW000730
                                                                        EW000740
       01            CRD.                                               EW000750
001        05        CRDREQ            PIC  X(03).                      EW000760
004        05        FILLER            PIC  X(01).                      EW000770
005        05        CRDID             PIC  X(02).                      EW000780
007        05        FILLER            PIC  X(01).                      EW000790
008        05        CRDPRT            PIC  X(01).                      EW000800
009        05        FILLER            PIC  X(01).                      EW000810
010        05        CRDDIST           PIC  X(02).                      EW000820
012        05        FILLER            PIC  X(01).                      EW000830
014        05        CRDFY             PIC  X(02).                      EW000840
016        05        CRDFUND           PIC  X(01).                      EW000850
017        05        CRDSCHL           PIC  X(04).                      EW000860
021        05        CRDFSRV           PIC  9(09).                      EW000870
030        05        CRDTSCHL          PIC  9(09).                      EW000880
039        05        CRDTDIST          PIC  9(09).                      EW000890
048        05        CRDPREPD          PIC  9(09).                      EW000900
057        05        CRDPREPS          PIC  9(09).                      EW000910
066        05        CRDPREPT          PIC  9(09).                      EW000920
075        05        CRDSRC            PIC  X(01).                      EW000930
075        05        CRDRPT            PIC  X(01).                      EW000940
076        05        CRDPGM            PIC  X(05).                      EW000950
                                                                        EW000960
       01            CRH.                                               EW000970
001        05        CRHREQ            PIC  X(03).                      EW000980
004        05        FILLER            PIC  X(01).                      EW000990
005        05        CRHID             PIC  X(02).                      EW001000
007        05        FILLER            PIC  X(01).                      EW001010
008        05        CRHUSER           PIC  X(08).                      EW001020
016        05        FILLER            PIC  X(01).                      EW001030
           05        CRHHEAD.                                           EW001040
017          10      CRHB       OCCURS 050  TIMES  INDEXED BY CRH1      EW001050
                                       PIC  X(01).                      EW001060
067        05        FILLER            PIC  X(14).                      EW001070
                                                                        EW001080
       FD  PR1-PRNT                                                     EW001090
           RECORDING MODE       IS  F                                   EW001100
VSE        RECORD    CONTAINS  133  CHARACTERS                          EW001110
MVS   *    RECORD    CONTAINS  132  CHARACTERS                          EW001120
MVS   *    BLOCK     CONTAINS    0  RECORDS                             EW001130
           LABEL     RECORDS   ARE  OMITTED                             EW001140
           DATA      RECORDS   ARE  LNM  LN1  LN2  LN3  LN4  LN5.       EW001150
                                                                        EW001160
       01  LNM.                                                         EW001170
VSE        05        FILLER            PIC  X(01).                      EW001180
002        05        LNMMSG            PIC  X(20).                      EW001190
022        05        FILLER            PIC  X(02).                      EW001200
024        05        LNMVALUE1         PIC  X(02).                      EW001210
026        05        FILLER            PIC  X(01).                      EW001220
027        05        LNMVALUE2         PIC  X(80).                      EW001230
107        05        FILLER            PIC  X(27).                      EW001240
                                                                        EW001250
       01            LN1.                                               EW001260
VSE        05        FILLER            PIC  X(01).                      EW001270
002        05        LN1MSG            PIC  X(15).                      EW001280
017        05        FILLER            PIC  X(01).                      EW001290
018        05        LN1NBR            PIC  X(03).                      EW001300
021        05        FILLER            PIC  X(01).                      EW001310
022        05        LN1AMT1           PIC  ZZZZZZZZZ-.                 EW001320
032        05        LN1AMT2           PIC  ZZZZZZZZZ-.                 EW001330
042        05        LN1AMT3           PIC  ZZZZZZZZZ-.                 EW001340
052        05        LN1AMT4           PIC  ZZZZZZZZZ-.                 EW001350
062        05        LN1AMT5           PIC  ZZZZZZZZZ-.                 EW001360
072        05        LN1AMT6           PIC  ZZZZZZZZZ-.                 EW001370
082        05        LN1AMT7           PIC  ZZZZZZZZZ-.                 EW001380
092        05        LN1AMT8           PIC  ZZZZZZZZZ-.                 EW001390
102        05        LN1AMT9           PIC  ZZZZZZZZZ-.                 EW001400
112        05        LN1AMT10          PIC  ZZZZZZZZZ-.                 EW001410
122        05        LN1TOTAL          PIC  ZZZZZZZZZZ-.                EW001420
133        05        FILLER            PIC  X(01).                      EW001430
                                                                        EW001440
       01            LN2.                                               EW001450
VSE        05        FILLER            PIC  X(01).                      EW001460
002        05        FILLER            PIC  X(04).                      EW001470
006        05        LN2FUNC1          PIC  X(04).                      EW001480
010        05        FILLER            PIC  X(01).                      EW001490
011        05        LN2DESC1          PIC  X(21).                      EW001500
032        05        FILLER            PIC  X(01).                      EW001510
033        05        LN2AMT1           PIC  ZZZZZZZZZ-.                 EW001520
043        05        FILLER            PIC  X(01).                      EW001530
044        05        LN2FUNC2          PIC  X(04).                      EW001540
048        05        FILLER            PIC  X(01).                      EW001550
049        05        LN2DESC2          PIC  X(21).                      EW001560
070        05        FILLER            PIC  X(01).                      EW001570
071        05        LN2AMT2           PIC  ZZZZZZZZZ-.                 EW001580
081        05        FILLER            PIC  X(01).                      EW001590
082        05        LN2FUNC3          PIC  X(04).                      EW001600
086        05        FILLER            PIC  X(01).                      EW001610
087        05        LN2DESC3          PIC  X(21).                      EW001620
108        05        FILLER            PIC  X(01).                      EW001630
109        05        LN2AMT3           PIC  ZZZZZZZZZ-.                 EW001640
119        05        FILLER            PIC  X(15).                      EW001650
                                                                        EW001660
       01            LN3.                                               EW001670
VSE        05        FILLER            PIC  X(01).                      EW001680
002        05        FILLER            PIC  X(02).                      EW001690
004        05        LN3RECR           PIC  ZZZZZZZZZ-.                 EW001700
014        05        FILLER            PIC  X(01).                      EW001710
015        05        LN3OTHR           PIC  ZZZZZZZZZ-.                 EW001720
025        05        FILLER            PIC  X(01).                      EW001730
026        05        LN3CAP            PIC  ZZZZZZZZZ-.                 EW001740
036        05        FILLER            PIC  X(01).                      EW001750
037        05        LN3COMSRV         PIC  ZZZZZZZZZ-.                 EW001760
047        05        FILLER            PIC  X(01).                      EW001770
048        05        LN3DEBT           PIC  ZZZZZZZZZ-.                 EW001780
058        05        FILLER            PIC  X(01).                      EW001790
059        05        LN3FEDIND         PIC  ZZZZZZZZZ-.                 EW001800
069        05        FILLER            PIC  X(01).                      EW001810
041499     05        LN3CHRTR          PIC  ZZZZZZZZZ-.                 EW001820
041499     05        FILLER            PIC  X(01).                      EW001830
070        05        LN3TRPT           PIC  ZZZZZZZZZZ-.                EW001840
081        05        FILLER            PIC  X(01).                      EW001850
083095*    05        LN3TAFR           PIC  ZZZZZZZZZZ-.                EW001860
083095     05        LN3TAFR           PIC  ZZZZZZZZZZZ-.               EW001870
083095*    05        FILLER            PIC  X(02).                      EW001880
083095     05        FILLER            PIC  X(01).                      EW001890
095        05        LN3DIF            PIC  ZZZZZZZZZ-.                 EW001900
041499*    05        FILLER            PIC  X(29).                      EW001910
041499     05        FILLER            PIC  X(18).                      EW001920
                                                                        EW001930
       01            LN4.                                               EW001940
VSE        05        FILLER            PIC  X(01).                      EW001950
002        05        LN4MSG            PIC  X(15).                      EW001960
017        05        FILLER            PIC  X(04).                      EW001970
021        05        LN4AMT1           PIC  ZZZZZZZZZZ.                 EW001980
031        05        LN4AMT2           PIC  ZZZZZZZZZZ.                 EW001990
041        05        LN4AMT3           PIC  ZZZZZZZZZZ.                 EW002000
051        05        LN4AMT4           PIC  ZZZZZZZZZZ.                 EW002010
061        05        LN4AMT5           PIC  ZZZZZZZZZZ.                 EW002020
071        05        LN4AMT6           PIC  ZZZZZZZZZZ.                 EW002030
081        05        LN4AMT7           PIC  ZZZZZZZZZZ.                 EW002040
091        05        LN4AMT8           PIC  ZZZZZZZZZZ.                 EW002050
101        05        LN4AMT9           PIC  ZZZZZZZZZZ.                 EW002060
111        05        LN4AMT10          PIC  ZZZZZZZZZZ.                 EW002070
121        05        FILLER            PIC  X(01).                      EW002080
122        05        LN4TOTAL          PIC  ZZZZZZZZZZ.                 EW002090
132        05        FILLER            PIC  X(02).                      EW002100
                                                                        EW002110
       01  LN5.                                                         EW002120
VSE        05        FILLER            PIC  X(01).                      EW002130
002        05        LN5MSG            PIC  X(20).                      EW002140
022        05        FILLER            PIC  X(02).                      EW002150
024        05        LN5CNT            PIC  ZZZ,ZZ9.                    EW002160
031        05        FILLER            PIC  X(01).                      EW002170
032        05        LN5VALUE2         PIC  X(80).                      EW002180
112        05        FILLER            PIC  X(22).                      EW002190
                                                                        EW002200
           COPY                        EWCRFD.                          EW002210
           COPY                        EWRWFD.                          EW002220
           COPY                        EWABFD.                          EW002230
           COPY                        EWXCDD.                          EW002240
                                                                        EW002250
       SD  SRT-SORT.                                                    EW002260
                                                                        EW002270
       01            SRT.                                               EW002280
           05        SRTKEY.                                            EW002290
             10      SRTKDIST          PIC  X(02).                      EW002300
             10      SRTKREQ.                                           EW002310
               15    SRTKREQ1          PIC  X(01).                      EW002320
               15    SRTKREQ2          PIC  X(01).                      EW002330
               15    SRTKREQ3          PIC  X(01).                      EW002340
             10      SRTKFY.                                            EW002350
               15    SRTKFY1           PIC  X(01).                      EW002360
               15    SRTKFY2           PIC  X(01).                      EW002370
             10      SRTKFUND          PIC  X(01).                      EW002380
             10      SRTKSCHL          PIC  X(04).                      EW002390
             10      SRTKSEQ           PIC  X(01).                      EW002400
             10      SRTKPGM           PIC  X(03).                      EW002410
           05        SRTDATA.                                           EW002420
             10      SRTTBL.                                            EW002430
041706*        15    SRTENTRY          OCCURS 30 TIMES INDEXED BY SRT1. EW002440
041706         15    SRTENTRY          OCCURS 34 TIMES INDEXED BY SRT1.         
042203*          20  SRTAMT            PIC  S9(09).                     EW002450
042203           20  SRTAMT            PIC  S9(10)V9(07).               EW002460
             10      SRTRECON          PIC  X(01).                      EW002470
050399       10      SRTFORM7          PIC  X(01).                      EW002480
042203*      10      SRTTOT            PIC  S9(11).                     EW002490
042203       10      SRTTOT            PIC  S9(11)V9(07).               EW002500
             10      SRTPRT            PIC  X(01).                      EW002510
             10      SRTRPT            PIC  X(01).                      EW002520
                                                                        EW002530
       WORKING-STORAGE SECTION.                                         EW002540
                                                                        EW002550
       01            WSC.                                               EW002560
           05        WSCFLG1           PIC  X(01) VALUE 'N'.            EW002570
           05        WSCFLG4           PIC  X(01) VALUE 'N'.            EW002580
050399     05        WSCFLG4XXX        PIC  X(01) VALUE 'N'.            EW002590
           05        WSCLAST           PIC  X(01) VALUE 'N'.            EW002600
                                                                        EW002610
       01            RET.                                               EW002620
           05        RETCRF            PIC  X(02) VALUE '00'.           EW002630
           05        RETCRFOLD         PIC  X(02) VALUE '00'.           EW002640
           05        RETRWF            PIC  X(02) VALUE '00'.           EW002650
           05        RETABF            PIC  X(02) VALUE '00'.           EW002660
           05        RETABFOLD         PIC  X(02) VALUE '00'.           EW002670
           05        RETXCD            PIC  X(02) VALUE '00'.           EW002680
                                                                        EW002690
       01            SYS.                                               EW002700
           05        SYSTIME.                                           EW002710
             10      SYSHR             PIC  X(02).                      EW002720
             10      SYSMIN            PIC  X(02).                      EW002730
             10      SYSSEC            PIC  X(02).                      EW002740
           05        SYSDATE.                                           EW002750
             10      SYSYY             PIC  9(02).                      EW002760
             10      SYSMM             PIC  X(02).                      EW002770
             10      SYSDD             PIC  X(02).                      EW002780
                                                                        EW002790
       01            CTLAREA.                                           EW002800
           05        CTLCHAR           PIC  X(01) VALUE ' '.            EW002810
           05        ERR.                                               EW002820
             10      ERRREQ            PIC  X(03).                      EW002830
             10      FILLER            PIC  X(01).                      EW002840
             10      ERRID             PIC  X(02).                      EW002850
             10      FILLER            PIC  X(01).                      EW002860
             10      ERRPRT            PIC  X(01).                      EW002870
             10      FILLER            PIC  X(03).                      EW002880
             10      ERRDIST           PIC  X(02).                      EW002890
             10      FILLER            PIC  X(01).                      EW002900
             10      ERRFY             PIC  X(02).                      EW002910
             10      ERRFUND           PIC  X(01).                      EW002920
             10      ERRSCHL           PIC  X(04).                      EW002930
             10      ERRFSRV           PIC  X(09).                      EW002940
             10      ERRTSCHL          PIC  X(09).                      EW002950
             10      ERRTDIST          PIC  X(09).                      EW002960
             10      ERRPREPD          PIC  X(09).                      EW002970
             10      ERRPREPS          PIC  X(09).                      EW002980
             10      ERRPREPT          PIC  X(09).                      EW002990
             10      ERRSRC            PIC  X(01).                      EW003000
             10      ERRRPT            PIC  X(01).                      EW003010
                                                                        EW003020
       01            RQR.                                               EW003030
           05        RQRREQ            PIC  X(03).                      EW003040
           05        RQRPRT            PIC  X(01).                      EW003050
           05        RQRDIST           PIC  X(02).                      EW003060
           05        RQRFY             PIC  X(02).                      EW003070
           05        RQRSEL.                                            EW003080
             10      RQRFUND           PIC  X(01).                      EW003090
             10      RQRSCHL           PIC  X(04).                      EW003100
           05        RQRSELR    REDEFINES   RQRSEL.                     EW003110
             10      RQRB       OCCURS 005  TIMES INDEXED BY RQR1       EW003120
                                       PIC  X(01).                      EW003130
           05        RQRRPT            PIC  X(01).                      EW003140
                                                                        EW003150
       01            SEL.                                               EW003160
           05        SELFUND           PIC  X(01).                      EW003170
           05        SELSCHL           PIC  X(04).                      EW003180
       01            SELR       REDEFINES   SEL.                        EW003190
           05        SELB       OCCURS 005  TIMES INDEXED BY SEL1       EW003200
                                       PIC  X(01).                      EW003210
                                                                        EW003220
       01            RQH.                                               EW003230
           05        RQHENTRY   OCCURS 100  TIMES INDEXED BY RQH1.      EW003240
             10      RQHREQ            PIC  X(03).                      EW003250
             10      RQHID             PIC  X(02).                      EW003260
             10      RQHUSER           PIC  X(08).                      EW003270
             10      RQHHEAD.                                           EW003280
               15    RQHB       OCCURS 050  TIMES INDEXED BY RQH2       EW003290
                                       PIC  X(01).                      EW003300
                                                                        EW003310
       01            PGMTBL.                                            EW003320
           05        PGMENTRY   OCCURS 1000 TIMES                       EW003330
                                       ASCENDING KEY IS PGMPGM          EW003340
                                       INDEXED BY PGM1.                 EW003350
             10      PGMPGM            PIC  X(03).                      EW003360
             10      PGMSEQ            PIC  X(01).                      EW003370
             10      PGMSTF            PIC  S9(04)V9(03).               EW003380
                                                                        EW003390
       01            STRKEY.                                            EW003400
           05        STRDIST           PIC  X(02) VALUE HIGH-VALUES.    EW003410
           05        STRFY             PIC  X(02) VALUE HIGH-VALUES.    EW003420
           05        STRFUND           PIC  X(01) VALUE HIGH-VALUES.    EW003430
           05        FILLER            PIC  X(12) VALUE HIGH-VALUES.    EW003440
                                                                        EW003450
       01            ENDKEY.                                            EW003460
           05        ENDDIST           PIC  X(02) VALUE LOW-VALUES.     EW003470
           05        ENDFY             PIC  X(02) VALUE LOW-VALUES.     EW003480
           05        ENDFUND           PIC  X(01) VALUE LOW-VALUES.     EW003490
           05        FILLER            PIC  X(12) VALUE LOW-VALUES.     EW003500
                                                                        EW003510
       01            CTR.                                               EW003520
           05        CTRLN            PIC S9(03)       COMP-3 VALUE +0. EW003530
           05        CTRPG            PIC S9(03)       COMP-3 VALUE +0. EW003540
           05        CTRIDX           PIC S9(05)       COMP-3 VALUE +0. EW003550
042203*    05        CTRCOMP          PIC S9(11)       COMP-3 VALUE +0. EW003560
042203     05        CTRCOMP          PIC S9(11)V9(7)  COMP-3 VALUE +0. EW003570
           05        CTRXCD           PIC S9(07)       COMP-3 VALUE +0. EW003580
           05        CTRRECON.                                          EW003590
042203*      10      CTRRECR          PIC S9(11)       VALUE +0.        EW003600
042203*      10      CTROTHR          PIC S9(11)       VALUE +0.        EW003610
042203*      10      CTRCAP           PIC S9(11)       VALUE +0.        EW003620
042203*      10      CTRCOMSRV        PIC S9(11)       VALUE +0.        EW003630
042203*      10      CTRDEBT          PIC S9(11)       VALUE +0.        EW003640
042203*      10      CTRFEDIND        PIC S9(11)       VALUE +0.        EW003650
042203*      10      CTRTOT           PIC S9(11)       VALUE +0.        EW003660
042203*      10      CTRAFR           PIC S9(11)       VALUE +0.        EW003670
042203*      10      CTRDIFF          PIC S9(11)       VALUE +0.        EW003680
042203       10      CTRRECR          PIC S9(11)V9(7)  VALUE +0.        EW003690
042203       10      CTROTHR          PIC S9(11)V9(7)  VALUE +0.        EW003700
042203       10      CTRCAP           PIC S9(11)V9(7)  VALUE +0.        EW003710
042203       10      CTRCOMSRV        PIC S9(11)V9(7)  VALUE +0.        EW003720
042203       10      CTRDEBT          PIC S9(11)V9(7)  VALUE +0.        EW003730
042203       10      CTRFEDIND        PIC S9(11)V9(7)  VALUE +0.        EW003740
042203       10      CTRCHRTR         PIC S9(11)V9(7)  VALUE +0.        EW003750
042203       10      CTRTOT           PIC S9(11)V9(7)  VALUE +0.        EW003760
042203       10      CTRAFR           PIC S9(11)V9(7)  VALUE +0.        EW003770
042203       10      CTRDIFF          PIC S9(11)V9(7)  VALUE +0.        EW003780
           05        CTRSIND.                                           EW003790
042203*      10      CTRSI6100        PIC S9(11)       VALUE +0.        EW003800
042203*      10      CTRSI6200        PIC S9(11)       VALUE +0.        EW003810
042203*      10      CTRSI6300        PIC S9(11)       VALUE +0.        EW003820
042203*      10      CTRSI6400        PIC S9(11)       VALUE +0.        EW003830
042203*      10      CTRSI7300        PIC S9(11)       VALUE +0.        EW003840
042203*      10      CTRSI7400        PIC S9(11)       VALUE +0.        EW003850
042203*      10      CTRSI7600        PIC S9(11)       VALUE +0.        EW003860
042203*      10      CTRSI7700        PIC S9(11)       VALUE +0.        EW003870
042203*      10      CTRSI7800        PIC S9(11)       VALUE +0.        EW003880
042203*      10      CTRSI7900        PIC S9(11)       VALUE +0.        EW003890
042203*      10      CTRSI8100        PIC S9(11)       VALUE +0.        EW003900
042203       10      CTRSI6100        PIC S9(11)V9(7)  VALUE +0.        EW003910
042203       10      CTRSI6200        PIC S9(11)V9(7)  VALUE +0.        EW003920
042203       10      CTRSI6300        PIC S9(11)V9(7)  VALUE +0.        EW003930
042203       10      CTRSI6400        PIC S9(11)V9(7)  VALUE +0.        EW003940
041706       10      CTRSI6500        PIC S9(11)V9(7)  VALUE +0.                
042203       10      CTRSI7300        PIC S9(11)V9(7)  VALUE +0.        EW003950
042203       10      CTRSI7400        PIC S9(11)V9(7)  VALUE +0.        EW003960
042203       10      CTRSI7600        PIC S9(11)V9(7)  VALUE +0.        EW003970
042203       10      CTRSI7700        PIC S9(11)V9(7)  VALUE +0.        EW003980
042003       10      CTRSI7800        PIC S9(11)V9(7)  VALUE +0.        EW003990
042003       10      CTRSI7900        PIC S9(11)V9(7)  VALUE +0.        EW004000
042203       10      CTRSI8100        PIC S9(11)V9(7)  VALUE +0.        EW004010
041706       10      CTRSI8200        PIC S9(11)V9(7)  VALUE +0.                
           05        CTRDIND.                                           EW004020
042203*      10      CTRDI6100        PIC S9(11)       VALUE +0.        EW004030
042203*      10      CTRDI6200        PIC S9(11)       VALUE +0.        EW004040
042203*      10      CTRDI6300        PIC S9(11)       VALUE +0.        EW004050
042203*      10      CTRDI6400        PIC S9(11)       VALUE +0.        EW004060
042203*      10      CTRDI7100        PIC S9(11)       VALUE +0.        EW004070
042203*      10      CTRDI7200        PIC S9(11)       VALUE +0.        EW004080
042203*      10      CTRDI7400        PIC S9(11)       VALUE +0.        EW004090
042203*      10      CTRDI7500        PIC S9(11)       VALUE +0.        EW004100
042203*      10      CTRDI7600        PIC S9(11)       VALUE +0.        EW004110
042203*      10      CTRDI7700        PIC S9(11)       VALUE +0.        EW004120
042203*      10      CTRDI7800        PIC S9(11)       VALUE +0.        EW004130
042203*      10      CTRDI7900        PIC S9(11)       VALUE +0.        EW004140
042203*      10      CTRDI8100        PIC S9(11)       VALUE +0.        EW004150
042203       10      CTRDI6100        PIC S9(11)V9(7)  VALUE +0.        EW004160
042203       10      CTRDI6200        PIC S9(11)V9(7)  VALUE +0.        EW004170
042203       10      CTRDI6300        PIC S9(11)V9(7)  VALUE +0.        EW004180
042203       10      CTRDI6400        PIC S9(11)V9(7)  VALUE +0.        EW004190
041706       10      CTRDI6500        PIC S9(11)V9(7)  VALUE +0.                
042203       10      CTRDI7100        PIC S9(11)V9(7)  VALUE +0.        EW004200
042203       10      CTRDI7200        PIC S9(11)V9(7)  VALUE +0.        EW004210
042203       10      CTRDI7400        PIC S9(11)V9(7)  VALUE +0.        EW004220
042203       10      CTRDI7500        PIC S9(11)V9(7)  VALUE +0.        EW004230
042203       10      CTRDI7600        PIC S9(11)V9(7)  VALUE +0.        EW004240
042203       10      CTRDI7700        PIC S9(11)V9(7)  VALUE +0.        EW004250
042203       10      CTRDI7800        PIC S9(11)V9(7)  VALUE +0.        EW004260
042203       10      CTRDI7900        PIC S9(11)V9(7)  VALUE +0.        EW004270
042203       10      CTRDI8100        PIC S9(11)V9(7)  VALUE +0.        EW004280
041706       10      CTRDI8200        PIC S9(11)V9(7)  VALUE +0.                
           05        CTRLVL1.                                           EW004290
042203*      10      CTRSAMT1         PIC S9(11)       VALUE +0.        EW004300
042203*      10      CTRSAMT2         PIC S9(11)       VALUE +0.        EW004310
042203*      10      CTRSAMT3         PIC S9(11)       VALUE +0.        EW004320
042203*      10      CTRSAMT4         PIC S9(11)       VALUE +0.        EW004330
042203*      10      CTRSAMT5         PIC S9(11)       VALUE +0.        EW004340
042203*      10      CTRSAMT6         PIC S9(11)       VALUE +0.        EW004350
042203*      10      CTRLNDTOT        PIC S9(11)       VALUE +0.        EW004360
042203*      10      CTRSTOT          PIC S9(11)       VALUE +0.        EW004370
042203*      10      CTRSCOST         PIC S9(11)       VALUE +0.        EW004380
042203*      10      CTRDTOT          PIC S9(11)       VALUE +0.        EW004390
042203*      10      CTRLNTOTAL       PIC S9(11)       VALUE +0.        EW004400
042203       10      CTRSAMT1         PIC S9(11)V9(7)  VALUE +0.        EW004410
042203       10      CTRSAMT2         PIC S9(11)V9(7)  VALUE +0.        EW004420
042203       10      CTRSAMT3         PIC S9(11)V9(7)  VALUE +0.        EW004430
042203       10      CTRSAMT4         PIC S9(11)V9(7)  VALUE +0.        EW004440
042203       10      CTRSAMT5         PIC S9(11)V9(7)  VALUE +0.        EW004450
042203       10      CTRSAMT6         PIC S9(11)V9(7)  VALUE +0.        EW004460
042203       10      CTRLNDTOT        PIC S9(11)V9(7)  VALUE +0.        EW004470
042203       10      CTRSTOT          PIC S9(11)V9(7)  VALUE +0.        EW004480
042203       10      CTRSCOST         PIC S9(11)V9(7)  VALUE +0.        EW004490
042203       10      CTRDTOT          PIC S9(11)V9(7)  VALUE +0.        EW004500
042203       10      CTRLNTOTAL       PIC S9(11)V9(7)  VALUE +0.        EW004510
           05        CTRLVL2.                                           EW004520
042203*      10      CTRSAL           PIC S9(11)       VALUE +0.        EW004530
042203*      10      CTRBEN           PIC S9(11)       VALUE +0.        EW004540
042203*      10      CTRPRCH          PIC S9(11)       VALUE +0.        EW004550
042203*      10      CTRMATSUP        PIC S9(11)       VALUE +0.        EW004560
042203*      10      CTRDOTHR         PIC S9(11)       VALUE +0.        EW004570
042203*      10      CTRDCAP          PIC S9(11)       VALUE +0.        EW004580
042203*      10      CTRTOTAL         PIC S9(11)       VALUE +0.        EW004590
042203*      10      CTRSEQSTOT       PIC S9(11)       VALUE +0.        EW004600
042203*      10      CTRSEQSCOST      PIC S9(11)       VALUE +0.        EW004610
042203*      10      CTRSEQDTOT       PIC S9(11)       VALUE +0.        EW004620
042203*      10      CTRSEQTOT        PIC S9(11)       VALUE +0.        EW004630
042203       10      CTRSAL           PIC S9(11)V9(7)  VALUE +0.        EW004640
042203       10      CTRBEN           PIC S9(11)V9(7)  VALUE +0.        EW004650
042203       10      CTRPRCH          PIC S9(11)V9(7)  VALUE +0.        EW004660
042203       10      CTRMATSUP        PIC S9(11)V9(7)  VALUE +0.        EW004670
042203       10      CTRDOTHR         PIC S9(11)V9(7)  VALUE +0.        EW004680
042203       10      CTRDCAP          PIC S9(11)V9(7)  VALUE +0.        EW004690
042203       10      CTRTOTAL         PIC S9(11)V9(7)  VALUE +0.        EW004700
042203       10      CTRSEQSTOT       PIC S9(11)V9(7)  VALUE +0.        EW004710
042203       10      CTRSEQSCOST      PIC S9(11)V9(7)  VALUE +0.        EW004720
042203       10      CTRSEQDTOT       PIC S9(11)V9(7)  VALUE +0.        EW004730
042203       10      CTRSEQTOT        PIC S9(11)V9(7)  VALUE +0.        EW004740
           05        CTRLVL3.                                           EW004750
042203*      10      CTRAMT1          PIC S9(11)       VALUE +0.        EW004760
042203*      10      CTRAMT2          PIC S9(11)       VALUE +0.        EW004770
042203*      10      CTRAMT3          PIC S9(11)       VALUE +0.        EW004780
042203*      10      CTRAMT4          PIC S9(11)       VALUE +0.        EW004790
042203*      10      CTRAMT5          PIC S9(11)       VALUE +0.        EW004800
042203*      10      CTRAMT6          PIC S9(11)       VALUE +0.        EW004810
042203*      10      CTRAMT7          PIC S9(11)       VALUE +0.        EW004820
042203*      10      CTRAMT8          PIC S9(11)       VALUE +0.        EW004830
042203*      10      CTRAMT9          PIC S9(11)       VALUE +0.        EW004840
042203*      10      CTRAMT10         PIC S9(11)       VALUE +0.        EW004850
042203*      10      CTRAMTTOT        PIC S9(11)       VALUE +0.        EW004860
042203       10      CTRAMT1          PIC S9(11)V9(7)  VALUE +0.        EW004870
042203       10      CTRAMT2          PIC S9(11)V9(7)  VALUE +0.        EW004880
042203       10      CTRAMT3          PIC S9(11)V9(7)  VALUE +0.        EW004890
042203       10      CTRAMT4          PIC S9(11)V9(7)  VALUE +0.        EW004900
042203       10      CTRAMT5          PIC S9(11)V9(7)  VALUE +0.        EW004910
042203       10      CTRAMT6          PIC S9(11)V9(7)  VALUE +0.        EW004920
042203       10      CTRAMT7          PIC S9(11)V9(7)  VALUE +0.        EW004930
042203       10      CTRAMT8          PIC S9(11)V9(7)  VALUE +0.        EW004940
042203       10      CTRAMT9          PIC S9(11)V9(7)  VALUE +0.        EW004950
042203       10      CTRAMT10         PIC S9(11)V9(7)  VALUE +0.        EW004960
042203       10      CTRAMTTOT        PIC S9(11)V9(7)  VALUE +0.        EW004970
                                                                        EW004980
050399     05        CTR4XXX.                                           EW004990
042203*      10      CTR4AMT1         PIC S9(11)       COMP-3 VALUE +0. EW005000
042203*      10      CTR4AMT2         PIC S9(11)       COMP-3 VALUE +0. EW005010
042203*      10      CTR4AMT3         PIC S9(11)       COMP-3 VALUE +0. EW005020
042203*      10      CTR4AMT4         PIC S9(11)       COMP-3 VALUE +0. EW005030
042203*      10      CTR4AMT5         PIC S9(11)       COMP-3 VALUE +0. EW005040
042203*      10      CTR4AMT6         PIC S9(11)       COMP-3 VALUE +0. EW005050
042203*      10      CTR4AMT7         PIC S9(11)       COMP-3 VALUE +0. EW005060
042203*      10      CTR4AMT8         PIC S9(11)       COMP-3 VALUE +0. EW005070
042203*      10      CTR4AMT9         PIC S9(11)       COMP-3 VALUE +0. EW005080
042203*      10      CTR4AMT10        PIC S9(11)       COMP-3 VALUE +0. EW005090
042203*      10      CTR4AMT11        PIC S9(11)       COMP-3 VALUE +0. EW005100
042203*      10      CTR4AMT12        PIC S9(11)       COMP-3 VALUE +0. EW005110
042203*      10      CTR4AMT13        PIC S9(11)       COMP-3 VALUE +0. EW005120
042203*      10      CTR4AMT14        PIC S9(11)       COMP-3 VALUE +0. EW005130
042203       10      CTR4AMT1         PIC S9(11)V9(7)  COMP-3 VALUE +0. EW005000
042203       10      CTR4AMT2         PIC S9(11)V9(7)  COMP-3 VALUE +0. EW005010
042203       10      CTR4AMT3         PIC S9(11)V9(7)  COMP-3 VALUE +0. EW005020
042203       10      CTR4AMT4         PIC S9(11)V9(7)  COMP-3 VALUE +0. EW005030
042203       10      CTR4AMT5         PIC S9(11)V9(7)  COMP-3 VALUE +0. EW005040
042203       10      CTR4AMT6         PIC S9(11)V9(7)  COMP-3 VALUE +0. EW005050
042203       10      CTR4AMT7         PIC S9(11)V9(7)  COMP-3 VALUE +0. EW005060
042203       10      CTR4AMT8         PIC S9(11)V9(7)  COMP-3 VALUE +0. EW005070
042203       10      CTR4AMT9         PIC S9(11)V9(7)  COMP-3 VALUE +0. EW005080
042203       10      CTR4AMT10        PIC S9(11)V9(7)  COMP-3 VALUE +0. EW005090
042203       10      CTR4AMT11        PIC S9(11)V9(7)  COMP-3 VALUE +0. EW005100
042203       10      CTR4AMT12        PIC S9(11)V9(7)  COMP-3 VALUE +0. EW005110
042203       10      CTR4AMT13        PIC S9(11)V9(7)  COMP-3 VALUE +0. EW005120
042203       10      CTR4AMT14        PIC S9(11)V9(7)  COMP-3 VALUE +0. EW005130
041706       10      CTR4AMT15        PIC S9(11)V9(7)  COMP-3 VALUE +0.         
041706       10      CTR4AMT16        PIC S9(11)V9(7)  COMP-3 VALUE +0.         
                                                                        EW005140
       01            OLD.                                               EW005150
           05        OLDKEY.                                            EW005160
             10      OLDKDIST          PIC  X(02).                      EW005170
             10      OLDKREQ           PIC  X(03).                      EW005180
             10      OLDKFY            PIC  X(02).                      EW005190
             10      OLDKFUND          PIC  X(01).                      EW005200
             10      OLDKSCHL          PIC  X(04).                      EW005210
             10      OLDKSEQ           PIC  X(01).                      EW005220
             10      OLDKPGM           PIC  X(03).                      EW005230
           05        OLDPRT            PIC  X(01).                      EW005240
           05        OLDRPT            PIC  X(01).                      EW005250
050399     05        OLDFORM7          PIC  X(01).                      EW005260
                                                                        EW005270
           COPY                        EWSCL.                           EW005280
           COPY                        EWFPG.                           EW005290
           COPY                        EWFRS.                           EW005300
           COPY                        EWRWF.                           EW005310
           COPY                        EWABF.                           EW005320
           COPY                        EWXCD.                           EW005330
083095     COPY                        EWXRD.                           EW005340
                                                                        EW005350
       01            OLDLN             PIC  X(133).                     EW005360
                                                                        EW005370
       01      HD1.                                                     EW005380
VSE        05  FILLER  PIC X(01) VALUE ' '.                             EW005390
002        05  FILLER  PIC X(06) VALUE 'EW030 '.                        EW005400
           05  HD1ABBR.                                                 EW005410
008         10 HD1B    OCCURS 22 TIMES INDEXED BY HD11 PIC X(01).       EW005420
030        05  FILLER  PIC X(11) VALUE SPACES.                          EW005430
041        05  HD1MODE PIC X(08) VALUE SPACES.                          EW005440
049        05  FILLER  PIC X(13) VALUE SPACES.                          EW005450
062        05  FILLER  PIC X(13) VALUE 'PC-3/4 REPORT'.                 EW005460
075        05  FILLER  PIC X(24) VALUE SPACES.                          EW005470
099        05  HD1USER PIC X(09) VALUE SPACES.                          EW005480
108        05  HD1MM   PIC X(02) VALUE SPACES.                          EW005490
110        05  FILLER  PIC X(01) VALUE '/'.                             EW005500
111        05  HD1DD   PIC X(02) VALUE SPACES.                          EW005510
113        05  FILLER  PIC X(01) VALUE '/'.                             EW005520
114        05  HD1YY   PIC X(02) VALUE SPACES.                          EW005530
116        05  FILLER  PIC X(02) VALUE SPACES.                          EW005540
118        05  HD1HR   PIC X(02) VALUE SPACES.                          EW005550
120        05  FILLER  PIC X(01) VALUE ':'.                             EW005560
121        05  HD1MN   PIC X(02) VALUE SPACES.                          EW005570
123        05  FILLER  PIC X(07) VALUE '  PAGE-'.                       EW005580
130        05  HD1PG   PIC ZZZ9.                                        EW005590
                                                                        EW005600
       01      HD2.                                                     EW005610
VSE        05  FILLER  PIC X(01) VALUE ' '.                             EW005620
002        05  FILLER  PIC X(41) VALUE SPACES.                          EW005630
           05  HD2HEAD.                                                 EW005640
043         10 HD2B    OCCURS 50 TIMES INDEXED BY HD21 PIC X(01).       EW005650
093        05  FILLER  PIC X(41) VALUE SPACES.                          EW005660
                                                                        EW005670
       01      HD3.                                                     EW005680
VSE        05  FILLER  PIC X(01) VALUE ' '.                             EW005690
002        05  FILLER  PIC X(41) VALUE SPACES.                          EW005700
           05  HD3HEAD.                                                 EW005710
043         10 HD3B    OCCURS 50 TIMES INDEXED BY HD31 PIC X(01).       EW005720
093        05  FILLER  PIC X(41) VALUE SPACES.                          EW005730
                                                                        EW005740
       01      HD4.                                                     EW005750
VSE        05  FILLER  PIC X(01) VALUE ' '.                             EW005760
002        05  FILLER  PIC X(06) VALUE 'FUND- '.                        EW005770
009        05  HD4FND  PIC X(01) VALUE SPACES.                          EW005780
010        05  FILLER  PIC X(124) VALUE SPACES.                         EW005790
                                                                        EW005800
       01      HD5.                                                     EW005810
VSE        05  FILLER  PIC X(01) VALUE ' '.                             EW005820
002        05  FILLER  PIC X(06) VALUE 'SCHL- '.                        EW005830
008        05  HD5SCHL PIC X(04) VALUE SPACES.                          EW005840
012        05  FILLER  PIC X(01) VALUE SPACES.                          EW005850
013        05  HD5DESC PIC X(30) VALUE SPACES.                          EW005860
050399*    05  FILLER  PIC X(91) VALUE SPACES.                          EW005870
050399     05  FILLER  PIC X(10) VALUE SPACES.                          EW005880
050399     05  HD5CHRT PIC X(20) VALUE SPACES.                          EW005890
050399     05  FILLER  PIC X(61) VALUE SPACES.                          EW005900
                                                                        EW005910
       01      HD6.                                                     EW005920
VSE        05  FILLER  PIC X(01) VALUE ' '.                             EW005930
002        05  FILLER  PIC X(20) VALUE SPACES.                          EW005940
022        05  FILLER  PIC X(29) VALUE '-----------------------------'. EW005950
052        05  FILLER  PIC X(29) VALUE '-- DIRECT -------------------'. EW005960
082        05  FILLER  PIC X(11) VALUE '-----------'.                   EW005970
091        05  FILLER  PIC X(43) VALUE SPACES.                          EW005980
                                                                        EW005990
       01      HD7.                                                     EW006000
VSE        05  FILLER  PIC X(01) VALUE ' '.                             EW006010
002        05  FILLER  PIC X(20) VALUE '----- PROGRAM ----- '.          EW006020
022        05  FILLER  PIC X(20) VALUE SPACES.                          EW006030
042        05  FILLER  PIC X(29) VALUE 'PURCHASED  MATERIAL   OTHER  '. EW006040
071        05  FILLER  PIC X(29) VALUE '   CAPITAL     TOTAL   SCHOOL'. EW006050
100        05  FILLER  PIC X(21) VALUE '     SCHOOL  DISTRICT'.         EW006060
121        05  FILLER  PIC X(13) VALUE SPACES.                          EW006070
                                                                        EW006080
       01      HD8.                                                     EW006090
VSE        05  FILLER  PIC X(01) VALUE ' '.                             EW006100
002        05  FILLER  PIC X(20) VALUE 'CATEGORY        NBR '.          EW006110
022        05  FILLER  PIC X(20) VALUE ' SALARIES  BENEFITS '.          EW006120
042        05  FILLER  PIC X(20) VALUE ' SERVICES  SUPPLIES '.          EW006130
062        05  FILLER  PIC X(20) VALUE ' EXPENSES    OUTLAY '.          EW006140
082        05  FILLER  PIC X(20) VALUE '   DIRECT  INDIRECT '.          EW006150
102        05  FILLER  PIC X(20) VALUE '     COST  INDIRECT '.          EW006160
122        05  FILLER  PIC X(12) VALUE '     TOTAL  '.                  EW006170
                                                                        EW006180
       01      HD9.                                                     EW006190
VSE        05  FILLER  PIC X(01) VALUE ' '.                             EW006200
002        05  FILLER  PIC X(04) VALUE SPACES.                          EW006210
006        05  FILLER  PIC X(47) VALUE                                  EW006220
                     'THOSE COSTS REPORTED IN THE COLUMN TITLED -SCHO'. EW006230
053        05  FILLER  PIC X(47) VALUE                                  EW006240
                     'OL INDIRECT- ARE DERIVED FROM TWO SOURCES: A) E'. EW006250
100        05  FILLER  PIC X(34) VALUE                                  EW006260
                     'XPENDITURES RECORDED BY SCHOOL    '.              EW006270
                                                                        EW006280
       01      HD10.                                                    EW006290
VSE        05  FILLER  PIC X(01) VALUE ' '.                             EW006300
002        05  FILLER  PIC X(04) VALUE SPACES.                          EW006310
006        05  FILLER  PIC X(47) VALUE                                  EW006320
                     'AND B) SCHOOL LEVEL EXPENDITURES CENTRALLY RECO'. EW006330
053        05  FILLER  PIC X(47) VALUE                                  EW006340
                     'RDED.  FUNCTIONALLY DISTRIBUTED, THESE COSTS AR'. EW006350
100        05  FILLER  PIC X(34) VALUE                                  EW006360
                     'E AS REPORTED BELOW.              '.              EW006370
                                                                        EW006380
       01      HD12.                                                    EW006390
VSE        05  FILLER  PIC X(01) VALUE ' '.                             EW006400
002        05  FILLER  PIC X(04) VALUE SPACES.                          EW006410
006        05  FILLER  PIC X(47) VALUE                                  EW006420
                     'DISTRICT INDIRECT COSTS ARE FUNCTIONALLY DISTRI'. EW006430
053        05  FILLER  PIC X(47) VALUE                                  EW006440
                     'BUTED AS REPORTED BELOW.                       '. EW006450
100        05  FILLER  PIC X(34) VALUE SPACES.                          EW006460
                                                                        EW006470
       01      HD13.                                                    EW006480
VSE        05  FILLER  PIC X(01) VALUE ' '.                             EW006490
002        05  FILLER  PIC X(02) VALUE SPACES.                          EW006500
004        05  FILLER  PIC X(29) VALUE '-----------------------------'. EW006510
033        05  FILLER  PIC X(29) VALUE '------RECONCILIATION TO ANNUA'. EW006520
062        05  FILLER  PIC X(29) VALUE 'L FINANCIAL REPORT-----------'. EW006530
091        05  FILLER  PIC X(24) VALUE '------------------------'.      EW006540
115        05  FILLER  PIC X(19) VALUE SPACES.                          EW006550
                                                                        EW006560
       01      HD14.                                                    EW006570
VSE        05  FILLER  PIC X(01) VALUE ' '.                             EW006580
002        05  FILLER  PIC X(11) VALUE '  RECREAT &'.                   EW006590
013        05  FILLER  PIC X(15) VALUE SPACES.                          EW006600
028        05  FILLER  PIC X(29) VALUE 'NON-PGM  COMMUNITY     DEBT  '. EW006610
041499*    05  FILLER  PIC X(29) VALUE '    FEDERAL     TOTAL        '. EW006620
041499     05  FILLER  PIC X(29) VALUE '    FEDERAL     CHARTER    TO'. EW006630
041499     05  FILLER  PIC X(11) VALUE 'TAL        '.                   EW006640
083095*    05  FILLER  PIC X(18) VALUE ' AFR    ROUNDING /'.            EW006650
083095     05  FILLER  PIC X(18) VALUE '   AFR  ROUNDING /'.            EW006660
104        05  FILLER  PIC X(30) VALUE SPACES.                          EW006670
                                                                        EW006680
       01      HD15.                                                    EW006690
VSE        05  FILLER  PIC X(01) VALUE ' '.                             EW006700
002        05  FILLER  PIC X(20) VALUE '  ENRICHMNT      OTH'.          EW006710
022        05  FILLER  PIC X(20) VALUE 'ER    CAPITAL    SER'.          EW006720
042        05  FILLER  PIC X(20) VALUE 'VICE    SERVICE   IN'.          EW006730
041499*    05  FILLER  PIC X(20) VALUE 'DIRECT    REPORTED  '.          EW006740
041499     05  FILLER  PIC X(20) VALUE 'DIRECT     SCHOOLS  '.          EW006750
041499     05  FILLER  PIC X(11) VALUE ' REPORTED  '.                   EW006760
083095*    05  FILLER  PIC X(20) VALUE '     TOTAL  DIFFEREN'.          EW006770
083095     05  FILLER  PIC X(20) VALUE '      TOTAL DIFFEREN'.          EW006780
102        05  FILLER  PIC X(20) VALUE 'CE                  '.          EW006790
122        05  FILLER  PIC X(11) VALUE SPACES.                          EW006800
                                                                        EW006810
050399 01      HD16.                                                    EW006820
050399     05  FILLER  PIC X(02) VALUE SPACES.                          EW006830
050399     05  FILLER  PIC X(29) VALUE 'CTRL FUNCTION AMOUNT    FUNCT'. EW006840
050399     05  FILLER  PIC X(29) VALUE 'ION AMOUNT    FUNCTION AMOUNT'. EW006850
050399     05  FILLER  PIC X(29) VALUE '    FUNCTION AMOUNT          '. EW006860
                                                                        EW006870
050399 01      HD17.                                                    EW006880
050399     05  FILLER  PIC X(02) VALUE SPACES.                          EW006890
050399     05  FILLER  PIC X(11) VALUE '4000  6100 '.                   EW006900
050399     05  HD17AMT1  PIC ZZZZZZZZZ-.                                EW006910
050399     05  FILLER  PIC X(09) VALUE '    6200 '.                     EW006920
050399     05  HD17AMT2  PIC ZZZZZZZZZ-.                                EW006930
050399     05  FILLER  PIC X(09) VALUE '    6300 '.                     EW006940
050399     05  HD17AMT3  PIC ZZZZZZZZZ-.                                EW006950
050399     05  FILLER  PIC X(09) VALUE '    6400 '.                     EW006960
050399     05  HD17AMT4  PIC ZZZZZZZZZ-.                                EW006970
                                                                        EW006980
050399 01      HD18.                                                    EW006990
050399     05  FILLER  PIC X(02) VALUE SPACES.                          EW007000
050399     05  FILLER  PIC X(11) VALUE '4001  7100 '.                   EW007010
050399     05  HD18AMT1  PIC ZZZZZZZZZ-.                                EW007020
050399     05  FILLER  PIC X(09) VALUE '    7200 '.                     EW007030
050399     05  HD18AMT2  PIC ZZZZZZZZZ-.                                EW007040
050399     05  FILLER  PIC X(09) VALUE '    7300 '.                     EW007050
050399     05  HD18AMT3  PIC ZZZZZZZZZ-.                                EW007060
050399     05  FILLER  PIC X(09) VALUE '    7400 '.                     EW007070
050399     05  HD18AMT4  PIC ZZZZZZZZZ-.                                EW007080
                                                                        EW007090
050399 01      HD19.                                                    EW007100
050399     05  FILLER  PIC X(02) VALUE SPACES.                          EW007110
050399     05  FILLER  PIC X(11) VALUE '4002  7500 '.                   EW007120
050399     05  HD19AMT1  PIC ZZZZZZZZZ-.                                EW007130
050399     05  FILLER  PIC X(09) VALUE '    7600 '.                     EW007140
050399     05  HD19AMT2  PIC ZZZZZZZZZ-.                                EW007150
050399     05  FILLER  PIC X(09) VALUE '    7700 '.                     EW007160
050399     05  HD19AMT3  PIC ZZZZZZZZZ-.                                EW007170
050399     05  FILLER  PIC X(09) VALUE '    7800 '.                     EW007180
050399     05  HD19AMT4  PIC ZZZZZZZZZ-.                                EW007190
                                                                        EW007200
050399 01      HD20.                                                    EW007210
050399     05  FILLER  PIC X(02) VALUE SPACES.                          EW007220
050399     05  FILLER  PIC X(11) VALUE '4003  7900 '.                   EW007230
050399     05  HD20AMT1  PIC ZZZZZZZZZ-.                                EW007240
050399     05  FILLER  PIC X(09) VALUE '    8100 '.                     EW007250
050399     05  HD20AMT2  PIC ZZZZZZZZZ-.                                EW007260
041706     05  FILLER  PIC X(09) VALUE '    8200 '.                             
041706     05  HD20AMT3  PIC ZZZZZZZZZ-.                                        
041706     05  FILLER  PIC X(09) VALUE '    6500 '.                             
041706     05  HD20AMT4  PIC ZZZZZZZZZ-.                                        
                                                                        EW007270
                                                                        EW007280
       PROCEDURE DIVISION.                                              EW007290
      ******************************************************************EW007300
           SORT    SRT-SORT            ASCENDING KEY       SRTKEY       EW007310
                                       INPUT     PROCEDURE 000-INPUT    EW007320
                                       OUTPUT    PROCEDURE 500-OUTPUT.  EW007330
           STOP                        RUN.                             EW007340
                                                                        EW007350
      ******************************************************************EW007360
       000-INPUT SECTION.                                               EW007370
           PERFORM 490-HOUSEKEEPING    THRU 490-EXIT.                   EW007380
                                                                        EW007390
       005-LOOP.                                                        EW007400
           IF      RETRWF              NOT  =  '00'                     EW007410
             GO                        TO   499-EOJ.                    EW007420
           PERFORM 015-SELECT          THRU 015-EXIT                    EW007430
           PERFORM 010-READ            THRU 010-EXIT                    EW007440
           GO                          TO   005-LOOP.                   EW007450
                                                                        EW007460
      ******************************************************************EW007470
       010-READ.                                                        EW007480
           READ    RWF-DISK            NEXT                             EW007490
           IF     (RWFDK               >    ENDKEY)                  OR EW007500
                  (RETRWF              NOT  =   '00')                   EW007510
             MOVE  '99'                TO   RETRWF                      EW007520
           ELSE                                                         EW007530
             MOVE  RWFD                TO   RWF.                        EW007540
       010-EXIT.                                                        EW007550
           EXIT.                                                        EW007560
                                                                        EW007570
      ******************************************************************EW007580
       015-SELECT.                                                      EW007590
           IF     (RQRREQ              =    HIGH-VALUES)                EW007600
             GO                        TO   015-EXIT.                   EW007610
                                                                        EW007620
           MOVE    RWFFUND             TO   SELFUND                     EW007630
           MOVE    RWFSCHL             TO   SELSCHL                     EW007640
           SET     RQR1  SEL1          TO   +1.                         EW007650
       015-MASK.                                                        EW007660
           IF      RQRB    (RQR1)      =    SPACES                      EW007670
             MOVE  ' '                 TO   SELB         (SEL1).        EW007680
           IF      RQR1                <    +10                         EW007690
             SET   RQR1  SEL1          UP   BY  +1                      EW007700
             GO                        TO   015-MASK.                   EW007710
                                                                        EW007720
           IF     (RQRDIST             NOT  =  RWFDIST)      OR         EW007730
                  (RQRFY               NOT  =  RWFFY)        OR         EW007740
                  (RQRSEL              NOT  =  SEL)                     EW007750
             GO                        TO   015-EXIT.                   EW007760
                                                                        EW007770
           MOVE    SPACES              TO   SRT                         EW007780
           MOVE    ZEROS               TO   SRTTBL    SRTTOT            EW007790
           MOVE    RQRDIST             TO   SRTKDIST                    EW007800
           MOVE    RQRREQ              TO   SRTKREQ                     EW007810
           MOVE    RWFFY               TO   SRTKFY                      EW007820
           MOVE    RWFFUND             TO   SRTKFUND                    EW007830
           MOVE    RWFSCHL             TO   SRTKSCHL                    EW007840
           MOVE    RWFPGM              TO   SRTKPGM                     EW007850
           PERFORM 020-PGM             THRU 020-EXIT                    EW007860
           MOVE    FPGRPT              TO   SRTKSEQ                     EW007870
           MOVE    RQRPRT              TO   SRTPRT                      EW007880
           MOVE    RQRRPT              TO   SRTRPT                      EW007890
           IF      RWFTABLE            =    '99999'                     EW007900
             MOVE    RWFRRECEN         TO   SRTAMT   (01)               EW007910
             MOVE    RWFROTHER         TO   SRTAMT   (02)               EW007920
             MOVE    RWFRCAP           TO   SRTAMT   (03)               EW007930
             MOVE    RWFRCMTYSRVC      TO   SRTAMT   (04)               EW007940
             MOVE    RWFRDEBT          TO   SRTAMT   (05)               EW007950
             MOVE    RWFRFEDIND        TO   SRTAMT   (06)               EW007960
041499       MOVE    RWFRCHRTR         TO   SRTAMT   (07)               EW007970
             MOVE    RWFTOTAL          TO   SRTTOT                      EW007980
             MOVE    'Y'               TO   SRTRECON                    EW007990
             GO                        TO   015-CONT                    EW008000
050399     ELSE                                                         EW008010
050399     IF      RWFTABLE            =    '99998'                AND  EW008020
050399             RWFPGM              NOT  NUMERIC                     EW008030
050399       MOVE    SPACES            TO   SRTKPGM                     EW008040
050399       MOVE    RWFDI6100         TO   SRTAMT   (01)               EW008050
050399       MOVE    RWFDI6200         TO   SRTAMT   (02)               EW008060
050399       MOVE    RWFDI6300         TO   SRTAMT   (03)               EW008070
050399       MOVE    RWFDI6400         TO   SRTAMT   (04)               EW008080
050399       MOVE    RWFDI7100         TO   SRTAMT   (05)               EW008090
050399       MOVE    RWFDI7200         TO   SRTAMT   (06)               EW008100
050399       MOVE    RWFSI7300         TO   SRTAMT   (07)               EW008110
050399       MOVE    RWFDI7400         TO   SRTAMT   (08)               EW008120
050399       MOVE    RWFDI7500         TO   SRTAMT   (09)               EW008130
050399       MOVE    RWFDI7600         TO   SRTAMT   (10)               EW008140
050399       MOVE    RWFDI7700         TO   SRTAMT   (11)               EW008150
050399       MOVE    RWFDI7800         TO   SRTAMT   (12)               EW008160
050399       MOVE    RWFDI7900         TO   SRTAMT   (13)               EW008170
050399       MOVE    RWFDI8100         TO   SRTAMT   (14)               EW008180
041706       MOVE    RWFDI8200         TO   SRTAMT   (15)                       
041706       MOVE    RWFDI6500         TO   SRTAMT   (16)                       
041706*      MOVE    ZEROS             TO   SRTAMT   (15)               EW008190
041706*      MOVE    ZEROS             TO   SRTAMT   (16)               EW008200
050399       MOVE    ZEROS             TO   SRTAMT   (17)               EW008210
050399       MOVE    ZEROS             TO   SRTAMT   (18)               EW008220
050399       MOVE    ZEROS             TO   SRTAMT   (19)               EW008230
050399       MOVE    ZEROS             TO   SRTAMT   (20)               EW008240
050399       MOVE    ZEROS             TO   SRTAMT   (21)               EW008250
050399       MOVE    ZEROS             TO   SRTAMT   (22)               EW008260
050399       MOVE    ZEROS             TO   SRTAMT   (23)               EW008270
050399       MOVE    ZEROS             TO   SRTAMT   (24)               EW008280
050399       MOVE    ZEROS             TO   SRTAMT   (25)               EW008290
050399       MOVE    ZEROS             TO   SRTAMT   (26)               EW008300
050399       MOVE    ZEROS             TO   SRTAMT   (27)               EW008310
050399       MOVE    ZEROS             TO   SRTAMT   (28)               EW008320
050399       MOVE    ZEROS             TO   SRTAMT   (29)               EW008330
050399       MOVE    ZEROS             TO   SRTAMT   (30)               EW008340
041706       MOVE    ZEROS             TO   SRTAMT   (31)               EW008340
041706       MOVE    ZEROS             TO   SRTAMT   (32)               EW008340
041706       MOVE    ZEROS             TO   SRTAMT   (33)               EW008340
041706       MOVE    ZEROS             TO   SRTAMT   (34)               EW008340
050399       MOVE    'Y'               TO   SRTFORM7                    EW008350
050399       GO                        TO   015-CONT                    EW008360
050399     ELSE                                                         EW008370
050399     IF      RWFTABLE            =    '99998'                AND  EW008380
050399             RWFPGM              IS   NUMERIC                     EW008390
050399       MOVE    RWFDSAL           TO   SRTAMT   (01)               EW008400
050399       MOVE    RWFDBEN           TO   SRTAMT   (02)               EW008410
050399       MOVE    RWFDPRCH          TO   SRTAMT   (03)               EW008420
050399       MOVE    RWFDMATSUP        TO   SRTAMT   (04)               EW008430
050399       MOVE    RWFDOTHER         TO   SRTAMT   (05)               EW008440
050399       MOVE    RWFDCAP           TO   SRTAMT   (06)               EW008450
050399       MOVE    'Y'               TO   SRTFORM7                    EW008460
           ELSE                                                         EW008470
             MOVE    RWFDSAL           TO   SRTAMT   (01)               EW008480
             MOVE    RWFDBEN           TO   SRTAMT   (02)               EW008490
             MOVE    RWFDPRCH          TO   SRTAMT   (03)               EW008500
             MOVE    RWFDMATSUP        TO   SRTAMT   (04)               EW008510
             MOVE    RWFDOTHER         TO   SRTAMT   (05)               EW008520
             MOVE    RWFDCAP           TO   SRTAMT   (06).              EW008530
           MOVE    RWFSI6100           TO   SRTAMT   (07)               EW008540
           MOVE    RWFSI6200           TO   SRTAMT   (08)               EW008550
           MOVE    RWFSI6300           TO   SRTAMT   (09)               EW008560
           MOVE    RWFSI6400           TO   SRTAMT   (10)               EW008570
041706     MOVE    RWFSI6500           TO   SRTAMT   (31)                       
           MOVE    RWFSI7300           TO   SRTAMT   (11)               EW008580
           MOVE    RWFSI7400           TO   SRTAMT   (12)               EW008590
           MOVE    RWFSI7600           TO   SRTAMT   (13)               EW008600
           MOVE    RWFSI7700           TO   SRTAMT   (14)               EW008610
           MOVE    RWFSI7800           TO   SRTAMT   (15)               EW008620
           MOVE    RWFSI7900           TO   SRTAMT   (16)               EW008630
           MOVE    RWFSI8100           TO   SRTAMT   (17)               EW008640
041706     MOVE    RWFSI8200           TO   SRTAMT   (32)                       
           MOVE    RWFDI6100           TO   SRTAMT   (18)               EW008650
           MOVE    RWFDI6200           TO   SRTAMT   (19)               EW008660
           MOVE    RWFDI6300           TO   SRTAMT   (20)               EW008670
           MOVE    RWFDI6400           TO   SRTAMT   (21)               EW008680
041706     MOVE    RWFDI6500           TO   SRTAMT   (33)                       
           MOVE    RWFDI7100           TO   SRTAMT   (22)               EW008690
           MOVE    RWFDI7200           TO   SRTAMT   (23)               EW008700
           MOVE    RWFDI7400           TO   SRTAMT   (24)               EW008710
           MOVE    RWFDI7500           TO   SRTAMT   (25)               EW008720
           MOVE    RWFDI7600           TO   SRTAMT   (26)               EW008730
           MOVE    RWFDI7700           TO   SRTAMT   (27)               EW008740
           MOVE    RWFDI7800           TO   SRTAMT   (28)               EW008750
           MOVE    RWFDI7900           TO   SRTAMT   (29)               EW008760
           MOVE    RWFDI8100           TO   SRTAMT   (30).              EW008770
041706     MOVE    RWFDI8200           TO   SRTAMT   (34).                      
                                                                        EW008780
       015-CONT.                                                        EW008790
           IF      SRTKFUND          =    '1'                           EW008800
             MOVE  'Y'               TO   WSCFLG1.                      EW008810
           IF      SRTKFUND          =    '4'                           EW008820
             MOVE  'Y'               TO   WSCFLG4.                      EW008830
           RELEASE SRT                                                  EW008840
050399*    IF      SRTRECON          NOT  =  'Y'                        EW008850
050399     IF      SRTRECON          NOT  =  'Y'                  AND   EW008860
050399             SRTFORM7          NOT  =  'Y'                        EW008870
             MOVE  '0000'            TO   SRTKSCHL                      EW008880
             RELEASE  SRT.                                              EW008890
       015-EXIT.                                                        EW008900
           EXIT.                                                        EW008910
                                                                        EW008920
       020-PGM.                                                         EW008930
           MOVE    RQRDIST             TO   FPGKEY                      EW008940
           MOVE    RQRFY               TO   FPGFY                       EW008950
           MOVE    'FPG'               TO   FPGPREF                     EW008960
           MOVE    RWFPGM              TO   FPGFPG                      EW008970
           MOVE    FPGKEY              TO   CRFDK                       EW008980
           READ    CRF-DISK                                             EW008990
           IF      RETCRF              NOT  =  '00'                     EW009000
             MOVE  SPACES              TO   FPG                         EW009010
           ELSE                                                         EW009020
             MOVE  CRFD                TO   FPG.                        EW009030
       020-EXIT.                                                        EW009040
           EXIT.                                                        EW009050
                                                                        EW009060
      ******************************************************************EW009070
       490-HOUSEKEEPING.                                                EW009080
           OPEN    INPUT                    CRD-CARD      CRF-DISK      EW009090
                                            RWF-DISK                    EW009100
                   OUTPUT                   PR1-PRNT                    EW009110
           MOVE    SPACES              TO   LN1                         EW009120
           MOVE    '1'                 TO   CTLCHAR                     EW009130
           MOVE    HIGH-VALUES         TO   RQR           RQH.          EW009140
           SET     RQH1                TO   +1.                         EW009150
       490-LOAD.                                                        EW009160
           READ    CRD-CARD            AT   END                         EW009170
             GO                        TO   490-TEST.                   EW009180
           IF      CRDREQ              NOT  NUMERIC                     EW009190
             MOVE    CRD               TO   LNMVALUE2                   EW009200
             PERFORM 520-PRINT         THRU 520-EXIT                    EW009210
             GO                        TO   490-LOAD.                   EW009220
           MOVE    SPACES              TO   ERR                         EW009230
           IF      CRDID               =    'SL'                        EW009240
             GO                        TO   490-REQ                     EW009250
           ELSE                                                         EW009260
             IF     (CRDID             =    'H1')                    OR EW009270
                    (CRDID             =    'H2')                       EW009280
               GO                      TO   490-HEAD                    EW009290
             ELSE                                                       EW009300
               GO                      TO   490-LOAD.                   EW009310
                                                                        EW009320
       490-REQ.                                                         EW009330
           IF     (CRDPRT              NOT  =   'U')                 ANDEW009340
                  (CRDPRT              NOT  =   'T')                 ANDEW009350
                  (CRDPRT              NOT  =   'B')                 ANDEW009360
                  (CRDPRT              NOT  =   'N')                    EW009370
             MOVE  ALL '-'             TO   ERRPRT.                     EW009380
           IF     (CRDDIST             =    SPACES)                     EW009390
             MOVE  ALL '-'             TO   ERRDIST.                    EW009400
           IF     (CRDFY               NOT  NUMERIC)                    EW009410
             MOVE  ALL '-'             TO   ERRFY.                      EW009420
           IF     (CRDRPT              NOT  =   'A')               AND  EW009430
                  (CRDRPT              NOT  =   'B')                    EW009440
             MOVE  ALL '-'             TO   ERRRPT.                     EW009450
           IF     (CRDSRC              NOT  =   ' ')                    EW009460
             MOVE  ALL '-'             TO   ERRSRC.                     EW009470
           IF     (CRDFUND             NOT  =   '1')               AND  EW009480
                  (CRDFUND             NOT  =   '4')               AND  EW009490
                  (CRDFUND             NOT  =   ' ')                    EW009500
             MOVE  ALL '-'             TO   ERRFUND.                    EW009510
           IF      ERR                 NOT  =   SPACES                  EW009520
             MOVE    'ERROR. BYPASSED' TO   LNMMSG                      EW009530
             MOVE    CRD               TO   LNMVALUE2                   EW009540
             PERFORM 520-PRINT         THRU 520-EXIT                    EW009550
             MOVE    ERR               TO   LNMVALUE2                   EW009560
             PERFORM 520-PRINT         THRU 520-EXIT                    EW009570
             GO                        TO   490-LOAD                    EW009580
           ELSE                                                         EW009590
             MOVE    'REQUEST LOADED'  TO   LNMMSG                      EW009600
             MOVE    CRD               TO   LNMVALUE2                   EW009610
             PERFORM 520-PRINT         THRU 520-EXIT.                   EW009620
           MOVE    CRDREQ              TO   RQRREQ                      EW009630
           MOVE    CRDPRT              TO   RQRPRT                      EW009640
           MOVE    CRDDIST             TO   RQRDIST                     EW009650
           MOVE    CRDFY               TO   RQRFY                       EW009660
           MOVE    CRDFUND             TO   RQRFUND                     EW009670
           MOVE    CRDSCHL             TO   RQRSCHL                     EW009680
           MOVE    CRDRPT              TO   RQRRPT                      EW009690
                                                                        EW009700
           MOVE    CRDDIST             TO   RWFKEY                      EW009710
           MOVE    CRDFY               TO   RWFFY                       EW009720
           MOVE    CRDFUND             TO   RWFFUND                     EW009730
           IF     (RWFKEY              <    STRKEY)                     EW009740
             MOVE  RWFKEY              TO   STRKEY.                     EW009750
           SET     RWF1                TO   +1.                         EW009760
       490-SET.                                                         EW009770
           IF      RWFB     (RWF1)     =    SPACES                      EW009780
             MOVE  HIGH-VALUES         TO   RWFB (RWF1).                EW009790
           IF      RWF1                <    +17                         EW009800
             SET   RWF1                UP   BY  +1                      EW009810
             GO                        TO   490-SET.                    EW009820
           IF     (RWFKEY              >    ENDKEY)                     EW009830
             MOVE  RWFKEY              TO   ENDKEY.                     EW009840
           GO                          TO   490-LOAD.                   EW009850
       490-HEAD.                                                        EW009860
           MOVE    CRD                 TO   LNMVALUE2                   EW009870
           PERFORM 520-PRINT           THRU 520-EXIT                    EW009880
           MOVE    CRHREQ              TO   RQHREQ       (RQH1)         EW009890
           MOVE    CRHID               TO   RQHID        (RQH1)         EW009900
           MOVE    CRHUSER             TO   RQHUSER      (RQH1)         EW009910
           MOVE    SPACES              TO   RQHHEAD      (RQH1)         EW009920
           MOVE    +50                 TO   CTRIDX                      EW009930
           SET     CRH1                TO   +50.                        EW009940
       490-HEAD1.                                                       EW009950
           IF      CRHB         (CRH1) =    SPACES                      EW009960
             IF      CRH1              >    +2                          EW009970
               ADD   -1                TO   CTRIDX                      EW009980
               SET   CRH1              DOWN BY  +1                      EW009990
               GO                      TO   490-HEAD1.                  EW010000
           SUBTRACT +1                 FROM CTRIDX                      EW010010
           COMPUTE CTRIDX      ROUNDED =    (50  - CTRIDX) / 2          EW010020
           SET     RQH2                TO   CTRIDX                      EW010030
           SET     CRH1                TO   +1.                         EW010040
       490-HEAD2.                                                       EW010050
           MOVE    CRHB         (CRH1) TO   RQHB         (RQH1 RQH2)    EW010060
           IF      RQH2                <    +50                         EW010070
             SET   RQH2  CRH1          UP   BY  +1                      EW010080
             GO                        TO   490-HEAD2.                  EW010090
           SET     RQH1             UP BY   +1                          EW010100
           GO                          TO   490-LOAD.                   EW010110
                                                                        EW010120
       490-TEST.                                                        EW010130
           IF      RQR                 =    HIGH-VALUES                 EW010140
             MOVE    'EW030 NO REQUESTS *'   TO   LNMMSG                EW010150
             PERFORM 520-PRINT         THRU 520-EXIT.                   EW010160
           IF      RQRRPT              =    'B'                         EW010170
             OPEN  OUTPUT              XCD-DISK                         EW010180
             OPEN  INPUT               ABF-DISK.                        EW010190
           IF      RETCRF              NOT  =   '00'                    EW010200
             MOVE    'CRF OPEN ERROR'  TO   LNMMSG                      EW010210
             MOVE    RETCRF            TO   LNMVALUE1                   EW010220
             PERFORM 520-PRINT         THRU 520-EXIT.                   EW010230
           IF      RETRWF              NOT  =   '00'                    EW010240
             MOVE    'RWF OPEN ERROR'  TO   LNMMSG                      EW010250
             MOVE    RETRWF            TO   LNMVALUE1                   EW010260
             PERFORM 520-PRINT         THRU 520-EXIT.                   EW010270
           IF      RETABF              NOT  =   '00'                    EW010280
             MOVE    'ABF OPEN ERROR'  TO   LNMMSG                      EW010290
             MOVE    RETABF            TO   LNMVALUE1                   EW010300
             PERFORM 520-PRINT         THRU 520-EXIT.                   EW010310
           IF      RETXCD              NOT  =   '00'                    EW010320
             MOVE    'XCD OPEN ERROR'  TO   LNMMSG                      EW010330
             MOVE    RETXCD            TO   LNMVALUE1                   EW010340
             PERFORM 520-PRINT         THRU 520-EXIT.                   EW010350
           IF     (RETCRF              NOT  =   '00')                OR EW010360
                  (RETRWF              NOT  =   '00')                OR EW010370
                  (RETABF              NOT  =   '00')                OR EW010380
                  (RETXCD              NOT  =   '00')                   EW010390
             GO                        TO   499-EOJ.                    EW010400
           PERFORM 493-TBL-PGM         THRU 493-EXIT.                   EW010410
           IF      RQRRPT              =    'B'                         EW010420
             PERFORM 494-TBL-ABF       THRU 494-EXIT.                   EW010430
           MOVE    STRKEY              TO   RWFDK                       EW010440
           START   RWF-DISK        KEY >    RWFDK                       EW010450
           IF      RETRWF              =    '00'                        EW010460
             PERFORM 010-READ          THRU 010-EXIT.                   EW010470
       490-EXIT.                                                        EW010480
           EXIT.                                                        EW010490
                                                                        EW010500
      ******************************************************************EW010510
       493-TBL-PGM.                                                     EW010520
           MOVE    RETCRF              TO   RETCRFOLD                   EW010530
           MOVE    HIGH-VALUES         TO   PGMTBL                      EW010540
           SET     PGM1                TO   +1                          EW010550
           MOVE    RQRDIST             TO   FPGKEY                      EW010560
           MOVE    RQRFY               TO   FPGFY                       EW010570
           MOVE    'FPG'               TO   FPGPREF                     EW010580
           MOVE    FPGKEY              TO   CRFDK                       EW010590
           START   CRF-DISK      KEY   >    CRFDK.                      EW010600
           IF      RETCRF              NOT  =  '00'                     EW010610
             MOVE  RETCRFOLD           TO   RETCRF                      EW010620
             GO                        TO   493-EXIT.                   EW010630
       493-LOOP.                                                        EW010640
           READ    CRF-DISK            NEXT                             EW010650
           IF      RETCRF              =    '00'                        EW010660
             MOVE  CRFD                TO   FPG                         EW010670
             IF    FPGDIST             =    RQRDIST             AND     EW010680
                   FPGFY               =    RQRFY               AND     EW010690
                   FPGPREF             =    'FPG'                       EW010700
               MOVE FPGFPG             TO   PGMPGM  (PGM1)              EW010710
               MOVE FPGRPT             TO   PGMSEQ  (PGM1)              EW010720
               MOVE ZEROS              TO   PGMSTF  (PGM1)              EW010730
               IF  PGM1                <    +1000                       EW010740
                 SET PGM1              UP   BY  +1                      EW010750
                 GO                    TO   493-LOOP.                   EW010760
           MOVE    RETCRFOLD           TO   RETCRF.                     EW010770
       493-EXIT.                                                        EW010780
           EXIT.                                                        EW010790
                                                                        EW010800
       494-TBL-ABF.                                                     EW010810
           MOVE    RETABF              TO   RETABFOLD                   EW010820
           MOVE    RQRDIST             TO   ABFKEY                      EW010830
           MOVE    RQRFY               TO   ABFFY                       EW010840
           MOVE    ABFKEY              TO   ABFDK                       EW010850
           START   ABF-DISK      KEY   >    ABFDK                       EW010860
           IF      RETABF              NOT  =  '00'                     EW010870
             MOVE  RETABFOLD           TO   RETABF                      EW010880
             GO                        TO   494-EXIT.                   EW010890
       494-LOOP1.                                                       EW010900
           READ    ABF-DISK            NEXT                             EW010910
101702     MOVE    ABFD                TO   ABF.                        EW010970
           IF      RETABF              NOT  =  '00'             OR      EW010920
                   ABFDIST             NOT  =   RQRDIST         OR      EW010930
                   ABFFY               NOT  =   RQRFY                   EW010940
             MOVE  RETABFOLD           TO   RETABF                      EW010950
             GO                        TO   494-EXIT.                   EW010960
101702*    MOVE    ABFD                TO   ABF.                        EW010970
       494-LOOP2.                                                       EW010980
           SEARCH  ALL  PGMENTRY                                        EW010990
             AT  END                                                    EW011000
               MOVE  '***PGM NOT IN TBL***' TO  LNMMSG                  EW011010
               MOVE   ABFPGM           TO   LNMVALUE2                   EW011020
               PERFORM 520-PRINT       THRU 520-EXIT                    EW011030
               GO                      TO   494-LOOP1                   EW011040
             WHEN    PGMPGM (PGM1)     =    ABFPGM                      EW011050
               ADD   ABFSTAFF          TO   PGMSTF  (PGM1)              EW011060
               GO                      TO   494-LOOP1.                  EW011070
       494-EXIT.                                                        EW011080
           EXIT.                                                        EW011090
                                                                        EW011100
      ******************************************************************EW011110
       499-EOJ.                                                         EW011120
           MOVE    SPACES              TO   SRT                         EW011130
           MOVE    ZEROS               TO   SRTTBL       SRTTOT         EW011140
           IF      WSCFLG1             NOT  =   'Y'                     EW011150
             GO                        TO   499-FUND4.                  EW011160
           MOVE    RQRDIST             TO   SRTKDIST                    EW011170
           MOVE    RQRREQ              TO   SRTKREQ                     EW011180
           MOVE    RQRFY               TO   SRTKFY                      EW011190
           MOVE    '1'                 TO   SRTKFUND                    EW011200
           MOVE    '0000'              TO   SRTKSCHL                    EW011210
           MOVE    RQRPRT              TO   SRTPRT                      EW011220
           MOVE    RQRRPT              TO   SRTRPT                      EW011230
           SET     PGM1                TO   +1.                         EW011240
       499-LOOP1.                                                       EW011250
           IF      PGMENTRY (PGM1)     =    HIGH-VALUES                 EW011260
             SET   PGM1                TO   +1                          EW011270
             GO                        TO   499-FUND4.                  EW011280
           MOVE    PGMPGM (PGM1)       TO   SRTKPGM                     EW011290
           MOVE    PGMSEQ (PGM1)       TO   SRTKSEQ                     EW011300
           RELEASE SRT                                                  EW011310
           IF      PGM1                <    +1000                       EW011320
             SET   PGM1                UP   BY  +1                      EW011330
             GO                        TO   499-LOOP1.                  EW011340
       499-FUND4.                                                       EW011350
           IF      WSCFLG4             NOT  =   'Y'                     EW011360
             GO                        TO   499-EXIT.                   EW011370
           MOVE    RQRDIST             TO   SRTKDIST                    EW011380
           MOVE    RQRREQ              TO   SRTKREQ                     EW011390
           MOVE    RQRFY               TO   SRTKFY                      EW011400
           MOVE    '4'                 TO   SRTKFUND                    EW011410
           MOVE    '0000'              TO   SRTKSCHL                    EW011420
           MOVE    RQRPRT              TO   SRTPRT                      EW011430
           MOVE    RQRRPT              TO   SRTRPT                      EW011440
           SET     PGM1                TO   +1.                         EW011450
       499-LOOP2.                                                       EW011460
           IF      PGMENTRY (PGM1)     =    HIGH-VALUES                 EW011470
             SET   PGM1                TO   +1                          EW011480
             GO                        TO   499-EXIT.                   EW011490
           MOVE    PGMPGM (PGM1)       TO   SRTKPGM                     EW011500
           MOVE    PGMSEQ (PGM1)       TO   SRTKSEQ                     EW011510
           RELEASE SRT                                                  EW011520
           IF      PGM1                <    +1000                       EW011530
             SET   PGM1                UP   BY  +1                      EW011540
             GO                        TO   499-LOOP2.                  EW011550
       499-EXIT.                                                        EW011560
           EXIT.                                                        EW011570
                                                                        EW011580
      ******************************************************************EW011590
       500-OUTPUT SECTION.                                              EW011600
           PERFORM 990-HOUSEKEEPING    THRU 990-EXIT.                   EW011610
       505-LOOP.                                                        EW011620
             IF    (SRTKDIST           NOT  =   OLDKDIST)            OR EW011630
                   (SRTKREQ            NOT  =   OLDKREQ)             OR EW011640
                   (SRTKFY             NOT  =   OLDKFY)              OR EW011650
                   (SRTKFUND           NOT  =   OLDKFUND)            OR EW011660
                   (SRTKSCHL           NOT  =   OLDKSCHL)            OR EW011670
                   (SRTKSEQ            NOT  =   OLDKSEQ)             OR EW011680
                   (SRTKPGM            NOT  =   OLDKPGM)                EW011690
               PERFORM 615-1TOT        THRU 615-EXIT                    EW011700
               IF  (SRTKDIST           NOT  =   OLDKDIST)            OR EW011710
                   (SRTKREQ            NOT  =   OLDKREQ)             OR EW011720
                   (SRTKFY             NOT  =   OLDKFY)              OR EW011730
                   (SRTKFUND           NOT  =   OLDKFUND)            OR EW011740
                   (SRTKSCHL           NOT  =   OLDKSCHL)            OR EW011750
                   (SRTKSEQ            NOT  =   OLDKSEQ)                EW011760
                 PERFORM 625-2TOT      THRU 625-EXIT                    EW011770
                 IF  (SRTKDIST         NOT  =   OLDKDIST)            OR EW011780
                     (SRTKREQ          NOT  =   OLDKREQ)             OR EW011790
                     (SRTKFY           NOT  =   OLDKFY)              OR EW011800
                     (SRTKFUND         NOT  =   OLDKFUND)            OR EW011810
                     (SRTKSCHL         NOT  =   OLDKSCHL)               EW011820
                   PERFORM 635-3TOT    THRU 635-EXIT                    EW011830
                   IF  (SRTKDIST       NOT  =   OLDKDIST)            OR EW011840
                       (SRTKREQ        NOT  =   OLDKREQ)             OR EW011850
                       (SRTKFY         NOT  =   OLDKFY)              OR EW011860
                       (SRTKFUND       NOT  =   OLDKFUND)               EW011870
                     PERFORM 645-4TOT  THRU 645-EXIT                    EW011880
                     IF  (SRTKDIST     NOT  =   OLDKDIST)            OR EW011890
                         (SRTKREQ      NOT  =   OLDKREQ)             OR EW011900
                         (SRTKFY       NOT  =   OLDKFY)                 EW011910
                       PERFORM 655-5TOT     THRU 655-EXIT               EW011920
                       IF  (SRTKEY          =    HIGH-VALUES)           EW011930
                         GO                 TO   999-EOJ                EW011940
                       ELSE                                             EW011950
                         PERFORM 650-5CHG   THRU 650-EXIT               EW011960
                     ELSE                                               EW011970
                       PERFORM 640-4CHG     THRU 640-EXIT               EW011980
                   ELSE                                                 EW011990
                     PERFORM 630-3CHG       THRU 630-EXIT               EW012000
                 ELSE                                                   EW012010
                   PERFORM 620-2CHG         THRU 620-EXIT               EW012020
               ELSE                                                     EW012030
                 PERFORM 610-1CHG           THRU 610-EXIT.              EW012040
                                                                        EW012050
           PERFORM 515-PROCESS         THRU 515-EXIT                    EW012060
           PERFORM 510-READ            THRU 510-EXIT                    EW012070
           GO                          TO   505-LOOP.                   EW012080
                                                                        EW012090
      ******************************************************************EW012100
       510-READ.                                                        EW012110
           RETURN  SRT-SORT            AT   END                         EW012120
             MOVE  HIGH-VALUES         TO   SRTKEY.                     EW012130
       510-EXIT.                                                        EW012140
           EXIT.                                                        EW012150
                                                                        EW012160
      ******************************************************************EW012170
       515-PROCESS.                                                     EW012180
           IF       SRTRECON           =    'Y'                         EW012190
             ADD    SRTAMT  (01)       TO   CTRRECR     CTRTOT          EW012200
             ADD    SRTAMT  (02)       TO   CTROTHR     CTRTOT          EW012210
             ADD    SRTAMT  (03)       TO   CTRCAP      CTRTOT          EW012220
             ADD    SRTAMT  (04)       TO   CTRCOMSRV   CTRTOT          EW012230
             ADD    SRTAMT  (05)       TO   CTRDEBT     CTRTOT          EW012240
             ADD    SRTAMT  (06)       TO   CTRFEDIND   CTRTOT          EW012250
041499       ADD    SRTAMT  (07)       TO   CTRCHRTR    CTRTOT          EW012260
             ADD    SRTTOT             TO   CTRAFR                      EW012270
             GO                        TO   515-EXIT.                   EW012280
050399     IF       SRTFORM7           =    'Y'                    AND  EW012290
050399              SRTKPGM            =    SPACES                      EW012300
050399       ADD    SRTAMT  (01)       TO   CTR4AMT1                    EW012310
050399       ADD    SRTAMT  (02)       TO   CTR4AMT2                    EW012320
050399       ADD    SRTAMT  (03)       TO   CTR4AMT3                    EW012330
050399       ADD    SRTAMT  (04)       TO   CTR4AMT4                    EW012340
050399       ADD    SRTAMT  (05)       TO   CTR4AMT5                    EW012350
050399       ADD    SRTAMT  (06)       TO   CTR4AMT6                    EW012360
050399       ADD    SRTAMT  (07)       TO   CTR4AMT7                    EW012370
050399       ADD    SRTAMT  (08)       TO   CTR4AMT8                    EW012380
050399       ADD    SRTAMT  (09)       TO   CTR4AMT9                    EW012390
050399       ADD    SRTAMT  (10)       TO   CTR4AMT10                   EW012400
050399       ADD    SRTAMT  (11)       TO   CTR4AMT11                   EW012410
050399       ADD    SRTAMT  (12)       TO   CTR4AMT12                   EW012420
050399       ADD    SRTAMT  (13)       TO   CTR4AMT13                   EW012430
050399       ADD    SRTAMT  (14)       TO   CTR4AMT14                   EW012440
041706       ADD    SRTAMT  (15)       TO   CTR4AMT15                           
041706       ADD    SRTAMT  (16)       TO   CTR4AMT16                           
050399       GO                        TO   515-EXIT.                   EW012450
           ADD      SRTAMT  (01)       TO   CTRLNDTOT   CTRSAMT1        EW012460
           ADD      SRTAMT  (02)       TO   CTRLNDTOT   CTRSAMT2        EW012470
           ADD      SRTAMT  (03)       TO   CTRLNDTOT   CTRSAMT3        EW012480
           ADD      SRTAMT  (04)       TO   CTRLNDTOT   CTRSAMT4        EW012490
           ADD      SRTAMT  (05)       TO   CTRLNDTOT   CTRSAMT5        EW012500
           ADD      SRTAMT  (06)       TO   CTRLNDTOT   CTRSAMT6        EW012510
           ADD      SRTAMT  (07)       TO   CTRSI6100   CTRSTOT         EW012520
           ADD      SRTAMT  (08)       TO   CTRSI6200   CTRSTOT         EW012530
           ADD      SRTAMT  (09)       TO   CTRSI6300   CTRSTOT         EW012540
           ADD      SRTAMT  (10)       TO   CTRSI6400   CTRSTOT         EW012550
041706     ADD      SRTAMT  (31)       TO   CTRSI6500   CTRSTOT                 
           ADD      SRTAMT  (11)       TO   CTRSI7300   CTRSTOT         EW012560
           ADD      SRTAMT  (12)       TO   CTRSI7400   CTRSTOT         EW012570
           ADD      SRTAMT  (13)       TO   CTRSI7600                   EW012580
           ADD      SRTAMT  (14)       TO   CTRSI7700   CTRSTOT         EW012590
           ADD      SRTAMT  (15)       TO   CTRSI7800                   EW012600
           ADD      SRTAMT  (16)       TO   CTRSI7900   CTRSTOT         EW012610
           ADD      SRTAMT  (17)       TO   CTRSI8100   CTRSTOT         EW012620
041706     ADD      SRTAMT  (32)       TO   CTRSI8200   CTRSTOT                 
           ADD      SRTAMT  (18)       TO   CTRDI6100   CTRDTOT         EW012630
           ADD      SRTAMT  (19)       TO   CTRDI6200   CTRDTOT         EW012640
           ADD      SRTAMT  (20)       TO   CTRDI6300   CTRDTOT         EW012650
           ADD      SRTAMT  (21)       TO   CTRDI6400   CTRDTOT         EW012660
041706     ADD      SRTAMT  (33)       TO   CTRDI6500   CTRDTOT                 
           ADD      SRTAMT  (22)       TO   CTRDI7100   CTRDTOT         EW012670
           ADD      SRTAMT  (23)       TO   CTRDI7200   CTRDTOT         EW012680
           ADD      SRTAMT  (24)       TO   CTRDI7400   CTRDTOT         EW012690
           ADD      SRTAMT  (25)       TO   CTRDI7500   CTRDTOT         EW012700
           ADD      SRTAMT  (26)       TO   CTRDI7600                   EW012710
           ADD      SRTAMT  (27)       TO   CTRDI7700   CTRDTOT         EW012720
           ADD      SRTAMT  (28)       TO   CTRDI7800                   EW012730
           ADD      SRTAMT  (29)       TO   CTRDI7900   CTRDTOT         EW012740
           ADD      SRTAMT  (30)       TO   CTRDI8100   CTRDTOT.        EW012750
041706     ADD      SRTAMT  (34)       TO   CTRDI8200   CTRDTOT.                
       515-EXIT.                                                        EW012760
           EXIT.                                                        EW012770
                                                                        EW012780
      ******************************************************************EW012790
       520-PRINT.                                                       EW012800
           IF      CTRLN               >    +60                         EW012810
             PERFORM 525-HEADS         THRU 525-EXIT.                   EW012820
           IF      CTLCHAR             =    '1'                         EW012830
             WRITE LN1             AFTER    ADVANCING PAGE              EW012840
           ELSE                                                         EW012850
             IF      CTLCHAR           =    '0'                         EW012860
               WRITE LN1           AFTER    ADVANCING  2  LINES         EW012870
               ADD   +2                TO   CTRLN                       EW012880
             ELSE                                                       EW012890
               IF      CTLCHAR         =    ' '                         EW012900
                 WRITE LN1         AFTER    ADVANCING  1  LINES         EW012910
                 ADD   +1              TO   CTRLN                       EW012920
               ELSE                                                     EW012930
                 WRITE LN1         AFTER    ADVANCING  0  LINES         EW012940
                 ADD   +0              TO   CTRLN.                      EW012950
           MOVE    SPACES              TO   LN1           CTLCHAR.      EW012960
       520-EXIT.                                                        EW012970
           EXIT.                                                        EW012980
                                                                        EW012990
       525-HEADS.                                                       EW013000
           MOVE    LN1                 TO   OLDLN                       EW013010
           MOVE    +0                  TO   CTRLN                       EW013020
           ADD     +1                  TO   CTRPG                       EW013030
           MOVE    CTRPG               TO   HD1PG                       EW013040
           IF      OLDRPT              =    'A'                         EW013050
             MOVE  '* EDIT *'          TO   HD1MODE                     EW013060
           ELSE                                                         EW013070
             MOVE  '* POST *'          TO   HD1MODE.                    EW013080
           MOVE    HD1                 TO   LN1                         EW013090
           MOVE    '1'                 TO   CTLCHAR                     EW013100
           PERFORM 520-PRINT           THRU 520-EXIT                    EW013110
           IF      HD2                 NOT  =   SPACES                  EW013120
             MOVE    HD2               TO   LN1                         EW013130
             PERFORM 520-PRINT         THRU 520-EXIT.                   EW013140
           IF      HD3                 NOT  =   SPACES                  EW013150
             MOVE    HD3               TO   LN1                         EW013160
             PERFORM 520-PRINT         THRU 520-EXIT.                   EW013170
           MOVE    '0'                 TO   CTLCHAR                     EW013180
           IF      WSCLAST             =   'N'                          EW013190
             MOVE    HD4               TO   LN1                         EW013200
             PERFORM 520-PRINT         THRU 520-EXIT                    EW013210
             MOVE    HD5               TO   LN1                         EW013220
             PERFORM 520-PRINT         THRU 520-EXIT                    EW013230
             MOVE    '0'               TO   CTLCHAR                     EW013240
             MOVE    HD6               TO   LN1                         EW013250
             PERFORM 520-PRINT         THRU 520-EXIT                    EW013260
             MOVE    HD7               TO   LN1                         EW013270
             PERFORM 520-PRINT         THRU 520-EXIT                    EW013280
             MOVE    HD8               TO   LN1                         EW013290
             PERFORM 520-PRINT         THRU 520-EXIT                    EW013300
           ELSE                                                         EW013310
             MOVE   'N'                TO   WSCLAST.                    EW013320
050399     IF      OLDFORM7            =    'Y'                    AND  EW013330
050399             WSCFLG4XXX          NOT  =  'Y'                      EW013340
050399       PERFORM  730-CHRTR-HDR    THRU 730-EXIT.                   EW013350
           MOVE    '0'                 TO   CTLCHAR                     EW013360
           MOVE    OLDLN               TO   LN1.                        EW013370
       525-EXIT.                                                        EW013380
           EXIT.                                                        EW013390
                                                                        EW013400
      ******************************************************************EW013410
       610-1CHG.                                                        EW013420
           MOVE    SRTKPGM             TO   OLDKPGM   LN1NBR            EW013430
           MOVE    SRTKDIST            TO   FPGKEY                      EW013440
           MOVE    SRTKFY              TO   FPGFY                       EW013450
           MOVE    'FPG'               TO   FPGPREF                     EW013460
           MOVE    SRTKPGM             TO   FPGFPG                      EW013470
           MOVE    FPGKEY              TO   CRFDK                       EW013480
           READ    CRF-DISK                                             EW013490
           IF      RETCRF              NOT  =  '00'                     EW013500
             MOVE  SPACES              TO   FPGABBR                     EW013510
           ELSE                                                         EW013520
             MOVE  CRFD                TO   FPG.                        EW013530
           MOVE    FPGABBR             TO   LN1MSG                      EW013540
           MOVE    ZEROS               TO   CTRLVL1.                    EW013550
       610-EXIT.                                                        EW013560
           EXIT.                                                        EW013570
                                                                        EW013580
       615-1TOT.                                                        EW013590
           IF      OLDKPGM             =    SPACES                      EW013600
             GO                        TO   615-EXIT.                   EW013610
           MOVE    CTRSAMT1            TO   LN1AMT1                     EW013620
           MOVE    CTRSAMT2            TO   LN1AMT2                     EW013630
           MOVE    CTRSAMT3            TO   LN1AMT3                     EW013640
           MOVE    CTRSAMT4            TO   LN1AMT4                     EW013650
           MOVE    CTRSAMT5            TO   LN1AMT5                     EW013660
           MOVE    CTRSAMT6            TO   LN1AMT6                     EW013670
           MOVE    CTRLNDTOT           TO   LN1AMT7                     EW013680
           MOVE    CTRSTOT             TO   LN1AMT8                     EW013690
           COMPUTE CTRSCOST            =    CTRLNDTOT  +  CTRSTOT       EW013700
           MOVE    CTRSCOST            TO   LN1AMT9                     EW013710
           MOVE    CTRDTOT             TO   LN1AMT10                    EW013720
           COMPUTE CTRLNTOTAL          =    CTRSCOST   +  CTRDTOT       EW013730
           MOVE    CTRLNTOTAL          TO   LN1TOTAL                    EW013740
           PERFORM 520-PRINT           THRU 520-EXIT.                   EW013750
           ADD     CTRSAMT1            TO   CTRSAL                      EW013760
           ADD     CTRSAMT2            TO   CTRBEN                      EW013770
           ADD     CTRSAMT3            TO   CTRPRCH                     EW013780
           ADD     CTRSAMT4            TO   CTRMATSUP                   EW013790
           ADD     CTRSAMT5            TO   CTRDOTHR                    EW013800
           ADD     CTRSAMT6            TO   CTRDCAP                     EW013810
           ADD     CTRLNDTOT           TO   CTRTOTAL                    EW013820
           ADD     CTRSTOT             TO   CTRSEQSTOT                  EW013830
           ADD     CTRSCOST            TO   CTRSEQSCOST                 EW013840
           ADD     CTRDTOT             TO   CTRSEQDTOT                  EW013850
           ADD     CTRLNTOTAL          TO   CTRSEQTOT.                  EW013860
           IF      OLDRPT              NOT  =  'B'                      EW013870
             IF    CTRLNTOTAL          =    ZEROS                       EW013880
               GO                      TO   615-EXIT                    EW013890
             ELSE                                                       EW013900
083095*        ADD  +2                 TO   CTRXCD                      EW013910
083095         ADD  +1                 TO   CTRXCD                      EW013920
               GO                      TO   615-EXIT.                   EW013930
           IF      CTRLNTOTAL          =    ZEROS                       EW013940
             GO                        TO   615-EXIT.                   EW013950
           MOVE    SPACES              TO   XCD                         EW013960
           MOVE    ZEROS               TO   XCDAMT1       XCDAMT2       EW013970
                                            XCDAMT3       XCDAMT4       EW013980
083095*                                     XCDAMT6       XCDAMT6       EW013990
083095                                      XCDAMT5       XCDAMT6       EW014000
                                            XCDAMT7                     EW014010
083095                                      XCDAMT8       XCDSTF        EW014020
           MOVE    OLDKDIST            TO   XCDDIST                     EW014030
           MOVE    OLDKSCHL            TO   XCDSCHL                     EW014040
           MOVE    OLDKPGM             TO   XCDPGM                      EW014050
           IF      OLDKFUND            =    '1'                         EW014060
             IF    OLDKSCHL            =    '0000'                      EW014070
               MOVE 'A'                TO   XCDRTYPE                    EW014080
             ELSE                                                       EW014090
               MOVE 'B'                TO   XCDRTYPE                    EW014100
           ELSE                                                         EW014110
             IF    OLDKSCHL            =    '0000'                      EW014120
               MOVE 'C'                TO   XCDRTYPE                    EW014130
             ELSE                                                       EW014140
               MOVE 'D'                TO   XCDRTYPE.                   EW014150
083095*    MOVE    'D'                 TO   XCDDTYPE                    EW014160
           MOVE    CTRSAMT1            TO   XCDAMT1                     EW014170
           MOVE    CTRSAMT2            TO   XCDAMT2                     EW014180
           MOVE    CTRSAMT3            TO   XCDAMT3                     EW014190
           MOVE    CTRSAMT4            TO   XCDAMT4                     EW014200
           MOVE    CTRSAMT5            TO   XCDAMT5                     EW014210
           MOVE    CTRSAMT6            TO   XCDAMT6                     EW014220
083095     MOVE    CTRSTOT             TO   XCDAMT7                     EW014230
083095     MOVE    CTRDTOT             TO   XCDAMT8                     EW014240
           IF      OLDKSCHL            =    '0000'                      EW014250
             PERFORM 715-TBL-READ      THRU 715-EXIT                    EW014260
           ELSE                                                         EW014270
             PERFORM 720-ABF-READ      THRU 720-EXIT.                   EW014280
083095*    PERFORM 725-XCD-WRITE       THRU 725-EXIT                    EW014290
083095*    MOVE    'I'                 TO   XCDDTYPE                    EW014300
083095*    MOVE    CTRSTOT             TO   XCDAMT1                     EW014310
083095*    MOVE    CTRDTOT             TO   XCDAMT2                     EW014320
083095*    MOVE    ZEROS               TO   XCDAMT3  XCDAMT4            EW014330
083095*                                     XCDAMT5  XCDAMT6            EW014340
083095*                                     XCDAMT7                     EW014350
           PERFORM 725-XCD-WRITE       THRU 725-EXIT.                   EW014360
       615-EXIT.                                                        EW014370
           EXIT.                                                        EW014380
                                                                        EW014390
       620-2CHG.                                                        EW014400
           MOVE    SRTKSEQ             TO   OLDKSEQ                     EW014410
           MOVE    ZEROS               TO   CTRLVL2                     EW014420
           PERFORM 610-1CHG            THRU 610-EXIT.                   EW014430
       620-EXIT.                                                        EW014440
           EXIT.                                                        EW014450
                                                                        EW014460
       625-2TOT.                                                        EW014470
           IF      OLDKSEQ             =    SPACES                      EW014480
             GO                        TO   625-EXIT.                   EW014490
           MOVE    OLDKDIST            TO   FRSKEY                      EW014500
           MOVE    OLDKFY              TO   FRSFY                       EW014510
           MOVE    'FRS'               TO   FRSPREF                     EW014520
           MOVE    OLDKSEQ             TO   FRSFRS                      EW014530
           MOVE    FRSKEY              TO   CRFDK                       EW014540
           READ    CRF-DISK                                             EW014550
           IF      RETCRF              NOT  =  '00'                     EW014560
             MOVE  'UNKNOWN'           TO   FRSABBR                     EW014570
           ELSE                                                         EW014580
             MOVE  CRFD                TO   FRS.                        EW014590
           MOVE    '0'                 TO   CTLCHAR                     EW014600
           MOVE    FRSABBR             TO   LN4MSG                      EW014610
           MOVE    CTRSAL              TO   LN4AMT1                     EW014620
           MOVE    CTRBEN              TO   LN4AMT2                     EW014630
           MOVE    CTRPRCH             TO   LN4AMT3                     EW014640
           MOVE    CTRMATSUP           TO   LN4AMT4                     EW014650
           MOVE    CTRDOTHR            TO   LN4AMT5                     EW014660
           MOVE    CTRDCAP             TO   LN4AMT6                     EW014670
           MOVE    CTRTOTAL            TO   LN4AMT7                     EW014680
           MOVE    CTRSEQSTOT          TO   LN4AMT8                     EW014690
           MOVE    CTRSEQSCOST         TO   LN4AMT9                     EW014700
           MOVE    CTRSEQDTOT          TO   LN4AMT10                    EW014710
           MOVE    CTRSEQTOT           TO   LN4TOTAL                    EW014720
           PERFORM 520-PRINT           THRU 520-EXIT                    EW014730
           MOVE    '0'                 TO   CTLCHAR                     EW014740
           ADD     CTRSAL              TO   CTRAMT1                     EW014750
           ADD     CTRBEN              TO   CTRAMT2                     EW014760
           ADD     CTRPRCH             TO   CTRAMT3                     EW014770
           ADD     CTRMATSUP           TO   CTRAMT4                     EW014780
           ADD     CTRDOTHR            TO   CTRAMT5                     EW014790
           ADD     CTRDCAP             TO   CTRAMT6                     EW014800
           ADD     CTRTOTAL            TO   CTRAMT7                     EW014810
           ADD     CTRSEQSTOT          TO   CTRAMT8                     EW014820
           ADD     CTRSEQSCOST         TO   CTRAMT9                     EW014830
           ADD     CTRSEQDTOT          TO   CTRAMT10                    EW014840
           ADD     CTRSEQTOT           TO   CTRAMTTOT.                  EW014850
       625-EXIT.                                                        EW014860
           EXIT.                                                        EW014870
                                                                        EW014880
       630-3CHG.                                                        EW014890
           MOVE    SRTKSCHL            TO   OLDKSCHL  HD5SCHL           EW014900
           MOVE    SRTKDIST            TO   SCLKEY                      EW014910
           MOVE    SRTKFY              TO   SCLFY                       EW014920
           MOVE    'SCL'               TO   SCLPREF                     EW014930
           MOVE    SRTKSCHL            TO   SCLSCL                      EW014940
           MOVE    SCLKEY              TO   CRFDK                       EW014950
           READ    CRF-DISK                                             EW014960
           IF      RETCRF              NOT  =  '00'                     EW014970
             MOVE  'UNKNOWN'           TO   SCLDESC                     EW014980
           ELSE                                                         EW014990
             MOVE  CRFD                TO   SCL.                        EW015000
           MOVE    SCLDESC             TO   HD5DESC                     EW015010
050399     IF      SCLCHRTR            =    'Y'                         EW015020
050399       MOVE  '** CHARTER SCHOOL **'   TO  HD5CHRT                 EW015030
050399     ELSE                                                         EW015040
050399       MOVE  SPACES              TO   HD5CHRT.                    EW015050
           MOVE    ZEROS               TO   CTRLVL3       CTRDIND       EW015060
                                            CTRSIND       CTRRECON      EW015070
050399                                      CTR4AMT1      CTR4AMT2      EW015080
050399                                      CTR4AMT3      CTR4AMT4      EW015090
050399                                      CTR4AMT5      CTR4AMT6      EW015100
050399                                      CTR4AMT7      CTR4AMT8      EW015110
050399                                      CTR4AMT9      CTR4AMT10     EW015120
050399                                      CTR4AMT11     CTR4AMT12     EW015130
050399                                      CTR4AMT13     CTR4AMT14     EW015140
041706                                      CTR4AMT15     CTR4AMT16     EW015140
050399     MOVE    'N'                 TO   WSCFLG4XXX                  EW015150
050399     MOVE    SRTFORM7            TO   OLDFORM7                    EW015160
           MOVE    +61                 TO   CTRLN                       EW015170
           PERFORM 620-2CHG            THRU 620-EXIT.                   EW015180
       630-EXIT.                                                        EW015190
           EXIT.                                                        EW015200
                                                                        EW015210
       635-3TOT.                                                        EW015220
           MOVE    '0'                 TO   CTLCHAR                     EW015230
           MOVE    'TOTAL FOR FEFP'    TO   LN4MSG                      EW015240
           MOVE    CTRAMT1             TO   LN4AMT1                     EW015250
           MOVE    CTRAMT2             TO   LN4AMT2                     EW015260
           MOVE    CTRAMT3             TO   LN4AMT3                     EW015270
           MOVE    CTRAMT4             TO   LN4AMT4                     EW015280
           MOVE    CTRAMT5             TO   LN4AMT5                     EW015290
           MOVE    CTRAMT6             TO   LN4AMT6                     EW015300
           MOVE    CTRAMT7             TO   LN4AMT7                     EW015310
           MOVE    CTRAMT8             TO   LN4AMT8                     EW015320
           MOVE    CTRAMT9             TO   LN4AMT9                     EW015330
           MOVE    CTRAMT10            TO   LN4AMT10                    EW015340
           MOVE    CTRAMTTOT           TO   LN4TOTAL                    EW015350
           ADD     CTRAMTTOT           TO   CTRTOT                      EW015360
           PERFORM 520-PRINT           THRU 520-EXIT                    EW015370
           IF      CTRLN               >    +58                         EW015380
             MOVE  +61                 TO   CTRLN.                      EW015390
           MOVE    '0'                 TO   CTLCHAR                     EW015400
           MOVE    'FOOD SERVICE'      TO   LN1MSG                      EW015410
041497     MOVE    CTRSI7600           TO   LN1AMT8                     EW015420
041497     ADD     CTRSI7600           TO   CTRTOT                      EW015430
041497     MOVE    CTRDI7600           TO   LN1AMT10                    EW015440
041497     ADD     CTRDI7600           TO   CTRTOT                      EW015450
           PERFORM 520-PRINT           THRU 520-EXIT                    EW015460
           MOVE    'TRANSPORTATION'    TO   LN1MSG                      EW015470
041497*    COMPUTE CTRCOMP             =    CTRSI7600 + CTRSI7800       EW015480
041497*    MOVE    CTRCOMP             TO   LN1AMT8                     EW015490
041497*    ADD     CTRCOMP             TO   CTRTOT                      EW015500
041497*    COMPUTE CTRCOMP             =    CTRDI7600 + CTRDI7800       EW015510
041497*    MOVE    CTRCOMP             TO   LN1AMT10                    EW015520
041497*    ADD     CTRCOMP             TO   CTRTOT                      EW015530
041497     MOVE    CTRSI7800           TO   LN1AMT8                     EW015540
041497     ADD     CTRSI7800           TO   CTRTOT                      EW015550
041497     MOVE    CTRDI7800           TO   LN1AMT10                    EW015560
041497     ADD     CTRDI7800           TO   CTRTOT                      EW015570
           PERFORM 520-PRINT           THRU 520-EXIT                    EW015580
           IF      OLDRPT              NOT  =  'B'                      EW015590
             IF   (CTRSI7600           =    ZEROS           AND         EW015600
                   CTRSI7800           =    ZEROS           AND         EW015610
                   CTRDI7600           =    ZEROS           AND         EW015620
                   CTRDI7800           =    ZEROS)                      EW015630
               GO                      TO   635-CONT                    EW015640
             ELSE                                                       EW015650
               ADD   +2                TO   CTRXCD                      EW015660
               GO                      TO   635-CONT.                   EW015670
           IF   (CTRSI7600             =    ZEROS           AND         EW015680
                 CTRSI7800             =    ZEROS           AND         EW015690
                 CTRDI7600             =    ZEROS           AND         EW015700
                 CTRDI7800             =    ZEROS)                      EW015710
             GO                        TO   635-CONT.                   EW015720
           MOVE    SPACES              TO   XCD                         EW015730
           MOVE    ZEROS               TO   XCDAMT1       XCDAMT2       EW015740
                                            XCDAMT3       XCDAMT4       EW015750
083095*                                     XCDAMT6       XCDAMT6       EW015760
083095                                      XCDAMT5       XCDAMT6       EW015770
                                            XCDAMT7                     EW015780
083095                                      XCDAMT8       XCDSTF        EW015790
           MOVE    OLDKDIST            TO   XCDDIST                     EW015800
           MOVE    OLDKSCHL            TO   XCDSCHL                     EW015810
           MOVE    '910'               TO   XCDPGM                      EW015820
           IF      OLDKFUND            =    '1'                         EW015830
             IF    OLDKSCHL            =    '0000'                      EW015840
               MOVE 'A'                TO   XCDRTYPE                    EW015850
             ELSE                                                       EW015860
               MOVE 'B'                TO   XCDRTYPE                    EW015870
           ELSE                                                         EW015880
             IF    OLDKSCHL            =    '0000'                      EW015890
               MOVE 'C'                TO   XCDRTYPE                    EW015900
             ELSE                                                       EW015910
               MOVE 'D'                TO   XCDRTYPE.                   EW015920
083095*    MOVE    'I'                 TO   XCDDTYPE                    EW015930
           MOVE    CTRSI7600           TO   XCDAMT1                     EW015940
           MOVE    CTRDI7600           TO   XCDAMT2                     EW015950
           PERFORM 725-XCD-WRITE       THRU 725-EXIT                    EW015960
           MOVE    '920'               TO   XCDPGM                      EW015970
           MOVE    CTRSI7800           TO   XCDAMT1                     EW015980
           MOVE    CTRDI7800           TO   XCDAMT2                     EW015990
           PERFORM 725-XCD-WRITE       THRU 725-EXIT.                   EW016000
       635-CONT.                                                        EW016010
           IF      OLDKSCHL            NOT  =  '0000'                   EW016020
             PERFORM 700-PC3           THRU 700-EXIT                    EW016030
           ELSE                                                         EW016040
             PERFORM 710-PC4           THRU 710-EXIT.                   EW016050
       635-EXIT.                                                        EW016060
           EXIT.                                                        EW016070
                                                                        EW016080
       640-4CHG.                                                        EW016090
           MOVE    SRTKFUND            TO   OLDKFUND  HD4FND            EW016100
           PERFORM 630-3CHG            THRU 630-EXIT.                   EW016110
       640-EXIT.                                                        EW016120
           EXIT.                                                        EW016130
                                                                        EW016140
       645-4TOT.                                                        EW016150
       645-EXIT.                                                        EW016160
           EXIT.                                                        EW016170
                                                                        EW016180
       650-5CHG.                                                        EW016190
           MOVE     ZEROS              TO   CTRLN    CTRPG  CTRXCD      EW016200
           MOVE     SRTKREQ            TO   OLDKREQ                     EW016210
           MOVE     SRTKDIST           TO   OLDKDIST                    EW016220
           MOVE     SRTKFY             TO   OLDKFY                      EW016230
           MOVE     SRTPRT             TO   OLDPRT                      EW016240
           MOVE     SRTRPT             TO   OLDRPT                      EW016250
                                                                        EW016260
           MOVE     '    SCL0000'      TO   SCLKEY                      EW016270
           MOVE     SRTKDIST           TO   SCLDIST                     EW016280
           MOVE     SRTKFY             TO   SCLFY                       EW016290
           MOVE     SCLKEY             TO   CRFDK                       EW016300
           READ     CRF-DISK                                            EW016310
           IF       RETCRF             NOT  =   '00'                    EW016320
             MOVE   'UNKNOWN'          TO   HD1ABBR                     EW016330
           ELSE                                                         EW016340
             MOVE   CRFD               TO   SCL                         EW016350
             MOVE   SCLABBR            TO   HD1ABBR.                    EW016360
           SET     HD11                TO   +15.                        EW016370
       650-REQ.                                                         EW016380
           IF      HD1B         (HD11) =    SPACES                      EW016390
             SET   HD11                DOWN BY  +1                      EW016400
             GO                        TO   650-REQ.                    EW016410
           SET     HD11                UP   BY  +1                      EW016420
           MOVE    '-'                 TO   HD1B         (HD11)         EW016430
           SET     HD11                UP   BY  +1                      EW016440
           MOVE    SRTKREQ1            TO   HD1B         (HD11)         EW016450
           SET     HD11                UP   BY  +1                      EW016460
           MOVE    SRTKREQ2            TO   HD1B         (HD11)         EW016470
           SET     HD11                UP   BY  +1                      EW016480
           MOVE    SRTKREQ3            TO   HD1B         (HD11)         EW016490
           SET     HD11                UP   BY  +1                      EW016500
           MOVE    '-'                 TO   HD1B         (HD11)         EW016510
           SET     HD11                UP   BY  +1                      EW016520
           MOVE    SRTKFY1             TO   HD1B         (HD11)         EW016530
           SET     HD11                UP   BY  +1                      EW016540
           MOVE    SRTKFY2             TO   HD1B         (HD11).        EW016550
                                                                        EW016560
           SET     RQH1                TO   +1.                         EW016570
       650-HEAD.                                                        EW016580
           IF      RQHREQ       (RQH1) NOT  =   HIGH-VALUES             EW016590
             IF      RQHREQ     (RQH1) NOT  =   SRTKREQ                 EW016600
               SET   RQH1              UP   BY  +1                      EW016610
               GO                      TO   650-HEAD                    EW016620
             ELSE                                                       EW016630
               IF      RQHID    (RQH1) =    'H1'                        EW016640
                 MOVE  RQHHEAD  (RQH1) TO   HD2HEAD                     EW016650
                 MOVE  RQHUSER  (RQH1) TO   HD1USER                     EW016660
                 SET   RQH1            UP   BY  +1                      EW016670
                 GO                    TO   650-HEAD                    EW016680
               ELSE                                                     EW016690
                 IF      RQHID  (RQH1) =    'H2'                        EW016700
                   MOVE  RQHHEAD (RQH1) TO  HD3HEAD                     EW016710
                   SET   RQH1          UP   BY  +1                      EW016720
                   GO                  TO   650-HEAD.                   EW016730
           IF        OLDPRT            =    'N'                         EW016740
             MOVE    SPACES            TO   HD2HEAD       HD1USER       EW016750
             MOVE    SPACES            TO   HD3HEAD                     EW016760
           ELSE                                                         EW016770
             IF      OLDPRT            =    'U'                         EW016780
               MOVE  SPACES            TO   HD2HEAD       HD3HEAD       EW016790
             ELSE                                                       EW016800
               IF    OLDPRT            =    'T'                         EW016810
                 MOVE  SPACES          TO   HD1USER.                    EW016820
                                                                        EW016830
           PERFORM 640-4CHG            THRU 640-EXIT                    EW016840
           PERFORM 525-HEADS           THRU 525-EXIT.                   EW016850
       650-EXIT.                                                        EW016860
           EXIT.                                                        EW016870
                                                                        EW016880
       655-5TOT.                                                        EW016890
           MOVE    'Y'                 TO   WSCLAST                     EW016900
           MOVE    +61                 TO   CTRLN                       EW016910
           MOVE    'XCD RECORDS WRITTEN' TO  LN5MSG                     EW016920
           MOVE    CTRXCD              TO    LN5CNT                     EW016930
           PERFORM 520-PRINT           THRU 520-EXIT.                   EW016940
       655-EXIT.                                                        EW016950
           EXIT.                                                        EW016960
                                                                        EW016970
      ******************************************************************EW016980
       700-PC3.                                                         EW016990
           IF      CTRLN               >    +54                         EW017000
             MOVE  +61                 TO   CTRLN.                      EW017010
           MOVE    '0'                 TO   CTLCHAR                     EW017020
           MOVE    HD9                 TO   LN1                         EW017030
           PERFORM 520-PRINT           THRU 520-EXIT                    EW017040
           MOVE    HD10                TO   LN1                         EW017050
           PERFORM 520-PRINT           THRU 520-EXIT                    EW017060
           MOVE    '0'                 TO   CTLCHAR                     EW017070
           MOVE    '6100'              TO   LN2FUNC1                    EW017080
           MOVE    'PUPIL PERSONNEL'   TO   LN2DESC1                    EW017090
040301     IF      SCLCHRTR            =    'Y'                         EW017100
040301       MOVE  CTR4AMT1            TO   LN2AMT1                     EW017110
040301     ELSE                                                         EW017120
040301       MOVE  CTRSI6100           TO   LN2AMT1.                    EW017130
040301*    MOVE    CTRSI6100           TO   LN2AMT1                     EW017140
           MOVE    '6400'              TO   LN2FUNC2                    EW017150
           MOVE    'INSTR STAFF TRAINING'   TO   LN2DESC2               EW017160
040301     IF      SCLCHRTR            =    'Y'                         EW017170
040301       MOVE  CTR4AMT4            TO   LN2AMT2                     EW017180
040301     ELSE                                                         EW017190
040301       MOVE  CTRSI6400           TO   LN2AMT2.                    EW017200
040301*    MOVE    CTRSI6400           TO   LN2AMT2                     EW017210
           MOVE    '7700'              TO   LN2FUNC3                    EW017220
           MOVE    'CENTRAL SERVICES'  TO   LN2DESC3                    EW017230
040301     IF      SCLCHRTR            =    'Y'                         EW017240
040301       MOVE  CTR4AMT11           TO   LN2AMT3                     EW017250
040301     ELSE                                                         EW017260
040301       MOVE  CTRSI7700           TO   LN2AMT3.                    EW017270
040301*    MOVE    CTRSI7700           TO   LN2AMT3                     EW017280
           PERFORM 520-PRINT           THRU 520-EXIT                    EW017290
           MOVE    '6200'              TO   LN2FUNC1                    EW017300
           MOVE    'INSTRUCTIONAL MEDIA'    TO   LN2DESC1               EW017310
040301     IF      SCLCHRTR            =    'Y'                         EW017320
040301       MOVE  CTR4AMT2            TO   LN2AMT1                     EW017330
040301     ELSE                                                         EW017340
040301       MOVE  CTRSI6200           TO   LN2AMT1.                    EW017350
040301*    MOVE    CTRSI6200           TO   LN2AMT1                     EW017360
           MOVE    '7300'              TO   LN2FUNC2                    EW017370
           MOVE    'SCHOOL ADMINISTRATION'  TO   LN2DESC2               EW017380
040301     IF      SCLCHRTR            =    'Y'                         EW017390
040301       MOVE  CTR4AMT7            TO   LN2AMT2                     EW017400
040301     ELSE                                                         EW017410
040301       MOVE  CTRSI7300           TO   LN2AMT2.                    EW017420
040301*    MOVE    CTRSI7300           TO   LN2AMT2                     EW017430
           MOVE    '7900'              TO   LN2FUNC3                    EW017440
           MOVE    'OPERATION OF PLANT'     TO   LN2DESC3               EW017450
040301     IF      SCLCHRTR            =    'Y'                         EW017460
040301       MOVE  CTR4AMT13           TO   LN2AMT3                     EW017470
040301     ELSE                                                         EW017480
040301       MOVE  CTRSI7900           TO   LN2AMT3.                    EW017490
040301*    MOVE    CTRSI7900           TO   LN2AMT3                     EW017500
           PERFORM 520-PRINT           THRU 520-EXIT                    EW017510
           MOVE    '6300'              TO   LN2FUNC1                    EW017520
           MOVE    'INSTR & CURR DEVLPMNT'  TO   LN2DESC1               EW017530
040301     IF      SCLCHRTR            =    'Y'                         EW017540
040301       MOVE  CTR4AMT3            TO   LN2AMT1                     EW017550
040301     ELSE                                                         EW017560
040301       MOVE  CTRSI6300           TO   LN2AMT1.                    EW017570
040301*    MOVE    CTRSI6300           TO   LN2AMT1                     EW017580
           MOVE    '7400'              TO   LN2FUNC2                    EW017590
           MOVE    'FACILITIES ACQ-CONSTR'  TO   LN2DESC2               EW017600
040301     IF      SCLCHRTR            =    'Y'                         EW017610
040301       MOVE  CTR4AMT8            TO   LN2AMT2                     EW017620
040301     ELSE                                                         EW017630
040301       MOVE  CTRSI7400           TO   LN2AMT2.                    EW017640
040301*    MOVE    CTRSI7400           TO   LN2AMT2                     EW017650
           MOVE    '8100'              TO   LN2FUNC3                    EW017660
           MOVE    'MAINTENANCE OF PLANT'   TO   LN2DESC3               EW017670
040301     IF      SCLCHRTR            =    'Y'                         EW017680
040301       MOVE  CTR4AMT14           TO   LN2AMT3                     EW017690
040301     ELSE                                                         EW017700
040301       MOVE  CTRSI8100           TO   LN2AMT3.                    EW017710
040301*    MOVE    CTRSI8100           TO   LN2AMT3                     EW017720
           PERFORM 520-PRINT           THRU 520-EXIT.                   EW017730
041706     MOVE    '8200'              TO   LN2FUNC3                            
041706     MOVE    'ADMIN. TECH. SERVICES'  TO   LN2DESC3                       
041706     IF      SCLCHRTR            =    'Y'                                 
041706       MOVE  CTR4AMT15           TO   LN2AMT3                             
041706     ELSE                                                                 
041706       MOVE  CTRSI8200           TO   LN2AMT3.                            
041706     PERFORM 520-PRINT           THRU 520-EXIT                            
041706     MOVE    '6500'              TO   LN2FUNC3                            
041706     MOVE    'INSTR. TECH. SERVICES'  TO   LN2DESC3                       
041706     IF      SCLCHRTR            =    'Y'                                 
041706       MOVE  CTR4AMT16           TO   LN2AMT3                             
041706     ELSE                                                                 
041706       MOVE  CTRSI6500           TO   LN2AMT3.                            
041706     PERFORM 520-PRINT           THRU 520-EXIT                            
           IF      OLDRPT              NOT  =  'B'                      EW017740
             IF    CTRAMT8             =    ZEROS                       EW017750
050399         GO                      TO   700-CONT                    EW017760
050399*        GO                      TO   700-EXIT                    EW017770
             ELSE                                                       EW017780
               ADD   +2                TO   CTRXCD                      EW017790
050399         GO                      TO   700-CONT.                   EW017800
050399*        GO                      TO   700-EXIT.                   EW017810
           IF    CTRAMT8               =    ZEROS                       EW017820
050399       GO                        TO   700-CONT.                   EW017830
050399*      GO                        TO   700-EXIT.                   EW017840
           MOVE    SPACES              TO   XCD                         EW017850
           MOVE    ZEROS               TO   XCDAMT1       XCDAMT2       EW017860
                                            XCDAMT3       XCDAMT4       EW017870
083095*                                     XCDAMT6       XCDAMT6       EW017880
083095                                      XCDAMT5       XCDAMT6       EW017890
                                            XCDAMT7                     EW017900
083095                                      XCDAMT8       XCDSTF        EW017910
           MOVE    OLDKDIST            TO   XCDDIST                     EW017920
           MOVE    OLDKSCHL            TO   XCDSCHL                     EW017930
           MOVE    '930'               TO   XCDPGM                      EW017940
           IF      OLDKFUND            =    '1'                         EW017950
             MOVE  'B'                 TO   XCDRTYPE                    EW017960
           ELSE                                                         EW017970
             MOVE  'D'                 TO   XCDRTYPE.                   EW017980
083095*    MOVE    'I'                 TO   XCDDTYPE                    EW017990
           MOVE    CTRSI6100           TO   XCDAMT1                     EW018000
           MOVE    CTRSI6200           TO   XCDAMT2                     EW018010
           MOVE    CTRSI6300           TO   XCDAMT3                     EW018020
           MOVE    CTRSI6400           TO   XCDAMT4                     EW018030
           MOVE    ZEROS               TO   XCDAMT5                     EW018040
           MOVE    ZEROS               TO   XCDAMT6                     EW018050
           MOVE    CTRSI7300           TO   XCDAMT7                     EW018060
           PERFORM 725-XCD-WRITE       THRU 725-EXIT                    EW018070
           MOVE    '940'               TO   XCDPGM                      EW018080
           MOVE    CTRSI7400           TO   XCDAMT1                     EW018090
           MOVE    ZEROS               TO   XCDAMT2                     EW018100
           MOVE    ZEROS               TO   XCDAMT3                     EW018110
           MOVE    CTRSI7700           TO   XCDAMT4                     EW018120
           MOVE    ZEROS               TO   XCDAMT5                     EW018130
           MOVE    CTRSI7900           TO   XCDAMT6                     EW018140
           MOVE    CTRSI8100           TO   XCDAMT7                     EW018150
           PERFORM 725-XCD-WRITE       THRU 725-EXIT.                   EW018160
041706     MOVE    '945'               TO   XCDPGM                              
041706     MOVE    CTRSI8200           TO   XCDAMT1                             
041706     MOVE    CTRSI6500           TO   XCDAMT2                             
041706     MOVE    ZEROS               TO   XCDAMT3                             
041706     MOVE    ZEROS               TO   XCDAMT4                             
041706     MOVE    ZEROS               TO   XCDAMT5                             
041706     MOVE    ZEROS               TO   XCDAMT6                             
041706     MOVE    ZEROS               TO   XCDAMT7                             
041706     PERFORM 725-XCD-WRITE       THRU 725-EXIT.                           
050399 700-CONT.                                                        EW018170
050399     IF      OLDFORM7            NOT  =  'Y'                      EW018180
050399       GO                        TO   700-EXIT.                   EW018190
050399     IF      OLDRPT              NOT  =  'B'                      EW018200
050399       ADD   +2                  TO   CTRXCD                      EW018210
050399       GO                        TO   700-EXIT.                   EW018220
050399     MOVE    SPACES              TO   XCD                         EW018230
050399     MOVE    ZEROS               TO   XCDAMT1       XCDAMT2       EW018240
050399                                      XCDAMT3       XCDAMT4       EW018250
050399                                      XCDAMT5       XCDAMT6       EW018260
050399                                      XCDAMT7       XCDAMT8       EW018270
050399                                      XCDSTF                      EW018280
050399     MOVE    OLDKDIST            TO   XCDDIST                     EW018290
050399     MOVE    OLDKSCHL            TO   XCDSCHL                     EW018300
050399     MOVE    '950'               TO   XCDPGM                      EW018310
050399     IF      OLDKFUND            =    '1'                         EW018320
050399       MOVE  'B'                 TO   XCDRTYPE                    EW018330
050399     ELSE                                                         EW018340
050399       MOVE  'D'                 TO   XCDRTYPE.                   EW018350
050399     MOVE    CTR4AMT1            TO   XCDAMT1                     EW018360
050399     MOVE    CTR4AMT2            TO   XCDAMT2                     EW018370
050399     MOVE    CTR4AMT3            TO   XCDAMT3                     EW018380
050399     MOVE    CTR4AMT4            TO   XCDAMT4                     EW018390
050399     MOVE    CTR4AMT5            TO   XCDAMT5                     EW018400
050399     MOVE    CTR4AMT6            TO   XCDAMT6                     EW018410
050399     MOVE    CTR4AMT7            TO   XCDAMT7                     EW018420
050399     PERFORM 725-XCD-WRITE       THRU 725-EXIT                    EW018430
050399     MOVE    '960'               TO   XCDPGM                      EW018440
050399     MOVE    CTR4AMT8            TO   XCDAMT1                     EW018450
050399     MOVE    CTR4AMT9            TO   XCDAMT2                     EW018460
050399     MOVE    CTR4AMT10           TO   XCDAMT3                     EW018470
050399     MOVE    CTR4AMT11           TO   XCDAMT4                     EW018480
050399     MOVE    CTR4AMT12           TO   XCDAMT5                     EW018490
050399     MOVE    CTR4AMT13           TO   XCDAMT6                     EW018500
050399     MOVE    CTR4AMT14           TO   XCDAMT7                     EW018510
050399     PERFORM 725-XCD-WRITE       THRU 725-EXIT.                   EW018520
041706     MOVE    '965'               TO   XCDPGM                              
041706     MOVE    CTR4AMT15           TO   XCDAMT1                             
041706     MOVE    CTR4AMT16           TO   XCDAMT2                             
041706     MOVE    ZEROS               TO   XCDAMT3                             
041706     MOVE    ZEROS               TO   XCDAMT4                             
041706     MOVE    ZEROS               TO   XCDAMT5                             
041706     MOVE    ZEROS               TO   XCDAMT6                             
041706     MOVE    ZEROS               TO   XCDAMT7                             
041706     PERFORM 725-XCD-WRITE       THRU 725-EXIT.                           
       700-EXIT.                                                        EW018530
           EXIT.                                                        EW018540
                                                                        EW018550
       710-PC4.                                                         EW018560
           IF      CTRLN               >    +53                         EW018570
             MOVE  +61                 TO   CTRLN.                      EW018580
           MOVE    '0'                 TO   CTLCHAR                     EW018590
           MOVE    HD12                TO   LN1                         EW018600
           PERFORM 520-PRINT           THRU 520-EXIT                    EW018610
           MOVE    '0'                 TO   CTLCHAR                     EW018620
           MOVE    '6100'              TO   LN2FUNC1                    EW018630
           MOVE    'PUPIL PERSONNEL'   TO   LN2DESC1                    EW018640
           MOVE    CTRDI6100           TO   LN2AMT1                     EW018650
           MOVE    '7100'              TO   LN2FUNC2                    EW018660
           MOVE    'BOARD OF EDUCATION'     TO   LN2DESC2               EW018670
           MOVE    CTRDI7100           TO   LN2AMT2                     EW018680
           MOVE    '7700'              TO   LN2FUNC3                    EW018690
           MOVE    'CENTRAL SERVICES'  TO   LN2DESC3                    EW018700
           MOVE    CTRDI7700           TO   LN2AMT3                     EW018710
           PERFORM 520-PRINT           THRU 520-EXIT                    EW018720
           MOVE    '6200'              TO   LN2FUNC1                    EW018730
           MOVE    'INSTRUCTIONAL MEDIA'    TO   LN2DESC1               EW018740
           MOVE    CTRDI6200           TO   LN2AMT1                     EW018750
           MOVE    '7200'              TO   LN2FUNC2                    EW018760
           MOVE    'GENERAL ADMINISTRATION' TO   LN2DESC2               EW018770
           MOVE    CTRDI7200           TO   LN2AMT2                     EW018780
           MOVE    '7900'              TO   LN2FUNC3                    EW018790
           MOVE    'OPERATION OF PLANT'     TO   LN2DESC3               EW018800
           MOVE    CTRDI7900           TO   LN2AMT3                     EW018810
           PERFORM 520-PRINT           THRU 520-EXIT                    EW018820
           MOVE    '6300'              TO   LN2FUNC1                    EW018830
           MOVE    'INSTR & CURR DEVLPMNT'  TO   LN2DESC1               EW018840
           MOVE    CTRDI6300           TO   LN2AMT1                     EW018850
           MOVE    '7400'              TO   LN2FUNC2                    EW018860
           MOVE    'FACILITIES ACQ-CONSTR'  TO   LN2DESC2               EW018870
           MOVE    CTRDI7400           TO   LN2AMT2                     EW018880
           MOVE    '8100'              TO   LN2FUNC3                    EW018890
           MOVE    'MAINTENANCE OF PLANT'   TO   LN2DESC3               EW018900
           MOVE    CTRDI8100           TO   LN2AMT3                     EW018910
           PERFORM 520-PRINT           THRU 520-EXIT                    EW018920
           MOVE    '6400'              TO   LN2FUNC1                    EW018930
           MOVE    'INSTR STAFF TRAINING'   TO   LN2DESC1               EW018940
           MOVE    CTRDI6400           TO   LN2AMT1                     EW018950
           MOVE    '7500'              TO   LN2FUNC2                    EW018960
           MOVE    'FISCAL SERVICES'        TO   LN2DESC2               EW018970
           MOVE    CTRDI7500           TO   LN2AMT2                     EW018980
041706     MOVE    '8200'              TO   LN2FUNC3                            
041706     MOVE    'ADMIN. TECH. SERVICES'  TO   LN2DESC3                       
041706     MOVE    CTRDI8200           TO   LN2AMT3                             
           PERFORM 520-PRINT           THRU 520-EXIT                    EW018990
041706     MOVE    '6500'              TO   LN2FUNC3                            
041706     MOVE    'INSTR. TECH. SERVICES'  TO   LN2DESC3                       
041706     MOVE    CTRDI6500           TO   LN2AMT3                             
041706     PERFORM 520-PRINT           THRU 520-EXIT                            
           IF      CTRLN               >    +55                         EW019000
             MOVE  +61                 TO   CTRLN.                      EW019010
           MOVE    '0'                 TO   CTLCHAR                     EW019020
           MOVE    HD13                TO   LN1                         EW019030
           PERFORM 520-PRINT           THRU 520-EXIT                    EW019040
           MOVE    HD14                TO   LN1                         EW019050
           PERFORM 520-PRINT           THRU 520-EXIT                    EW019060
           MOVE    HD15                TO   LN1                         EW019070
           PERFORM 520-PRINT           THRU 520-EXIT                    EW019080
           MOVE    '0'                 TO   CTLCHAR                     EW019090
           MOVE    CTRRECR             TO   LN3RECR                     EW019100
           MOVE    CTROTHR             TO   LN3OTHR                     EW019110
           MOVE    CTRCAP              TO   LN3CAP                      EW019120
           MOVE    CTRCOMSRV           TO   LN3COMSRV                   EW019130
           MOVE    CTRDEBT             TO   LN3DEBT                     EW019140
           MOVE    CTRFEDIND           TO   LN3FEDIND                   EW019150
041499     MOVE    CTRCHRTR            TO   LN3CHRTR                    EW019160
           MOVE    CTRTOT              TO   LN3TRPT                     EW019170
           MOVE    CTRAFR              TO   LN3TAFR                     EW019180
           COMPUTE CTRCOMP             =    CTRAFR - CTRTOT             EW019190
           MOVE    CTRCOMP             TO   LN3DIF                      EW019200
           PERFORM 520-PRINT           THRU 520-EXIT.                   EW019210
           IF      OLDRPT              NOT  =  'B'                      EW019220
             IF    CTRAMT10            =    ZEROS                       EW019230
083095*        GO                      TO   710-EXIT                    EW019240
083095         GO                      TO   710-XRD                     EW019250
             ELSE                                                       EW019260
               ADD   +2                TO   CTRXCD                      EW019270
083095*        GO                      TO   710-EXIT.                   EW019280
083095         GO                      TO   710-XRD.                    EW019290
           IF    CTRAMT10              =    ZEROS                       EW019300
083095*      GO                        TO   710-EXIT.                   EW019310
083095       GO                        TO   710-XRD.                    EW019320
           MOVE    SPACES              TO   XCD                         EW019330
           MOVE    ZEROS               TO   XCDAMT1       XCDAMT2       EW019340
                                            XCDAMT3       XCDAMT4       EW019350
083095*                                     XCDAMT6       XCDAMT6       EW019360
083095                                      XCDAMT5       XCDAMT6       EW019370
                                            XCDAMT7                     EW019380
083095                                      XCDAMT8       XCDSTF        EW019390
           MOVE    OLDKDIST            TO   XCDDIST                     EW019400
           MOVE    OLDKSCHL            TO   XCDSCHL                     EW019410
           MOVE    '930'               TO   XCDPGM                      EW019420
           IF      OLDKFUND            =    '1'                         EW019430
             MOVE  'A'                 TO   XCDRTYPE                    EW019440
           ELSE                                                         EW019450
             MOVE  'C'                 TO   XCDRTYPE.                   EW019460
083095*    MOVE    'I'                 TO   XCDDTYPE                    EW019470
           MOVE    CTRDI6100           TO   XCDAMT1                     EW019480
           MOVE    CTRDI6200           TO   XCDAMT2                     EW019490
           MOVE    CTRDI6300           TO   XCDAMT3                     EW019500
           MOVE    CTRDI6400           TO   XCDAMT4                     EW019510
           MOVE    CTRDI7100           TO   XCDAMT5                     EW019520
           MOVE    CTRDI7200           TO   XCDAMT6                     EW019530
           MOVE    ZEROS               TO   XCDAMT7                     EW019540
           PERFORM 725-XCD-WRITE       THRU 725-EXIT                    EW019550
           MOVE    '940'               TO   XCDPGM                      EW019560
           MOVE    CTRDI7400           TO   XCDAMT1                     EW019570
           MOVE    CTRDI7500           TO   XCDAMT2                     EW019580
           MOVE    ZEROS               TO   XCDAMT3                     EW019590
           MOVE    CTRDI7700           TO   XCDAMT4                     EW019600
           MOVE    ZEROS               TO   XCDAMT5                     EW019610
           MOVE    CTRDI7900           TO   XCDAMT6                     EW019620
           MOVE    CTRDI8100           TO   XCDAMT7                     EW019630
           PERFORM 725-XCD-WRITE       THRU 725-EXIT.                   EW019640
041706     MOVE    '945'               TO   XCDPGM                              
041706     MOVE    CTRDI8200           TO   XCDAMT1                             
041706     MOVE    CTRDI6500           TO   XCDAMT2                             
041706     MOVE    ZEROS               TO   XCDAMT3                             
041706     MOVE    ZEROS               TO   XCDAMT4                             
041706     MOVE    ZEROS               TO   XCDAMT5                             
041706     MOVE    ZEROS               TO   XCDAMT6                             
041706     MOVE    ZEROS               TO   XCDAMT7                             
041706     PERFORM 725-XCD-WRITE       THRU 725-EXIT.                           
083095 710-XRD.                                                         EW019650
083095     IF      OLDRPT              NOT  =  'B'                      EW019660
083095       ADD   +1                  TO   CTRXCD                      EW019670
083095       GO                        TO   710-EXIT.                   EW019680
083095     MOVE    SPACES              TO   XRD                         EW019690
083095     MOVE    ZEROS               TO   XRDAMT1       XRDAMT2       EW019700
083095                                      XRDAMT3       XRDAMT4       EW019710
083095                                      XRDAMT5       XRDAMT6       EW019720
083095                                      XRDAMT7       XRDAMT8       EW019730
083095                                      XRDAMT9       XRDAMT10      EW019740
083095     MOVE    OLDKDIST            TO   XRDDIST                     EW019750
083095     MOVE    OLDKFUND            TO   XRDRTYPE                    EW019760
083095     MOVE    CTRRECR             TO   XRDAMT1                     EW019770
083095     MOVE    CTROTHR             TO   XRDAMT2                     EW019780
083095     MOVE    CTRCAP              TO   XRDAMT3                     EW019790
083095     MOVE    CTRCOMSRV           TO   XRDAMT4                     EW019800
083095     MOVE    CTRDEBT             TO   XRDAMT5                     EW019810
083095     MOVE    CTRFEDIND           TO   XRDAMT7                     EW019820
041499     MOVE    CTRCHRTR            TO   XRDAMT11                    EW019830
083095     MOVE    CTRTOT              TO   XRDAMT8                     EW019840
083095     MOVE    CTRAFR              TO   XRDAMT9                     EW019850
083095     MOVE    CTRCOMP             TO   XRDAMT10                    EW019860
041397     MOVE    'R'                 TO   XRDRECON                    EW019870
083095     MOVE    XRD                 TO   XCDD                        EW019880
083095     WRITE   XCDD                                                 EW019890
083095     IF      RETXCD              NOT  =  '00'                     EW019900
083095       MOVE  'RECON WRITE ERR'   TO   LNMMSG                      EW019910
083095       MOVE  RETXCD              TO   LNMVALUE1                   EW019920
083095       MOVE  XCDD                TO   LNMVALUE2                   EW019930
083095       PERFORM 520-PRINT         THRU 520-EXIT                    EW019940
083095     ELSE                                                         EW019950
083095       ADD   +1                  TO   CTRXCD.                     EW019960
       710-EXIT.                                                        EW019970
           EXIT.                                                        EW019980
                                                                        EW019990
       715-TBL-READ.                                                    EW020000
           SEARCH  ALL  PGMENTRY                                        EW020010
             AT  END                                                    EW020020
               MOVE     ZEROS          TO   XCDSTF                      EW020030
             WHEN    PGMPGM  (PGM1)    =    XCDPGM                      EW020040
               MOVE  PGMSTF  (PGM1)    TO   XCDSTF.                     EW020050
       715-EXIT.                                                        EW020060
           EXIT.                                                        EW020070
                                                                        EW020080
       720-ABF-READ.                                                    EW020090
           MOVE    OLDKDIST            TO   ABFKEY                      EW020100
           MOVE    OLDKFY              TO   ABFFY                       EW020110
           MOVE    OLDKSCHL            TO   ABFSCHL                     EW020120
           MOVE    OLDKPGM             TO   ABFPGM                      EW020130
           MOVE    ABFKEY              TO   ABFDK                       EW020140
           READ    ABF-DISK                                             EW020150
           IF      RETABF              NOT  =  '00'                     EW020160
             MOVE  ZEROS               TO   XCDSTF                      EW020170
           ELSE                                                         EW020180
             MOVE  ABFD                TO   ABF                         EW020190
             MOVE  ABFSTAFF            TO   XCDSTF.                     EW020200
       720-EXIT.                                                        EW020210
           EXIT.                                                        EW020220
                                                                        EW020230
       725-XCD-WRITE.                                                   EW020240
           MOVE    XCD                 TO   XCDD                        EW020250
           WRITE   XCDD                                                 EW020260
           IF      RETXCD              NOT  =  '00'                     EW020270
             MOVE  'XCD WRITE ERR'     TO   LNMMSG                      EW020280
             MOVE  RETXCD              TO   LNMVALUE1                   EW020290
             MOVE  XCDD                TO   LNMVALUE2                   EW020300
             PERFORM 520-PRINT         THRU 520-EXIT                    EW020310
           ELSE                                                         EW020320
             ADD   +1                  TO   CTRXCD.                     EW020330
       725-EXIT.                                                        EW020340
           EXIT.                                                        EW020350
050399 730-CHRTR-HDR.                                                   EW020360
050399     MOVE    '0'                 TO   CTLCHAR                     EW020370
050399     MOVE    HD16                TO   LN1                         EW020380
050399     PERFORM 520-PRINT           THRU 520-EXIT                    EW020390
050399     MOVE    CTR4AMT1            TO   HD17AMT1                    EW020400
050399     MOVE    CTR4AMT2            TO   HD17AMT2                    EW020410
050399     MOVE    CTR4AMT3            TO   HD17AMT3                    EW020420
050399     MOVE    CTR4AMT4            TO   HD17AMT4                    EW020430
050399     MOVE    HD17                TO   LN1                         EW020440
050399     PERFORM 520-PRINT           THRU 520-EXIT                    EW020450
050399     MOVE    CTR4AMT5            TO   HD18AMT1                    EW020460
050399     MOVE    CTR4AMT6            TO   HD18AMT2                    EW020470
050399     MOVE    CTR4AMT7            TO   HD18AMT3                    EW020480
050399     MOVE    CTR4AMT8            TO   HD18AMT4                    EW020490
050399     MOVE    HD18                TO   LN1                         EW020500
050399     PERFORM 520-PRINT           THRU 520-EXIT                    EW020510
050399     MOVE    CTR4AMT9            TO   HD19AMT1                    EW020520
050399     MOVE    CTR4AMT10           TO   HD19AMT2                    EW020530
050399     MOVE    CTR4AMT11           TO   HD19AMT3                    EW020540
050399     MOVE    CTR4AMT12           TO   HD19AMT4                    EW020550
050399     MOVE    HD19                TO   LN1                         EW020560
050399     PERFORM 520-PRINT           THRU 520-EXIT                    EW020570
050399     MOVE    CTR4AMT13           TO   HD20AMT1                    EW020580
050399     MOVE    CTR4AMT14           TO   HD20AMT2                    EW020590
041706     MOVE    CTR4AMT15           TO   HD20AMT3                            
041706     MOVE    CTR4AMT16           TO   HD20AMT4                            
050399     MOVE    HD20                TO   LN1                         EW020600
050399     PERFORM 520-PRINT           THRU 520-EXIT                    EW020610
050399     MOVE    'Y'                 TO   WSCFLG4XXX.                 EW020620
050399 730-EXIT.                                                        EW020630
050399     EXIT.                                                        EW020640
                                                                        EW020650
      ******************************************************************EW020660
       990-HOUSEKEEPING.                                                EW020670
           PERFORM 510-READ            THRU 510-EXIT                    EW020680
           ACCEPT  SYSDATE             FROM DATE                        EW020690
           MOVE    SYSYY               TO   HD1YY                       EW020700
           MOVE    SYSMM               TO   HD1MM                       EW020710
           MOVE    SYSDD               TO   HD1DD                       EW020720
           ACCEPT  SYSTIME             FROM TIME                        EW020730
           MOVE    SYSHR               TO   HD1HR                       EW020740
           MOVE    SYSMIN              TO   HD1MN                       EW020750
           IF      SRTKEY              =    HIGH-VALUES                 EW020760
             MOVE  ' EW030 NO DATA TO PROCESS'  TO  LNM                 EW020770
             PERFORM 520-PRINT         THRU 520-EXIT                    EW020780
             GO                        TO   999-EOJ.                    EW020790
           PERFORM 650-5CHG            THRU 650-EXIT.                   EW020800
       990-EXIT.                                                        EW020810
           EXIT.                                                        EW020820
                                                                        EW020830
      ******************************************************************EW020840
       999-EOJ.                                                         EW020850
           CLOSE                       CRD-CARD      CRF-DISK           EW020860
                                       RWF-DISK      PR1-PRNT.          EW020870
           IF      OLDRPT              =   'B'                          EW020880
             CLOSE                     ABF-DISK      XCD-DISK.          EW020890
       999-EXIT.                                                        EW020900
           EXIT.                                                        EW020910
                                                                                
