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

Appendix A 481
SAMPLE PROGRAMS
PASCAL
NFNAME : PAC_16;
REPEATAPP : SMALL_INT;
FREEZEAPP : SMALL_INT;
CFNUMLINES : SMALL_INT;
DBUFLEN : SMALL_INT;
SKIP_31 : SMALL_INT;
LOOKAHEAD : SMALL_INT;
DELETEFLAG : SMALL_INT;
SHOWCONTROL : SMALL_INT;
SKIP_35 : SMALL_INT;
PRINTFILENUM : SMALL_INT;
FILERRNUM : SMALL_INT;
ERRFILENUM : SMALL_INT;
FORMSTORESIZE : SMALL_INT;
SKIP_40 : SMALL_INT;
SKIP_41 : SMALL_INT;
SKIP_42 : SMALL_INT;
NUMRECS : INTEGER;
RECNUM : INTEGER;
SKIP_47 : SMALL_INT;
SKIP_48 : SMALL_INT;
TERM_FILEN : SMALL_INT;
SKIP 50 : SMALL_INT;
SKIP_51 : SMALL_INT;
SKIP_52 : SMALL_INT;
SKIP_53 : SMALL_INT;
SKIP_54 : SMALL_INT;
RETRIES : SMALL_INT;
TERM_OPTIONS : SMALL_INT;
ENVIRON : SMALL_INT;
USERTIME : SMALL_INT;
IDENTIFIER : SMALL_INT;
LABELINFO :TWO_BYTE_SUB_RANGE;
END;
FIELDENTRY_REC = PACKED RECORD
FIELD_NAME : PAC_16;
SCREEN_ORDER : SMALL_INT;
END;
FIELDINFO REC = PACKED RECORD
NUM_ENTRIES : SMALL_INT;
ENTRY_LEN : SMALL_INT;
FORM_NAME : PAC 16;
FIEL_ENTRY : PACKED ARRAY [1..3] OF FIELDENTRY_REC;
END;
FIELDSPECS_REC = RECORD
FIELD_ID : SMALL_INT;
CHANGE_TYPE : SMALL_INT;
CHANGE_SPEC : PAC_4;
END;
CONST
LABELINFO_INIT = TWO_BYTE_SUB_RANGE [2 OF 0];