If I remember correctly, the fields are highlighted in field number
sequence.  We had to write some code to handle this problem:

*
 01 W990-MSG-TABLE.
     05 W990-LOW-FIELD             PIC S9(04) COMP.
     05 W990-SUB                   PIC 9(02)  COMP VALUE ZEROS.
     05 W990-MSG-BUF               PIC X(80).
     05 W990-FIELD OCCURS 20 TIMES PIC S9(04) COMP.


*
 V010-NO-KEY.
     MOVE 2                        TO COM-FIELD-NUM.
     MOVE "*** Undefined Function Key Entered." TO COM-MSG-BUF.
     PERFORM V910-LOAD-MSG.
*
 V910-LOAD-MSG.
     IF W990-SUB > 19
         NEXT SENTENCE
     ELSE
         ADD 1 TO W990-SUB
         MOVE COM-FIELD-NUM        TO W990-FIELD(W990-SUB).

     IF W990-SUB = 1
         MOVE 256                  TO W990-LOW-FIELD.

     IF COM-FIELD-NUM < W990-LOW-FIELD
         MOVE COM-FIELD-NUM        TO W990-LOW-FIELD
         MOVE COM-MSG-BUF          TO W990-MSG-BUF.

     MOVE SPACES                   TO COM-MSG-BUF.
*
 V920-WRITE-MSG.
     IF X-SUB = 1
         MOVE W990-MSG-BUF         TO COM-MSG-BUF
         MOVE W990-LOW-FIELD       TO COM-FIELD-NUM
         CALL "VWRITEMES" USING VIEW-BUF, ERROR-BUF
         MOVE " "                  TO W990-MSG-BUF
                                      COM-MSG-BUF.

     IF W990-FIELD(X-SUB) <> W990-LOW-FIELD
         MOVE W990-FIELD(X-SUB)    TO COM-FIELD-NUM
         CALL "VWRITEMES" USING VIEW-BUF, ERROR-BUF.

Dave Vorgang
Senior (and getting older everyday) Programmer / Analyst
Medford School District - Information Technology
(541) 842-1021
mailto:[log in to unmask]
-----Original Message-----
From: HP-3000 Systems Discussion [mailto:[log in to unmask]] On
Behalf Of Brian Donaldson
Sent: Tuesday, November 21, 2006 9:53 AM
To: [log in to unmask]
Subject: [HP3000-L] Formspec/Vplus Problem (Revisited)

Sometime ago I posted this problem on the list but didn't get any
response  
about it.
 
So here I go again. 
 
I run a Vplus app and when a field is in error the wrong field is being

highlighted.
 
When I check the source code against the formsfile in Formspec I find
the  
field numbers
being referenced are correct.
 
So I go into Formspec, open the formsfile, copy the offending form into
a  
hold form,
renumber the hold form, purge the original form, copy the hold form back
to  
the original form,
and recompile.
 
Then I run the app again and the correct field(s) are being highlighted 
 
Anyone have any idea about what is wrong ?
 
Brian.

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *