[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

264.0. "Focus/Cobol Join problem" by BROOKE::LAZARUSD (David Lazarus NYA-DSS 321-5183) Thu Aug 31 1989 17:56

    I am sure someone has had to what I am doing. I am hoping to find
    the best way. 
    
    I have a COBOL program that is writing Badge number out from
    FOCUS/MACH1 data. The field is X(06). I am trying to join it to
    the Badge in SLSREP of the AIC,where it is defined I6. 
    
    When I do the join,IBI-FOCUS doesn't find any data because of the
    incompatibility. 
    
    I also tried doing various defines,but FOCUS keeps choking. I would
    like to avoid changing Cobol program to make the field PIC S9(12)
    COMP if I don't have to. 
    
    Thanks in advance,
    David Lazarus
    
T.RTitleUserPersonal
Name
DateLines
264.1Some things are better done by handFEISTY::TILLERYFri Sep 01 1989 08:465
    Read all the SLSREP's into a hold file, sorting on Badge.  After
    Focus has stored the data, edit the hold files .MAS to change it 
    to A6 form the I6.  Should work.
    
    Jim
264.2Still confusedOURBOX::LAZARUSDave Lazarus NYA DSS 321-5183Thu Sep 07 1989 13:127
    Jim,
    
    Thanks for your reply. I tried what you said ,but when I tried to
    print badge I got garbage. I must be doing something wrong.
    
David Lazarus
    
264.3Me tooFEISTY::TILLERYFri Sep 08 1989 08:5712
    Hi Dave,
    
    Have you typed out the hold file just to look at the data.  It sounds
    like you have the field expanded bigger than it was intended and
    are grabbing junk.  If the data looks all right in the hold file,
    play with it, or look at the other file which you are joining it
    to.  Is that where the junk is?...
    
    Hope this helps,
    
    Jim
    
264.4Anybody know FOC1006?OURBOX::LAZARUSDave Lazarus NYA DSS 321-5183Wed Sep 27 1989 01:2915
    re .1 -- Although I hated the idea of loading 35,000 salesman each
    time,I decided to use the SLSREP record,join it with AM03 and create
    a small file. That worked fine,but when I tried running the Fex
    I got the following error:(FOC1006) DDNAME is not allocated
    
    My feeling is that you can't join a file created during the run
    process. The Focus Help Line disagreed with me and even gave me
    an example to show that it should work. They say something is
    set up wrong on our system.
    
    1) Has anyone seen FOC1006 ?
    
    2) Because of its size and context,I defer putting it in this reply,but
    if any of you Focus experts would like to try to help me,I can mail
    it to you. 
264.5comment on .1 and .4MILPND::MADDENWed Sep 27 1989 09:3611
    Re .1   creating a hold file from the SLSREP should work, but you have 
    to SET HOLD = ALPHA  so the integer field badge will be stored as an 
    alpha-numeric instead of a binary integer.  This is probably why it
    didn't work.    Another hold file technique would be to define an alpha
    badge field - ASLSREP/A6=EDIT(SLSREP); and table the define field into 
    the hold file instead of the database field (SLSREP).
    
    Regarding creating a file and joining to it in the same .fex, I agree
    with IBI that if the -RUN statements and FILEDEF statements are 
    properly placed this shouldn't be a problem.  If you give some general
    code examples, I could comment further.
264.6The solution was too many usesBROOKE::LAZARUSDDavid Lazarus NYA-DSS 321-5183Wed Sep 27 1989 14:4230
Re -1   >  Creating a hold file from the SLSREP should work, but you have 
    >to SET HOLD = ALPHA  so the integer field badge will be stored as an 
    >alpha-numeric instead of a binary integer.  This is probably why it
    >didn't work.    
    It does,see below.
    
   > Another hold file technique would be to define an alpha
   > badge field - ASLSREP/A6=EDIT(SLSREP); and table the define field into 
   > the hold file instead of the database field (SLSREP).
I am doing that.
   
    I finally was able to fix the problem,and hopefully it will be helpful
    to anyone encountering this.
    
    I decided upon the solution of joining SLSREP and AM03 to create
    a small file of sales badge numbers equal to New York area. I edited
    the badge to be alpha. Simple enough.
    
       So I thought  the  (FOC1006) error had to be a FOCUS problem related
    to joining a runtime created file. The hot line assured me that it was not
    a problem for Focus to do that and showed me an example of that
    being done. So our problem had to be somewhere else.
    It turned out that we went beyond the Use limit of 50. So I
    do a USE CLEAR and just describe the files I need.
    
    BTW,IBI says the joining of different data types(what caused the
    entire problem) is an enhancement in 6.0 due in Feb 1990.

    David Lazarus