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

456 AppendixA
SAMPLE PROGRAMS
FORTRAN 77
!
! Do we have a transaction that can be filed?
!
IF (STOP_NOW.EQ.0
+ .AND.DONE_WITH_TXNS.EQ.0) THEN
!
IF (FOUND_DATA_ERRS.EQ.0
+ .AND.LASTKEY.EQ.0) THEN
!
! Get transaction from form and file it.
!
DATABUF = " "
!
DATABUFLEN = 200
!
CALLVGETBUFFER (COMAREA,
+ DATABUF,
+ DATABUFLEN)
!
IF (CSTATUS.NE.0) THEN
STOP NOW = 1
ERROR_LOCATION =
+ "**** Routine: Read Edit and File - Data Get"
CALL GET_ERROR_MESSAGE
!
ELSE
!
! Write Databuf to Transaction File.
!
WRITE (UNIT = 10,
+ ERR = 310) DATABUF
!
GOTO 320
!
310 STOP_NOW = 1
ERROR_LOCATION =
+ "**** Routine: Read Edit and File - File Write"
MSGBUF =
+ "**** Write to Transaction File failed!"
!
320 IF (STOP_NOW.EQ.0) THEN
NBR_TXN_COLLECTED = NBR_TXN_COLLECTED + 1
END IF
END IF
END IF
END IF
!
! Do we need to prompt the operator to correct errors?
!
IF (STOP_NOW.EQ.O
+ .AND.DONE_WITH_TXNS.EQ.0) THEN
!
IF (FOUND DATA ERRS.EQ.1
+ .AND.LASTKEY.EQ._O) THEN
!
CALL PROMPT _OPERATOR
!
END IF