      *******************************************************
      *         GEOGRAPHIC ADJ FACTOR (GAF) COPYBOOK        *
      *            FOR FQHC PPS PRICER (COPYGAF)            *
      *-----------------------------------------------------*
      *                                                     *
      *       VARIABLES: CARRIER-LOCALITY                   *
      *                  EFFECTIVE DATE (YYYYMMDD)          *
      *                  GEOGRAPHIC ADJ FACTOR (GAF)        *
      *                                                     *
      *       SORTED BY CARRIER-LOCALITY AND EFFECTIVE      *
      *       DATE, ASCENDING ORDER                         *
      *                                                     *
      *******************************************************
       01  W-GAF-FILLS.
           03                          PIC X(40)   VALUE
               '0111203201410010115401112052014100101216'.
           03                          PIC X(40)   VALUE
               '0111206201410010121001112072014100101152'.
           03                          PIC X(40)   VALUE
               '0111209201410010120401112992014100101053'.
           03                          PIC X(40)   VALUE
               '0118217201410010110501182182014100101096'.
           03                          PIC X(40)   VALUE
               '0118226201410010112301182992014100101053'.
           03                          PIC X(40)   VALUE
               '0121201201410010107501312002014100101026'.
           03                          PIC X(40)   VALUE
               '0210201201410010130702202002014100100951'.
           03                          PIC X(40)   VALUE
               '0230201201410010102502302992014100100984'.
           03                          PIC X(40)   VALUE
               '0240202201410010108402402992014100101007'.
           03                          PIC X(40)   VALUE
               '0310200201410010099503202012014100101000'.
           03                          PIC X(40)   VALUE
               '0330201201410010100003402022014100101000'.
           03                          PIC X(40)   VALUE
               '0350209201410010096203602212014100101000'.
           03                          PIC X(40)   VALUE
               '0411201201410010100404212052014100100962'.
           03                          PIC X(40)   VALUE
               '0431200201410010093604412092014100101002'.
           03                          PIC X(40)   VALUE
               '0441211201410010101404412152014100101010'.
           03                          PIC X(40)   VALUE
               '0441218201410010100904412202014100100953'.
           03                          PIC X(40)   VALUE
               '0441228201410010099504412312014100101007'.
           03                          PIC X(40)   VALUE
               '0441299201410010096105102002014100100949'.
           03                          PIC X(40)   VALUE
               '0520200201410010095305302012014100100981'.
           03                          PIC X(40)   VALUE
               '0530202201410010097805302992014100100930'.
           03                          PIC X(40)   VALUE
               '0540200201410010095606102122014100100970'.
           03                          PIC X(40)   VALUE
               '0610215201410010104106102162014100101033'.
           03                          PIC X(40)   VALUE
               '0610299201410010095706202002014100101007'.
           03                          PIC X(40)   VALUE
               '0630200201410010098007102132014100100937'.
           03                          PIC X(40)   VALUE
               '0720201201410010099107202992014100100945'.
           03                          PIC X(40)   VALUE
               '0730200201410010093708102002014100100963'.
           03                          PIC X(40)   VALUE
               '0820201201410010101008202992014100100963'.
           03                          PIC X(40)   VALUE
               '0910203201410010101909102042014100101021'.
           03                          PIC X(40)   VALUE
               '0910299201410010098309202202014100100856'.
           03                          PIC X(40)   VALUE
               '0920250201410010100210102002014100100945'.
           03                          PIC X(40)   VALUE
               '1020201201410010100510202992014100100953'.
           03                          PIC X(40)   VALUE
               '1030235201410010095211202012014100100958'.
           03                          PIC X(40)   VALUE
               '1130200201410010099111402162014100100921'.
           03                          PIC X(40)   VALUE
               '1150200201410010096712102012014100101024'.
           03                          PIC X(40)   VALUE
               '1220201201410010112112302012014100101059'.
           03                          PIC X(40)   VALUE
               '1230299201410010102412402012014100101109'.
           03                          PIC X(40)   VALUE
               '1240299201410010107112502012014100101044'.
           03                          PIC X(40)   VALUE
               '1250299201410010096313102002014100101067'.
           03                          PIC X(40)   VALUE
               '1320201201410010110813202022014100101124'.
           03                          PIC X(40)   VALUE
               '1320203201410010103913282992014100100973'.
           03                          PIC X(40)   VALUE
               '1329204201410010112314112032014100101007'.
           03                          PIC X(40)   VALUE
               '1411299201410010095814212012014100101082'.
           03                          PIC X(40)   VALUE
               '1421299201410010103814312402014100101024'.
           03                          PIC X(40)   VALUE
               '1441201201410010103514512502014100101003'.
           03                          PIC X(40)   VALUE
               '1510200201410010094015202002014100100964'.
       01  W-GAF-TABLE REDEFINES W-GAF-FILLS.
           03  GAF-ENTRY OCCURS 90 TIMES
                   ASCENDING KEY IS GAF-CARRIER-LOC GAF-EFFDATE
                   INDEXED BY GAF-INDX.
               05  GAF-CARRIER-LOC     PIC X(7).
               05  GAF-EFFDATE         PIC 9(8).
               05  GAF-RATE            PIC 9(2)V9(3).
       01  GAF-MAX                     PIC S9(7)   COMP-3
                                       VALUE +90.
