import

Steven Waters steven at triumphinstruments.com
Tue Jan 10 07:18:19 PST 2006


here is my code 


loop   │ If:
│
       Then: import ascii imp = /f/appl/fpmerge/tgicaps.txt r=\n f=255
│
  3  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
       │ If: not imp
│
       Then: close imp;end
│
  4  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
       │ If:
│
       Then: lookup pnsFL = tgicaps  r=free  -n
│
  5  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
       │ If:
│
       Then: pnsFL(1)=imp(1)
│
  6  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
       │ If:
│
       Then: pnsFL(2)=imp(2)  

----{Repeat code for field 3 through 8]----
             
13  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
       │ If:
│
       Then: goto loop        



More information about the Filepro-list mailing list