Instruction Manual

9.6.2 FREE FORMAT DATALOG EXAMPLE 2
This is a free format datalog F-TRAN program for an hourly report. The report output is illustrated
in Figure 9-6.
PRINT SECONDS
PRINT ’CR’
PRINT ’LF’
\***** DATE *****\
PRINT "DATE "
PRINT " "
PRINT DAY
PRINT "/"
PRINT MONTH
PRINT "/"
PRINT YEAR
PRINT ’CR’
PRINT ’LF’
PRINT ’LF’
\***** PRINT VALUE A *****\
PRINT TEXT_A1
PRINT TEXT_A2
PRINT6 VALUE_A
PRINT ’CR’
PRINT ’LF’
\***** PRINT VALUE B *****\
PRINT TEXT_B1
PRINT TEXT_B2
PRINT6 VALUE_B
PRINT ’CR’
PRINT ’LF’
\***** PRINT VALUE C *****\
PRINT TEXT_C1
PRINT TEXT_C2
PRINT6 VALUE_C
PRINT ’CR’
PRINT ’LF’
\***** PRINT VALUE D *****\
PRINT TEXT_D1
PRINT TEXT_D2
PRINT6 VALUE_D
PRINT ’CR’
PRINT ’LF’
\***** PRINT END OF BATCH REPORT MESSAGE *****\
PRINT " "
PRINT " "
PRINT "***** END "
PRINT "OF REPORT "
PRINT "*****"
PRINT ’FF’
PRINT ’BELL’
\***** RETURN VALUE OF CHRSEL *****\
CHRSEL=OLDCHR
\***** TURN OFF LOG TRIP *****\
LOGPRNT=OFF
R
#define CHRSEL B009
#define OLDCHR B464
#define DDIB 8
#define HOURS B259
#define MINUTES B258
#define SECONDS B257
#define DAY B260
#define MONTH B261
#define YEAR B262
#define VALUE_A H092
#define VALUE_B H093
#define VALUE_C H092
#define VALUE_D H093
#define TEXT_A1 A200
#define TEXT_A2 A201
#define TEXT_B1 A202
#define TEXT_B2 A203
#define TEXT_C1 A204
#define TEXT_C2 A205
#define TEXT_D1 A206
#define TEXT_D2 A207
#define LEGEND1 A208
#define LEGEND2 A209
#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 LEGEND1
PRINT LEGEND2
PRINT "*********"
PRINT ’CR’
PRINT ’LF’
PRINT ’LF’
\***** TIME *****\
PRINT "TIME "
PRINT " "
PRINT HOURS
PRINT ":"
PRINT MINUTES
PRINT ":"
53MC9015 53MC5000 PLC and Printer Interfaces
9-12
PRINTER