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

478 AppendixA
SAMPLE PROGRAMS
TRANSACT
LET (LABELOPTIONS) = 1;
MOVE (CFNAME) = " ";
MOVE (NFNAME) = " ";
LET (FORMSTORESIZE) = 4;
<< Open of Transaction file done in SYSTEM statement. Opened
so that new records are appended to those already in the file >>
<< Open forms file >>
MOVE (FILENAME) = "PAYROLL.VPLUS.MILLER";
PROC VOPENFORMF((COMAREA),%(FILENAME));
IF (CSTATUS) <> (ZERO) THEN
DO
LET (STOP-NOW) = (TRUE);
MOVE (ERROR-LOCATION) = "**** procedure: Setup For Work - "
"Forms File Open";
PERFORM GET-ERROR-MESSAGE;
RETURN;
DOEND;
<< Open terminal >>
MOVE (FILENAME) = "HPTERM";
PROC VOPENTERM((COMAREA),%(FILENAME));
IF (CSTATUS) <> (ZERO) THEN
DO
LET (STOP-NOW) = (TRUE);
MOVE (ERROR-LOCATION) = "**** procedure: Setup For Work - "
"Terminal Open";
PERFORM GET-ERROR-MESSAGE;
RETURN;
DOEND;
<< Translate field names to screen order >>
<< Three of the fields in the form used by this application
need to be toggled from "display only" to "input allowed".
In order to do this, we first translate field names to
screen order. >>
<< Setup to retrieve screen order for three specified fields >>
MOVE (CFNAME) = "DEDUCTION";
MOVE (FIELDINFO) = " ";
LET (NUM-ENTRIES) = 3;
LET (ENTRY-LEN) = 10;
MOVE (FORM-NAME) = "DEDUCTION";
LET OFFSET(FIELDENTRY) = 0;
MOVE (FIELD-NAME) = "BADGE NUMBER";
LET OFFSET(FIELDENTRY) = 20;
MOVE (FIELD-NAME) = "LAST_NAME";
LET OFFSET(FIELDENTRY) = 40;
MOVE (FIELD-NAME) = "SUR_NAME";
<< Set length of entire info buffer >>