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

Appendix A 479

SAMPLE PROGRAMS

TRANSACT

LET (INFOBUFLEN) = (NUM-ENTRIES) * (ENTRY-LEN) + 10;

PROC VGETFIELDINFOR((COMAEA),(FIELDINFO),(INFORBUFLEN));

IF (CSTATUS) <> (ZERO) THEN

LET (STOP-NOW) = (TRUE);

MOVE (ERROR-LOCATION) = "**** procedure: Setup For Work - "

"Field Info Retrieval";

PERFORM GET-ERROR-MESSAGE;

DOEND;

RETURN;