Instruction Manual

9.6.1 FREE FORMAT DATALOG EXAMPLE 1
This is a free format datalog F-TRAN program for a batch report. The report output is illustrated in
Figure 9-5.
#define CHRSEL B009
#define OLDCHR B467
#define DDIB 8
#define HOURS B259
#define MINUTES B258
#define SECONDS B257
#define DAY B260
#define MONTH B261
#define YEAR B262
#define BTCHNUM B465
#define RECNUM B466
#define ADD_A_TAR C461
#define ADD_B_TAR C463
#define MIXTIME C465
#define COOKTEMP C466
#define COOKTIME C467
#define COOLTEMP C101
#define COOLTIME C468
#define EMPTYTIME C469
#define ADD_A_ACT H092
#define ADD_B_ACT H093
#define LOGPRNT L074
#define BELL 7
#define HT 9
#define LF 10
#define FF 12
#define CR 13
#define SO 14
#define ON 1
#define OFF 0
\***** SAVE VALUE OF CHRSEL *****\
OLDCHR=CHRSEL
\***** PRINT DESTINATION *****\
CHRSEL=DDIB
\***** BATCH LOG TITLE *****\
PRINT ’SO’
PRINT "*********"
PRINT "BATCH REPO"
PRINT "RT"
PRINT "*********"
PRINT ’CR’
PRINT ’LF’
PRINT ’LF’
\***** BATCH REFERENCE NUMBER *****\
PRINT "BATCH NUMB"
PRINT "ER "
PRINT BTCHNUM
PRINT ’CR’
PRINT ’LF’
\***** BATCH COMPLETE TIME *****\
PRINT "TIME "
PRINT " "
PRINT HOURS
PRINT ":"
PRINT MINUTES
PRINT ":"
PRINT SECONDS
PRINT ’CR’
PRINT ’LF’
\***** BATCH COMPLETE DATE *****\
PRINT "DATE "
PRINT " "
PRINT DAY
PRINT "/"
PRINT MONTH
PRINT "/"
PRINT YEAR
PRINT ’CR’
PRINT ’LF’
PRINT ’LF’
\***** PRINT RECIPE NUMBER *****\
PRINT "RECIPE NUM"
PRINT "BER "
PRINT RECNUM
PRINT ’CR’
PRINT ’LF’
\***** PRINT PRODUCT NAME *****\
PRINT "PRODUCT NA"
PRINT "ME "
CASESOF RECNUM
CASE 1
{
PRINT "Secret For"
PRINT "mula 1"
}
CASE2
{
PRINT "Secret For"
PRINT "mula 2"
}
OTHERWISE
{
PRINT "Unknown Fo"
PRINT "rmula"
}
PRINT ’CR’
PRINT ’LF’
PRINT ’LF’
Section 9. Printer Interface
PRINTER
9-9