HP Data Entry and Forms Management System (VPLUS) Reference Manual (32209-90024)

Appendix A 413
SAMPLE PROGRAMS
SPL
$PAGE " FORMAT’STATUS’LINE"
<<****************************************************************>>
<< >>
<< FORMAT’STATUS’LINE >>
<< >>
<<****************************************************************>>
PROCEDURE FORMAT’STATUS’LINE;
BEGIN
INTEGER CNT;
INTRINSIC ASCII, DASCII;
if com’term’type = 15 or << HP3075 >>
com’term’type = 16 then << hp3076 >>
move message’buf := (" ENTRY ", version, " "), 2
else
MOVE MESSAGE’BUF := (" ENTRY ", VERSION, ESC, "&a31C"), 2;
MSGLEN := TOS - @MESSAGE’BUF;
MOVE MESSAGE’BUF(MSGLEN) := "Batch Record #", 2;
MSGLEN := TOS - @MESSAGE’BUF;
MSGLEN := MSGLEN + DASCII (COM’RECNUM+1D, 10, MESSAGE’BUF (MSGLEN));
if com’term’type = 15 or << hp3075 >>
com’term’type = 16 then << hp3O76 >>
move message’buf(msglen) := (" Mode: "), 2
else
MOVE MESSAGE’BUF (MSGLEN) := (ESC, "&a65CMode: "), 2;
MSGLEN := TOS - @MESSAGE’BUF;
IF COM’MODE = COLLECT’MODE THEN
MOVE MESSAGE’BUF (MSGLEN) := "Collect", 2
ELSE
if com’term’type = 15 or << hp3075>>
com’term’type = 16 then << hp3076 >>
move message’buf(msglen):= ("Browse"), 2
else
MOVE MESSAGE’BUF (MSGLEN) : = (ESC, "&dKBrowse") , 2;
MSGLEN := TOS - @MESSAGE’BUF;
VPUTWINDOW (COMAREA, MESSAGE’BUF, MSGLEN);
END; << FORMAT’STATUS’LINE >>