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

472 AppendixA
SAMPLE PROGRAMS
TRANSACT
DATABUFLEN I(4):
DONE-WITH-TRANS I(4):
ERROR-LOCATION X(70):
FIELDINFO X(80):
NUM-ENTRIES I(4)=FIELDINFO:
ENTRY-LEN I(4)=FIELDINFO(3):
FORM-NAME X(16)=FIELDINFO(5):
FIELDDATA 3 X(20)=FIELDINFO(21):
FIELDENTRY X(20)=FIELDDATA:
FIELD-NAME X(16)=FIELDENTRY:
SCREEN-ORDER I(4)=FIELDENTRY(17):
FIELD-NUM I(4)=FIELDENTRY(19):
FIELDSPECS-ITEM 3 X(8):
FIELDSPECS X(8)=FIELDSPECS-ITEM:
FIELD-ID I(4)=FIELDSPECS:
CHANGE-TYPE I(4)=FIELDSPECS(3):
CHANGE-SPEC X(4)=FIELDSPECS(5):
FILENAME X(86):
FOUND-DATA-ERRS I(4):
INFOBUFLEN I(4):
MSGBUF X(150):
MSGBUFLEN I(4):
NBR-TXN-COLLECT I(8):
NUMENTRIES I(4):
NUMSPECS I(4):
STOP-NOW I(4):
GLOBAL 3 I(4):
ZERO I(4)=GLOBAL:
ONE I(4)=GLOBAL(3):
EIGHT I(4)=GLOBAL(5):
FALSE I(4)=ZERO:
TRUE I(4)=ONE;
LIST MAXWINDOWLEN;
LIST COMAREA,INIT: << Initialize to all zeros >>
DATABUF:
DATABUFLEN:
DONE-WITH-TRANS:
ERROR-LOCATION:
FIELDINFO:
FIELDSPECS-ITEM:
FILENAME:
FOUND-DATA-ERRS:
INFOBUFLEN:
MSGBUF:
MSGBUFLEN:
NBR-TXN-COLLECT:
NUMENTRIES:
NUMSPECS:
STOP-NOW:
GLOBAL;
SET(OPTION) NOHEAD;
<< Sample program main line >>
PERFORM SETUP-FOR-WORK;
LEVEL; <<setup loop until done collecting transactions>>