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

450 AppendixA
SAMPLE PROGRAMS
FORTRAN 77
$TITLE ’ Collect Transactions’
!***************************************************************!
! !
! Collect Transactions !
! !
!***************************************************************!
!
SUBROUTINE COLLECT_TXNS
!
IMPLICIT NONE
!
COMMON /COMO1/ COMAREA
COMMON /COMll/ STOP_NOW
COMMON /COM12/ DONE_WITH_TXNS
COMMON /COMI3/ NBR_TXN_COLLECTED
COMMON /COM21/ FIELDINFO
COMMON /COM81/ MSGBUF
COMMON /COM82/ MSGBUFLEN
COMMON /COM83/ ERRMSGLEN
COMMON /COM91/ ERROR_LOCATION
COMMON /COM101/ FOUND_DATA_ERRS
!
SYSTEM INTRINSIC VCHANGEFIELD,
+ VPUTWINDOW,
+ VINITFORM,
+ VSHOWFORM
!
INTEGER*2 COMAREA(60)
INTEGER*2 CSTATUS
INTEGER*2 REPEATAPP
INTEGER*2 FREEZEAPP
CHARACTER*16 NFNAME
EQUIVALENCE (COMAREA(1), CSTATUS),
+ (COMAREA(27), REPEATAPP),
+ (COMAREA(28), FREEZEAPP),
+ (COMAREA(19), NFNAME)
INTEGER*2 STOP_NOW
INTEGER*2 DONE_WITH_TXNS
INTEGER*2 NBR_TXN_COLLECTED
INTEGER*2 FIELDINFO(37)
INTEGER*2 NUM_ENTRIES
INTEGER*2 ENTRY_LEN
CHARACTER*16 FORM_NAME
EQUIVALENCE (FIELDINFO(1), NUM_ENTRIES),
+ (FIELDINFO(2), ENTRY_LEN),
+ (FIELDINFO(3), FORM_NAME)
INTEGER*2 FIELD NAME (9,3)
INTEGER*2 SCREEN ORDER (9,3)
EQUIVALENCE (FIELDINFO(11), FIELD_NAME),
+ (FIELDINFO(11), SCREEN_ORDER)
CHARACTER*150 MSGBUF
INTEGER*2 MSGBUFLEN
INTEGER*2 ERRMSGLEN
CHARACTER*70 ERROR_LOCATION
INTEGER*2 FIELDSPECS(12)
INTEGER*2 FIELD_ID(4,3)