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

Appendix A 461
SAMPLE PROGRAMS
FORTRAN 77
$TITLE ’ Get Error Message’
!***************************************************************!
! !
! Get Error Message !
! !
!***************************************************************!
!
SUBROUTINE GET-ERROR-MESSAGE
!
IMPLICIT NONE
!
COMMON /COMO1/ COMAREA
COMMON /COM81/ MSGBUF
COMMON /COM82/ MSGBUFLEN
COMMON /COM83/ ERRMSGLEN
!
SYSTEM INTRINSIC VERRMSG
!
INTEGER*2 COMAREA(60)
CHARACTER*150 MSGBUF
INTEGER*2 MSGBUFLEN
INTEGER*2 ERRMSGLEN
!
MSGBUF = " "
MSGBUFLEN = 150
!
CALL VERRMSG (COMAREA,
+ MSGBUF,
+ MSGBUFLEN,
+ ERRMSGLEN)
!
END