High-Level Screen Management Intrinsic Library Reference Manual (32424-90002)
C-: 11
B-200-PROMPT-OPERATOR.
*****
***** Get message text associated with first field flagged
***** with a data error.
*****
MOVE RETURNMSGLEN OF RETURNPAK
TO MSGLEN OF MSGFORWINDOW.
MOVE RETURNMSG OF RETURNPAK
TO MSGBUF OF MSGFORWINDOW.
***** No special Prompt instructions.
MOVE ZERO TO REPAINTDATA OF PROMPTPAK.
MOVE SPACES TO WINDOWENH OF PROMPTPAK.
MOVE ZERO TO RESETHILITED OF PROMPTPAK.
***** Display form with highlighted fields and error message
***** in window.
CALL "HPDPROMPT" USING GLOBALPAK
RETURNPAK
PROMPTPAK
UNUSED-PARM
MSGFORWINDOW
UNUSED-PARM
UNUSED-PARM
UNUSED-PARM.
IF RETURNSTATUS OF RETURNPAK NOT = 0
MOVE "Y" TO STOP-NOW
MOVE "**** Routine: Prompt Operator - Display Updates"
TO ERROR-LOCATION
PERFORM Z-100-GET-ERROR-MESSAGE.
A-900-CLEANUP-AFTER-WORK.
*****
***** Note that this paragraph unconditionally attempts to
***** close the Forms File and Terminal.
*****
CLOSE TXN-ENTRY.
CALL "HPDCLOSEFORMS" USING GLOBALPAK
RETURNPAK
FORMSFILE.
CALL "HPDDISABLETERM" USING GLOBALPAK
RETURNPAK
TERMPAK
UNUSED-PARM.
Z-100-GET-ERROR-MESSAGE.
MOVE SPACES TO MSGAREA OF MSGBUF.
MOVE RETURNMSG OF RETURNPAK
TO MSGBUF.
Z-900-DISPLAY-SYSTEM-ERROR.
DISPLAY "**** Transaction entry facility detected system error at:".
DISPLAY ERROR-LOCATION.
DISPLAY "**** The error message returned is:".
DISPLAY "**** "
MSGAREA OF MSGBUF.