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

454 AppendixA
SAMPLE PROGRAMS
FORTRAN 77
$TITLE ’ Read Edit and File’
!***************************************************************!
! !
! Read Edit and File !
! !
!***************************************************************!
!
SUBROUTINE READ_EDIT_AND_FILE
!
IMPLICIT NONE
!
COMMON /COMO1/ COMAREA
COMMON /COMll/ STOP_NOW
COMMON /COM12/ DONE_WITH_TXNS
COMMON /COM13/ NBR_TXN_COLLECTED
COMMON /COM81/ MSGBUF
COMMON /COM82/ MSGBUFLEN
COMMON /COM83/ ERRMSGLEN
COMMON /COM91/ ERROR_LOCATION
COMMON /COM101/ FOUND_DATA_ERRS
!
SYSTEM INTRINSIC VREADFIELDS,
+ VFIELDEDITS,
+ VFINISHFORM,
+ VGETBUFFER
!
INTEGER*2 COMAREA(60)
INTEGER*2 CSTATUS
INTEGER*2 LASTKEY
INTEGER*2 NUMERRS
EQUIVALENCE (COMAREA(1), CSTATUS),
+ (COMAREA(6), LASTKEY),
+ (COMAREA(7), NUMERRS)
INTEGER*2 STOP_NOW
INTEGER*2 DONE_WITH_TXNS
INTEGER*2 NBR_TXN_COLLECTED
CHARACTER*150 MSGBUF
INTEGER*2 MSGBUFLEN
INTEGER*2 ERRMSGLEN
CHARACTER*70 ERROR_ LOCATION
INTEGER*2 FOUND_ DATA_ERRS
CHARACTER*200 DATABUF
INTEGER*2 DATABUFLEN
!
! Read form.
!
CALL VREADFIELDS (COMAREA)
!
IF (CSTATUS.NE.0) THEN
STOP_NOW = 1
ERROR_LOCATION =
+ "**** Routine: Read Edit and File - Terminal Read"
CALL GET_ERROR_MESSAGE
END IF
!
! Determine if operator wants to stop transaction collection.
!