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

446 AppendixA
SAMPLE PROGRAMS
FORTRAN 77
$TITLE ’ Setup For Work’
!***************************************************************!
! !
! Setup For Work !
! !
!***************************************************************!
!
SUBROUTINE SETUP-FOR -WORK
!
IMPLICIT NONE
!
COMMON /COMO1/ COMAREA
COMMON /COMll/ STOP_NOW
COMMON /COM21/ FIELDINFO
COMMON /COM22/ INFOBUFLEN
COMMON /COM81/ MSGBUF
COMMON /COM82/ MSGBUFLEN
COMMON /COM83/ ERRMSGLEN
COMMON /COM91/ ERROR_LOCATION
!
SYSTEM INTRINSIC VOPENFORMF,
+ VOPENTERM,
+ VGETFIELDINFO
!
INTEGER*2 COMAREA(60)
INTEGER*2 CSTATUS
INTEGER*2 LANGUAGE
INTEGER*2 COMAREALEN
INTEGER*2 LABELOPTIONS
INTEGER*2 LOOKAHEAD
INTEGER*2 FORMSTORESIZE
EQUIVALENCE (COMAREA(1), CSTATUS),
+ (COMAREA(2), LANGUAGE),
+ (COMAREA(3), COMAREALEN),
+ (COMAREA(10), LABELOPTIONS),
+ (COMAREA(32), LOOKAHEAD),
+ (COMAREA(39), FORMSTORESIZE)
INTEGER*2 STOP_NOW
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)
CHARACTER*18 FIELD_NAME (1,3)
EQUIVALENCE (FIELDYNFO(11), FIELD_NAME)
INTEGER*2 INFOBUFLEN
CHARACTER*150 MSGBUF
INTEGER*2 MSGBUFLEN
INTEGER*2 ERRMSGLEN
CHARACTER*70 ERROR_LOCATION
INTEGER*2 ARRAY_INDEX
CHARACTER*86 FILENAME