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

C-: 25
PROCEDURE HPDDISABLETERM ; INTRINSIC;
$TITLE ' Display System Error'$
{
*****************************************************************
* *
* Display System Error *
* *
*****************************************************************
}
PROCEDURE DISPLAY_SYSTEM_ERROR;
BEGIN
WRITELN ('Transaction entry facility detected system error at:');
WRITELN (ERROR_LOCATION);
WRITELN ('**** The error message returned is:');
WRITELN (MSGFORWINDOW.MSGAREA:MSGFORWINDOW.MSGLEN);
END; { PROCEDURE DISPLAY_SYSTEM_ERROR }
$TITLE ' Unblock Message'$
{
*****************************************************************
* *
* Unblock Message *
* *
*****************************************************************
}
PROCEDURE UNBLOCK_MESSAGE;
BEGIN
ARRAY_INDEX := 1;
WHILE ARRAY_INDEX <= RETURNPAK.RETURNMSGLEN DO
BEGIN
MSGFORWINDOW.MSGAREA [ARRAY_INDEX]
:= RETURNPAK.RETURNMSG [ARRAY_INDEX];
ARRAY_INDEX := ARRAY_INDEX + 1;
END;
MSGFORWINDOW.MSGLEN := RETURNPAK.RETURNMSGLEN;
END; { PROCEDURE UNBLOCK_MESSAGE }
$TITLE ' Cleanup After Work'$
{
*****************************************************************
* *
* Cleanup After Work *
* *
*****************************************************************
}
PROCEDURE CLEANUP_AFTER_WORK;
BEGIN
{ Note that this routine unconditionally attempts to close
the Forms File and Terminal. }
CLOSE (PAYTXN_FILE,
'SAVE');
HPDCLOSEFORMS (GLOBALPAK,
RETURNPAK,