[Search for users] [Overall Top Noters] [List of all Conferences] [Download this site]

Conference ilbbak::ibi_focus

Title:FOCUS, from INFORMATION BUILDERS
Moderator:ZAYIUS::BROUILLETTE
Created:Thu Feb 19 1987
Last Modified:Mon May 05 1997
Last Successful Update:Fri Jun 06 1997
Number of topics:615
Total number of notes:1779

422.0. "creating/joining an extract file" by MISERY::BLUM_JO () Wed Jun 05 1991 22:25

    It's been a couple of years since I used FOCUS, so I'm s little
    rusty...
    
    I need to know how to join a hold file to a .FOC file.  The application
    I'm modifying previously had reference data manually entered into it.
    The application created a reference data file using a BASIC program.
    This reference datafile was converted by a fex (via MODIFY) to a .FOC
    file, so that it could be joined to other FOCUS datafiles for
    reporting.
    
    Now, so the users don't have to manual entering this reference data, I am
    creating an extract from the AM03, and storing it as a hold file.  What
    would be the best way to extract the data so that it can be stored as a
    FOCUS file to be joined to other datafiles?
    
    John
    
T.RTitleUserPersonal
Name
DateLines
422.1JOINERYGERBIL::BAMFORTHThu Jun 06 1991 14:5345
    
    If you are using a V6.* version of FOCUS, the best way would be to
    create a FOCUS file in the following manner. 
    
    
                  TABLE FILE AM1001 
                     PRINT FLDA FLDB FLDC ...
                     BY CCTR_BKCTR 
    -->           ON TABLE HOLD AS AM03EXTR FORMAT FOCUS INDEX CCTR_BKCTR
                  END 
    
    
    This will create a .FOC file (AM03EXTR.FOC) containing all of the
    PRINTed fields, keyed by the object of the BY PHRASE (CCTR_BKCTR).
    
    Additionally, we've instructed FOCUS to INDEX the KEY field.  This is 
    important to avoid any "from field/to field out of sequence" type
    errors when joining to this file. 
    
    Once you've created this file, simply JOIN to it from your other data
    files.
    
    e.g.      JOIN COST_CTR IN OTHRFILE TO CCTR_BKCTR IN AM03EXTR AS J1 
    
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    
    If you are using a pre- V6.0 version of FOCUS, you'll have to take a
    two-step approach.  
    
          1)       TABLE FILE AM1001 
                      PRINT FLDA FLDB FLDC ... 
                      BY CCTR_BKCTR 
                   ON TABLE HOLD 
                   END 
    
    
          2)       MODIFY FILE AM03EXTR                NOTE: You'll have to 
                    FIXFORM FROM HOLD                  create the AM03EXTR.MAS
                    MATCH CCTR_BKCTR                   to correspond to the 
                       ON MATCH UPDATE *               fields (use same names)
                       ON NOMATCH INCLUDE              being loaded from AM1001
                    DATA ON HOLD 
                    END