RE: Blank Line Written to File Before Data

["Tyler, Matt" <mattt@xxxxxxxxxxxxxx>]

If you are explicitly writing to the db record, then why are you still
using o-spec?  It seems like the cycle will put out your "blank" record
there.

Thank you,
Matt Tyler
WinCo Foods, LLC
mattt@xxxxxxxxxxxxxx


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Ala, Michael A
Sent: Friday, January 20, 2006 2:24 PM
To: rpg400-l@xxxxxxxxxxxx
Subject: Blank Line Written to File Before Data

I have a program parses a record into 80 byte blocks for EDI processing

The problem is I get a blank record in the 80 byte file

Any ideas

FEDIFTPIFS IF   F32766        DISK

FEDIINBOX  O  A F   80        DISK

D Field           S          32766    Varying
Bit Stream In           
D EDIREC          DS            80    INZ

D  EDIField               1     80A

D StrSbs          S              4S 0 INZ(0001)
Start Substring         
D EndSbs          S              4S 0 INZ(0080)
End Substring           
D RecordLen       S              4S 0

D Iterations      S              3S 0 INZ(0)
# of Iterations         
D ix              S              3S 0 INZ(0)
# of Iterations         
IEDIFTPIFS NS  01

I                                  132766  Record

/free                                                               
   // Read All of the FTP Records Break into 80 Char Bytes          
   // and Wite out EDI Order File                                   
    Dow not (%eof);                                                 
    READ  EDIFTPIFS;                                                
    if not (%eof);                                                  
    RecordLen = %LEN(%TRIM(RECORD));                                
    Iterations = (RecordLen/80) + 1;                                
    StrSbs = 1;                                                     
    EndSbs = 80;                                                    
    for ix = 1 to Iterations;                                       
      EDIREC = ' ';                                                 
      EDIREC = %SUBST(Record: StrSbs: EndSbs);                      
      Write EDIINBOX EDIREC;                                        
      StrSbs=EndSbs+1;                                              
      EndSbs=EndSbs+80;                                             
      endfor;                                                       
     endif;                 // not eof                              
    enddo;                 // Read of BRPPO                         
    // End of Program                                               
    *inlr = *on ;                                                   
    return ;                                                        
/end-free     

OEDIINBOX  DADD


Thanks

Michael Ala
EDI Service Line Leader
BP Lubricants USA Inc.