Example

The ON control statement is used for various purposes, but it is especially convenient for printing final totals, as follows:

/DEFINE BCNT BIN
/PRINT BID 'BUNDLE,IDENTIFIER'
/SET BCNT=BCNT+1
/ON ENDDATA
/      PRINT 'TOTAL BUNDLES =' SKIP(2)
/      PRINT BCNT
/END