[sqr-users] Read and Select variable data

["John F. Connell Jr." <jfc.associates@comcast.net>]

Hi All,
 
I have solved my issue with the help of my associates whom is also a
member of the user group, by placing an if at the proper position in the
following code;
 
While Not #end-file 
       
        READ 1 INTO $HISTROWREAD:1000
        UNSTRING $HISTROWREAD BY ';' INTO $DATE $po-num $vendor
$vendname $vendfaxnum $purchaseagent $podesc
        IF #END-FILE =1
          BREAK   
         Else 
         if $po-num = $inputponum
          Do printdata
          Add 1 to #rcds
        end-if  
        END-IF
     
   END-WHILE
   CLOSE 1
 
Regards,
 
John Connell
 
 

_______________________________________________
sqr-users mailing list
sqr-users@sqrug.org
http://www.sqrug.org/mailman/listinfo/sqr-users