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

Appendix A 445
SAMPLE PROGRAMS
FORTRAN 77
INTEGER*2 MSGBUFLEN
INTEGER*2 ERRMSGLEN
CHARACTER*70 ERROR_LOCATION
!
STOP_ NOW = 0
DONE_ WITH_TXNS = 0
!
NBR_TXN_COLLECTED = 0
!
CALL SETUP_FOR_WORK
!
DO WHILE (STOP NOW.EQ.0
+ .AND.DONE_WITH_TXNS.EQ.0)
CALL COLLECT_TXNS
END DO
!
CALL CLEANUP_AFTER _ WORK
!
PRINT *,
+ "Deduction transactions collected this session =",
+ NBR_TXN_COLLECTED
!
IF (STOP NOW.EQ.1) THEN
CALL DISPLAY_SYSTEM_ERROR
END IF
!
STOP
END