We create a flat file (Format Alpha) that we send to the bank for positive pay. They must have new software because they now have problems with what appears to be a blank line at the end of the file. If we go to the the end of the file and delete any characters after the last "good" character and save the file is fine. Is there anyway to eliminate this programatically?

This message has been edited. Last edited by: kerry,

If you try other formats (COM, COMT ) do they have the blank last line too?

Nothing unusual about this, the last line does not contain any characters, it's created because of the carriage-return/line-feed at the end of the previous line.

As far as I can tell, this is the behaviour since forever.

FILEDEF H001 DISK TESTFM/H001.TXT
-RUN

TABLE FILE CAR
PRINT
SALES 
SEATS
BY COUNTRY
BY CAR
BY MODEL
ON TABLE HOLD AS H001 FORMAT ALPHA
END
-RUN

With a tweek, you can sort of do this.

DEFINE FILE CAR
 ASEATS/A3 = FTOA(SEATS,'(F3)','A3') ;
 ASALES/A6 = FTOA(SALES,'(F6)','A6') ;
 MAXCNTR/I9 WITH MODEL = LAST MAXCNTR+ 1 ;
END
TABLE FILE CAR
SUM MAX.MAXCNTR
PRINT
ASALES
ASEATS
COMPUTE
 CNTR/I9 = LAST CNTR + 1 ;
BY COUNTRY
BY CAR
BY MODEL
ON TABLE HOLD AS H001
ON TABLE SET ASNAMES ON
END
-RUN
TABLE FILE H001
PRINT
ASALES
ASEATS
COMPUTE
CRLF/A2 = IF CNTR EQ MAXCNTR THEN ' ' ELSE HEXBYT(13,'A1') | HEXBYT(10,'A1') ;
BY COUNTRY
BY CAR
BY MODEL
ON TABLE HOLD AS H002 FORMAT INTERNAL
ON TABLE SET HOLDLIST PRINTONLY
END

As you are on Unix try calling sed to remove the blank lines via a command line call.

WAZ, thanks for the solution. That worked great. Thank you also to all those who responded. This has been the way WebFocus creates a flat file for as long as I can remember, but it was never a problem for us until the bank required it to be different. I think that wraps this one up.