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

452 AppendixA
SAMPLE PROGRAMS
FORTRAN 77
CALL GET_ERROR_MESSAGE
END IF
END IF
!
! Load window message.
!
IF (STOP_NOW.EQ.0) THEN
!
MSGBUFLEN = 79
!
MSGBUF =
+ "Fill in Deduction Transaction according to worksheet."
!
CALL VPUTWINDOW (COMAREA,
+ MSGBUF,
+ MSGBUFLEN)
!
IF (CSTATUS.NE.0) THEN
STOP_NOW = 1
ERROR_LOCATION =
+ "**** Routine: Collect Transactions - Window Load"
CALL GET_ERROR_MESSAGE
END IF
END IF
!
! Initialize form.
!
IF (STOP_NOW.EQ.0) THEN
!
CALL VINITFORM (COMAREA)
!
IF (CSTATUS.NE.0) THEN
STOP_NOW = 1
ERROR_LOCATION =
+ "**** Routine: Collect Transactions - Form Init"
CALL GET_ERROR_MESSAGE
END IF
END IF
!
! Show form.
!
IF (STOP_NOW.EQ.0) THEN
!
CALL SHOWFORM (COMAREA)
!
IF (CSTATUS.NE.0) THEN
STOP_NOW = 1
ERROR_LOCATION =
+ "**** Routine: Collect Transactions - Form display"
CALL GET_ERROR_MESSAGE
END IF
END IF
!
! Setup and loop on transaction until it can be filed.
!
FOUND_DATA_ERRS = 1
!