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

C- 26
FORMSFILE);
HPDDISABLETERM (GLOBALPAK,
RETURNPAK,
TERMPAK,
UNUSED_PARM);
END; { PROCEDURE CLEANUP_AFTER_WORK }
$TITLE ' Prompt Operator'$
{
*****************************************************************
* *
* Prompt Operator *
* *
*****************************************************************
}
PROCEDURE PROMPT_OPERATOR;
BEGIN
{ Get error message. }
UNBLOCK_MESSAGE;
{ No special Prompt instructions. }
PROMPTPAK.REPAINTDATA := 0;
PROMPTPAK.WINDOWENH := ;
PROMPTPAK.RESETHILITED := 0;
{ Display form with highlighted fields and error message
in window. }
HPDPROMPT (GLOBALPAK,
RETURNPAK,
PROMPTPAK,
UNUSED_PARM,
MSGFORWINDOW,
UNUSED_PARM,
UNUSED_PARM,
UNUSED_PARM);
IF RETURNPAK.RETURNSTATUS
0 THEN
BEGIN
STOP_NOW := TRUE;
ERROR_LOCATION :=
'**** Routine: Prompt Operator - Display Updates';
UNBLOCK_MESSAGE;
END;
END; { PROCEDURE PROMPT_OPERATOR }
$TITLE ' Read Edit and File'$
{
!***************************************************************!
! !
! Read Edit and File !
! !
!***************************************************************!
}
PROCEDURE READ_EDIT_AND_FILE;
BEGIN
{ Enable data finishing. }