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

420 AppendixA
SAMPLE PROGRAMS
SPL
IF COM’STATUS = 0 THEN
BEGIN
VGETLANG( COMAREA, LANGID );
IF COM’STATUS <> 0 THEN WRITE’MSG
ELSE IF LANGID = INTERNATIONAL THEN BEGIN
<< IF INTERNATIONAL FORMS FILE PROMPT FOR LANGID >>
CONTINUE := TRUE;
LANGID := NLGETLANG( 1, NLERROR );
IF NLERROR = 0 THEN BEGIN
VSETLANG( COMAREA LANGID, VERROR );
COM’STATUS := 0;
END;
WHILE CONTINUE DO BEGIN
PRINT’TO’TERM( BLANK’LINE, %40 );
PRINT’TO’TERM( GET’LANGID, %320 );
READ’LEN := READ’FROM’TERM( LANGID’STR, LANGID’LEN );
IF READ’LEN = 0 THEN CONTINUE := FALSE
ELSE BEGIN
LANGID’STR( READ’LEN ) :=" ";
NLINFO( 22, LANGID’STR’L, LANGID, NLERROR );
IF NLERROR = 0 THEN BEGIN
VSETLANG( COMAREA LANGID, VERROR );
IF VERROR = 0 AND COM’STATUS = 0 THEN
CONTINUE := FALSE;
IF COM’STATUS <> 0 THEN WRITE’MSG;
END
ELSE IF NLERROR = 1
THEN PRINT’TO’TERM(NOT’INSTALL,%40)
ELSE PRINT’TO’TERM(NOT’CONFIG,%40);
END;
END; << WHILE CONTINUE >>
END; << IF LANGID = INTERNATIONAL >>
END; << IF COM’STATUS = 0 >>
<< ALL OK HERE, SO OPEN TERMINAL >>
IF NOT BATCH OR COM’STATUS = 0 THEN
BEGIN
<< OPEN TERMINAL IN BLOCKMODE ... >>
MOVE FILENAME := "A264X ";
VOPENTERM (COMAREA, FILENAME);
IF COM’STATUS <> 0 THEN
BEGIN
WRITE’MSG;
QUIT (6);
END;
COM’TERMOPTIONS.(11:2) := 1; << DONT HARD RESET TERM >>
RETURN; << ALL DONE INITIALIZING >>
END
ELSE << IS NORMAL ERROR >>
BEGIN
COM’STATUS := 0;