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

Appendix A 409
SAMPLE PROGRAMS
SPL
$PAGE " "ENTRY DECLARATIONS"
<<****************************************************************>>
<< >>
<< ENTRY Global Declarations >>
<< >>
<<****************************************************************>>
BEGIN
DEFINE
VERSION = " B.04.17" #
,ID’MSG=("HP32209",VERSION," ENTRY (C) HEWLETT-PACKARD CO. 1986")#
;
DEFINE
COM’STATUS = COMAREA (0) #
,COM’LANGUAGE = COMAREA (1) #
,COM’COMAREALEN = COMAREA (2) #
,COM’MODE = COMAREA (4) #
,COM’LASTKEY = COMAREA (5) #
,COM’NUMERRS = COMAREA (6) #
,COM’LABEL’OPTION = COMAREA (9) #
,COM’CFNAME = COMAREA’B (10*2) #
,COM’NFNAME = COMAREA’B (18*2) #
,COM’REPEATOPT = COMAREA (26) #
,COM’NFOPT = COMAREA (27) #
,COM’DBUFLEN = COMAREA (29) #
,COM’DELETEFLAG = COMAREA (32) #
,COM’SHOWCONTROL = COMAREA (33) #
,COM’NUMRECS = COMAREA’D (21) #
,COM’RECNUM = COMAREA’D (22) #
,COM’TERMFILENUM = COMAREA (48) #
,COM’TERMOPTIONS = COMAREA (55) #
,com’term’type = comarea (58) #
,com’keyboard’type = comarea (74) #
,com’form’stor’size = comarea (38) #
;
DEFINE
CHECK’ERROR = IF COM’STATUS <>’ 0 THEN
ERROR #
,CHECK’EDIT’ERROR = IF COM’STATUS <> 0 OR COM’NUMERRS <> 0 THEN
ERROR #
;
EQUATE << MISCELLANEOUS VALUES >>
COMAREALEN = 85
,SPL’LANG = 3
,COLLECT’MODE = 0
,BROWSE’MODE = 1
,MAXWINDOWLEN = 150
,NAMELEN = 15
,NORM = 0
,NOREPEAT = 0
,REPEAT = 1
,REPEATAPP = 2
,ESC = 27
,FORWARDS = 1
,BACKWARDS = -1
;
EQUATE << FUNCTION KEY ASSIGNMENTS >>
ENTERKEY = 0