ALLBASE/SQL Reference Manual (36216-90216)

318 Chapter10
SQL Statements A - D
CHECKPOINT
A program retrieves the number of free blocks of log space available. In a Pascal
application program, declare a host variable.
EXEC SQL begin declare section;
hstfblk : integer;
EXEC SQL end declare section;
Submit a checkpoint with host variable to obtain free log space available.
EXEC SQL checkpoint :hstfblk;
writeln('free log space: ',hstfblk);
if hstfblk <= TOOLOW then
writeln('Add new log files ');