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

Appendix A 417
SAMPLE PROGRAMS
SPL
INTRINSIC
NLGETLANG
,NLINFO
;
SUBROUTINE HANDLE’PROMPT’ERR (QUIT’NUM);
VALUE QUIT’NUM;
INTEGER QUIT’NUM;
BEGIN
MOVE MESSAGE’BUF := "Terminal access failed unexpectedly.", 2;
MSGLEN := TOS - @MESSAGE’BUF;
PRINT (MESSAGE’WBUF, -MSGLEN, 0);
QUIT (QUIT’NUM);
END; << HANDLE’PROMPT’ERR >>
SUBROUTINE WRITE’MSG;
BEGIN
VERRMSG (COMAREA, MESSAGE’BUF, MESSAGE’BUF’LEN, MSGLEN);
PRINT (MESSAGE’WBUF, -(MSGLEN), %60);
IF <> THEN << CANT WRITE TO PROMPT FILE! >>
HANDLE’PROMPT’ERR (%60);
END; << WRITE’MSG >>
SUBROUTINE PRINT’TO’TERM (MSG’NUM, CCTL);
VALUE MSG’NUM, CCTL;
INTEGER MSG’NUM;
LOGICAL CCTL;
BEGIN
CASE MSG’NUM OF
BEGIN
<< 0, BLANK’LINE >>
MOVE MESSAGE’BUF:=" ",2;
<< 1, FF’NAME’PROMPT >>
MOVE MESSAGE’BUF:=" ENTER FORMS FILE NAME AND PRESS RETURN: ",
2;
<< 2, BF NAME PROMPT >>
MOVE MESSAGE’BUF:=" ENTER BATCH FILE NAME AND PRESS RETURN: ",
2;
<< 3, DIFFERENT FF WARNING >>
MOVE MESSAGE’BUF:=(" WARNING: A different forms file was used",
" to create this batch."),2;
<< 4, FF MOD WARN >>
MOVE MESSAGE’BUF:=(" WARNING: Forms File was recompiled since",
" this batch was created."), 2;
<< 5, Y’TO’CONTINUE >>
MOVE MESSAGE’BUF := (" Enter ""Y"" to continue: "), 2;
<< 6, PRODUCT’ID >>
MOVE MESSAGE’BUF := ID’MSG, 2;