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

ManualsBrandsHP ManualsSoftwareMPE/iX 6.5 Operating System

482 AppendixA

SAMPLE PROGRAMS

PASCAL

{ Comarea initialization constant record }

COMAREA_INIT = COMAREA REC

[ CSTATUS : 0,

LANGUAGE : 5, {Pascal }

COMAREALEN :60,

USERBUFLEN : 0,

CMODE : 0,

LASTKEY : 0,

NUMERRS : 0,

WINDOWENH : 0,

MULTIUSAGE : 0,

LABELOPTIONS : 1, {activate labels}

CFNAME : ’’,

NFNAME : ’’,

REPEATAPP : 0,

FREEZEAPP : 0,

CFNUMLINES : 0,

DBUFLEN : 0,

SKIP_31 : 0,

LOOKAHEAD : 0, {no form background loading}

DELETEFLAG : 0,

SHOWCONTROL : 0,

SKIP_35 : 0,

PRINTFILENUM : 0,

FILERRNUM : 0,

ERRFILENUM : 0,

FORMSTORESIZE : 4, {local form storage}

SKIP_40 : 0,

SKIP_41 : 0,

SKIP_42 : 0,

NUMRECS : 0,

RECNUM : 0,

SKIP_47 : 0,

SKIP_48 : 0,

TERM_FILEN : 0,

SKIP_50 : 0,

SKIF_51 : 0,

SKIP_52 : 0,

SKIP_53 : 0,

SKIP_54 : 0,

RETRIES : 0,

TERM_OPTIONS : 0,

ENVIR0N : 0,

USERTIME : 0,

IDENTIFIER : 0,

LABELINFO : LABELINFO_INIT ];

VAR

COMAREA : COMAREA_REC;

DATABUF : PAC_200;

DATABUFLEN : SMALL_INT;

DONE_WITH_TRANSACTIONS : BOOLEAN;

ERROR_LOCATION : PAC_70;

FIELDINFO : FIELDINFO_REC;

FIELDSPECS : ARRAY [1..3] OF FIELDSPECS_REC;

FILENAME : PAC_FILENAME;

FOUND_DATA_ERRORS : BOOLEAN;