HP Data Entry and Forms Management System (VPLUS) Reference Manual (32209-90024)

458 AppendixA
SAMPLE PROGRAMS
FORTRAN 77
$TITLE ’ Prompt Operator’
!***************************************************************!
! !
! Prompt Operator !
! !
!***************************************************************!
!
SUBROUTINE PROMPT_OPERATOR
!
IMPLICIT NONE
!
COMMON /COMO1/ COMAREA
COMMON /COM11/ STOP NOW
COMMON /COM81/ MSGBUF
COMMON /COM82/ MSGBUFLEN
COMMON /COM83/ ERRMSGLEN
COMMON /COM91/ ERROR_LOCATION
!
SYSTEM INTRINSIC VPUTWINDOW,
+ VSHOWFORM
!
INTEGER*2 COMAREA(60)
INTEGER*2 CSTATUS
EQUIVALENCE (COMAREA(1), CSTATUS)
INTEGER*2 STOP_NOW
CHARACTER*150 MSGBUF
INTEGER*2 MSGBUFLEN
INTEGER*2 ERRMSGLEN
CHARACTER*70 ERROR_LOCATION
!
! Get message text associated with first field flagged
! with a data error.
!
CALL GET_ERROR_MESSAGE
CALL VPUTWTNDOW (COMAREA,
+ MSGBUF,
+ ERRMSGLEN)
!
IF (CSTATUS.NE.0) THEN
STOP NOW = 1
ERROR_LOCATION =
+ "**** Routine: Prompt Operator - Window Load"
CALL GET_ERROR_MESSAGE
END IF
!
! Display highlighted form and updated window message.
!
IF (STOP_NOW.EQ.0) THEN
CALL VSHOWFORM (COMAREA)
!
IF (CSTATUS.NE.0) THEN
STOP_NOW = 1
ERROR_LOCATION =
+ "**** Routine: Prompt Operator - Display Updates"
CALL GET_ERROR_MESSAGE