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

416 AppendixA
SAMPLE PROGRAMS
SPL
$PAGE " ENTRY INITIALIZATION PROCEDURE"
<<****************************************************************>>
<< >>
<< INIT >>
<< >>
<<****************************************************************>>
PROCEDURE INIT;
BEGIN
EQUATE
VERSIONS’DIFF = 70
,DIF’FF = 73
,FILENAMELEN = 36
,LANGID’LEN = 17
;
EQUATE
BLANK’LINE = 0
,GET’FF’NAME = 1
,GET’BF’NAME = 2
,DIF’FF’WARN = 3
,VERS’DIF’WARN = 4
,Y’TO’CONT = 5
,PRODUCT’ID = 6
,GET’LANGID = 7
,NOT’CONFIG = 8
,NOT’INSTALL = 9
;
INTEGER
INDEX
,READ’LEN
,LANGID
,VERROR
;
LOGICAL
CONTINUE
;
LOGICAL ARRAY
NLERROR(0:1)
;
LOGICAL ARRAY
LANGID’STR’L(0:9)
;
BYTE ARRAY
LANGID’STR(*) = LANGID’STR’L
;
BYTE ARRAY
FILENAME (0:FILENAMELEN)
;
INTRINSIC
TERMINATE
,QUIT
,PRINT
,READ
;