-*  THIS FOCUS SEGMENT WILL PRODUCE THE BATCH HEADER USING THE CONVERT/PAD
-*  COMMAND.
-*  VARIABLES USED :
-*    HDRKEY : INFO TO BE INCLUDED IN BATCH HEADER
-*
SET LINES=999999
SET PAGE=NOPAGE
FILEDEF PLAY DISK PLAY.FTM APPEND
DEFINE FILE AAFILE
BATCH_HEADER1/A33 = '&HDRKEY';
BATCH_HEADER2/A30 = '                            XX';
END
TABLE FILE AAFILE
PRINT BATCH_HEADER1 AS '' BATCH_HEADER2 AS '' 
      BY SID_AA NOPRINT
ON TABLE SAVE AS PLAY
IF RECORDLIMIT EQ 1
END

 

 

This page hosted by Get your own Free Homepage

Hosted by www.Geocities.ws

1