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

C- 20
$TITLE ' Prompt Operator'
!***************************************************************!
! !
! Prompt Operator !
! !
!***************************************************************!
!
SUBROUTINE PROMPT_OPERATOR
!
IMPLICIT NONE
!
COMMON /COM01/ GLOBALPAK
COMMON /COM02/ RETURNPAK
COMMON /COM07/ MSGFORWINDOW
COMMON /COM10/ UNUSED_PARM
COMMON /COM102/ STOP_NOW
COMMON /COM101/ ERROR_LOCATION
!
SYSTEM INTRINSIC HPDPROMPT
!
INTEGER*4 GLOBALPAK(79)
!
INTEGER*4 RETURNPAK(79)
INTEGER*4 RETURNSTATUS
INTEGER*4 RETURNMSGLEN
EQUIVALENCE (RETURNPAK(1), RETURNSTATUS),
+ (RETURNPAK(3), RETURNMSGLEN)
!
INTEGER*4 MSGFORWINDOW(21)
!
INTEGER*4 UNUSED_PARM
!
INTEGER*2 STOP_NOW
CHARACTER*70 ERROR_LOCATION
!
INTEGER*4 PROMPTPAK(4)
!
! Get error message.
!
CALL UNBLOCK_MSG
!
!
! No special Prompt instructions.
!
PROMPTPAK(1) = 0
PROMPTPAK(2) = 0
PROMPTPAK(3) = 0
PROMPTPAK(4) = 0
!
! Display form with highlighted fields and error message
in window.
!
CALL HPDPROMPT (GLOBALPAK,
+ RETURNPAK,
+ PROMPTPAK,
+ UNUSED_PARM,
+ MSGFORWINDOW,
+ UNUSED_PARM,
+ UNUSED_PARM,
+ UNUSED_PARM)
!
IF (RETURNSTATUS.NE.0) THEN
STOP_NOW = 1
ERROR_LOCATION =
+ "**** Routine: Prompt Operator - Display Updates"
CALL UNBLOCK_MSG
END IF
!