RE: [sqr-users] Writing Variables to a file - only writes first line

["Bob Stone" <bstone@fastenal.com>]

if I understand what you're trying to do in pseudocode


  open-read-file
  open-write-file

  while loop
    read line(i)
    if T 
      set-vars-1-way
    else
      set-vars-the-other-way
    end-if

    write-line-to-new-file
  end-while

  close-read-file
  close-write-file


--------------------
you show us the 'WRITE-LINE-TO-NEW-FILE' (write-interface) procedure,
where if it's a T you write the columns 1 way, if it's not you write it
the other way.  If you're only getting 1 of the lines back in the file,
and what's written below is your exact procedure, then the problem isn't
there.  The problem must be when you're calling DO WRITE-INTERFACE.
Make sure you're calling it OUTSIDE of the IF statement that's parsing
the variables.  Or if you'd rather have it inside, have it inside both
the IF and the ELSE.





-----Original Message-----
From: sqr-users-bounces+bstone=fastenal.com@sqrug.org
[mailto:sqr-users-bounces+bstone=fastenal.com@sqrug.org] On Behalf Of
Joe
Sent: Wednesday, January 31, 2007 1:52 PM
To: This list is for discussion about the SQR database reportinglanguage
from Hyperion Solutions.
Subject: [sqr-users] Writing Variables to a file - only writes first
line

I have a program that opens a flat file, extracts the data, appends a
character to one of the fields, then writes the data to another flat
file.

When I try this code:

============================================

begin-PROCEDURE Write-Interface
    let #Batch_Counter2 = 0  

   IF $OUT-TYPE <> 'T'  
   Write 2 FROM 

        $OUT-TYPE:1    
        $OUTD-CRE-DATE:8    
        $OUTD-TRAN-UNIQ:2      
        $OUTD-SEQ:3    
        $OUTD-BUS-UNITz:5    
        $OUTD-MDCY:8    
        $OUTD-ACCOUNT:10     
        $OUTD-DEPTID:10
        $FILLER1:8
        $OUTD-PROD-ID:6    
        $OUTD-AMOUNT:11     
        $OUTD-DELIM:2    

       add 1 to #Batch_Counter2
   
   ELSE
   Write 2 FROM 

        $OUT-TYPE:1    
        $OUTT-COUNT:8    
        $OUTT-DEBITS:12    
        $OUTT-CREDITS:12    
        $UNKNOWN:2    
        $OUTT-DELIM:2    

       add 1 to #Batch_Counter2
        
   END-IF
 end-PROCEDURE Write-Interface

=============================================

I only get one row of data written to the file.

I tried setting a variable #STOP to 0 and only changing it to 1 at the
end of the ELSE statement above and then use 'While #STOP = 0" at the
beginning of this procedure, which causes the first row to be written
over and over again to the output file.

The data should contain about 40 different rows with an ending trailer
row.

Am I correct in trying to use a While statement?  How have I miscoded
this?

TIA,

Joe



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

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