High-Level Screen Management Intrinsic Library Reference Manual (32424-90002)

C- 30
ARRAY_INDEX := 1;
WHILE ARRAY_INDEX <= 75 DO
BEGIN
GLOBALPAK.COMAREA [ARRAY_INDEX] := 0;
ARRAY_INDEX := ARRAY_INDEX + 1;
END;
{ Set Expected HP32424A Version. }
GLOBALPAK.EXPECTEDVUF := 'A.00.00';
{ Set Language for Pascal. }
GLOBALPAK.CALLPROTOCOL := 500;
{ Set Comarealen for 300 bytes. }
GLOBALPAK.COMAREALEN := 300;
{ Open the Transaction File. }
APPEND (PAYTXN_FILE,
'PAYTXN');
{ Open the Forms File. }
FORMSFILE.FFNAME := 'PAYROLL.WORK.ADMIN';
HPDOPENFORMS (GLOBALPAK,
RETURNPAK,
FORMSFILE);
IF RETURNPAK.RETURNSTATUS
0 THEN
BEGIN
STOP_NOW := TRUE;
ERROR_LOCATION :=
'**** Routine: Setup For Work - Forms File Open';
UNBLOCK_MESSAGE;
END;
IF NOT STOP_NOW THEN
BEGIN
TERMPAK.TERMNAME := 'HPTERM';
TERMPAK.BYPASSFEATURE := 0;
HPDENABLETERM (GLOBALPAK,
RETURNPAK,
TERMPAK,
UNUSED_PARM);
IF RETURNPAK.RETURNSTATUS
0 THEN
BEGIN
STOP_NOW := TRUE;
ERROR_LOCATION :=
'**** Routine: Setup For Work - Terminal Setup';
UNBLOCK_MESSAGE;
END;
END;
END; { PROCEDURE SETUP_FOR_WORK }