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

Appendix A 455
SAMPLE PROGRAMS
FORTRAN 77
IF (STOP NOW.EQ.0) THEN
IF (LASTKEY.EQ.8) THEN
DONE_WITH_TXNS = 1
END IF
END IF
!
! Edit data read from terminal.
!
IF (STOP_NOW.EQ.0
+ .AND.DONE_WITH_TXNS.EQ.0) THEN
!
CALL VFIELDED (COMAREA)
!
IF (CSTATUS.NE.0) THEN
STOP_NOW = 1
ERROR_LOCATION =
+ "**** Routine: Read Edit and File - Data Edit"
CALL GET_ERROR_MESSAGE
END IF
END IF
!
! Determine if edit errors detected.
!
IF (STOP_NOW.EQ.0
+ .AND.DONE_WITH_TXNS.EQ.0) THEN
!
IF (NUMERRS.LT.1) THEN
FOUND_DATA_ERRS = 0
END IF
END IF
!
! Finish form data.
!
IF (STOP_NOW.EQ.0
+ .AND.DONE_WITH_TXNS.EQ.0
+ .AND.FOUND_DATA_ERRS.EQ.0) THEN
!
CALL VFINISHFORM (COMAREA)
!
IF (CSTATUS.NE.0) THEN
STOP NOW = 1
ERROR_LOCATION =
+ "**** Routine: Read Edit and File - Data Finishing"
CALL GET_ERROR_MESSAGE
END IF
END IF
!
! Determine if data finishing errors detected.
!
IF (STOP_NOW.EQ.0
+ .AND.DONE_WITH_TXNS.EQ.0
+ .AND.FOUND_DATA_ERRS.EQ.0) THEN
!
IF (NUMERRS.GT.0) THEN
FOUND_DATA_ERRS = 1
END IF
END IF