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

Appendix A 471
SAMPLE PROGRAMS
TRANSACT
TRANSACT
SYSTEM TRANS,ENTITY =TXNFILE(APPEND);
<<
This application collects employee payroll deduction transactions
and places the edited transactions into a file.
For this application: Enter key = edit and file transaction;
f8 = exit application;
all other f keys = redo transaction.
Each transaction entered by the operator is subjected to the data
edits embedded within the input form.
The application continues to collect transactions until either
the operator signals to exit or a system error is detected.
>>
DEFINE(ITEM) MAXWINDOWLEN I(4),INIT=150;
DEFINE(ITEM) COMAREA 60 I(4):
CSTATUS I(4)=COMAREA:
LANGUAGE I(4)=COMAREA(3):
COMAREALEN I(4)=COMAREA(5):
USERBUFLEN I(4)=COMAREA(7):
CMODE I(4)=COMAREA(9):
LASTKEY I(4)=COMAREA(11):
NUMERRS I(4)=COMAREA(13):
WINDOWENH I(4)=COMAREA(15):
MULTIUSAGE I(4)=COMAREA(17):
LABELOPTIONS I(4)=COMAREA(19):
CFNAME X(16)=COMAREA(21):
NFNAME X(16)=COMAREA(37):
REPEATAPP I(4)=COMAREA(53):
FREEZEAPP I(4)=COMAREA(55):
CFNUMLINES I(4)=COMAREA(57):
DBUFLEN I(4)=COMAREA(59):
LOOKAHEAD I(4)=COMAREA(63):
DELETEFLAG I(4)=COMAREA(65):
SHOWCONTROL I(4)=COMAREA(67):
PRINTFILENUM I(4)=COMAREA(71):
FILERRNUM I(4)=COMAREA(73):
ERRFILENUM I(4)=COMAREA(75):
FORMSTORESIZE I(4)=COMAREA(77):
NUMRECS I(8)=COMAREA(85):
RECNUM I(8)=COMAREA(89):
TERM-FILEN I(4)=COMAREA(97):
RETRIES I(4)=COMAREA(109):
TERM-OPTIONS I(4)=COMAREA(111):
ENVIRON I(4)=COMAREA(113):
USERTIME I(4)=COMAREA(115):
IDENTIFIER I(4)=COMAREA(117):
LABELINFO X(2)=COMAREA(119):
DATABUF X(200):