Re: Blank Line Written to File Before Data

[Booth Martin <booth@xxxxxxxxxxxx>]

Perhaps you happen to have an exact multiple of 80?  I wonder if you 
divide by 80, and, if there is a remainder, add 1 to the  iterations?

Another choice would be to test the string and only write the record if 
the string is greater than blanks?



Ala, Michael A wrote:
> 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.