I also found this piece of code which I think is better:

01 INFO-LEN                       PIC S9(04) COMP VALUE 22.
 01 INFO-BUF.
     05 IB-ENTRIES                 PIC S9(04) COMP.
     05 IB-LENGTH                  PIC S9(04) COMP.
     05 IB-FORM-NAME               PIC X(16).
     05 IB-FIELD-NAME              PIC X(16).
     05 IB-SCREEN-ORDER            PIC S9(04) COMP.
     05 IB-FIELD-NUM               PIC S9(04) COMP.
     05 IB-FIELD-LEN               PIC S9(04) COMP.
     05 IB-FIELD-POS               PIC S9(04) COMP.
*
 01 W990-MSG-TABLE.
     05 W990-LOW-FIELD             PIC S9(04) COMP.
     05 W990-FIELD-NUM             PIC S9(04) COMP.
     05 W990-SUB                   PIC 9(02)  COMP VALUE ZEROS.
     05 W990-MSG-BUF               PIC X(80).
     05 W990-FIELD                 OCCURS 40 TIMES
                                   PIC S9(04) COMP.


V910-LOAD-MSG.
     IF W990-SUB > 39
         NEXT SENTENCE
     ELSE
         ADD 1 TO W990-SUB
         MOVE COM-FIELD-NUM        TO W990-FIELD(W990-SUB).

     MOVE " "                      TO INFO-BUF.
     MOVE 12                       TO IB-LENGTH.
     MOVE 1                        TO IB-ENTRIES.
     MOVE COM-CFNAME               TO IB-FORM-NAME.
     MOVE COM-FIELD-NUM            TO IB-FIELD-NUM.
     CALL "VGETFIELDINFO" USING VIEW-BUF, INFO-BUF, INFO-LEN.
     IF COM-STATUS <> 0
         MOVE "*** VGETFIELDINFO ERROR ***"
                                   TO DB-ERR-MSG(1)
         STRING "FIELD " IB-FIELD-NUM " ERROR " COM-STATUS
           DELIMITED BY SIZE INTO DB-ERR-MSG(2)
         MOVE DB-CUR-SCREEN        TO DB-FROM-SCREEN
         MOVE "99"                 TO DB-TO-SCREEN
         GOBACK.

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

     IF IB-SCREEN-ORDER < W990-LOW-FIELD
         MOVE IB-SCREEN-ORDER      TO W990-LOW-FIELD
         MOVE COM-FIELD-NUM        TO W990-FIELD-NUM
         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-FIELD-NUM       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-FIELD-NUM
         MOVE W990-FIELD(X-SUB)    TO COM-FIELD-NUM
         CALL "VWRITEMES" USING VIEW-BUF, ERROR-BUF.


It's called like this:
*
 V010-NO-KEY.
     MOVE 2                        TO COM-FIELD-NUM.
     MOVE "*** Undefined Function Key Entered."
                                   TO COM-MSG-BUF.
     PERFORM V910-LOAD-MSG.

Dave Vorgang
Senior (and getting older everyday) Programmer / Analyst
Medford School District - Information Technology
(541) 842-1021
mailto:[log in to unmask]
________________________________________
From: Lavonne Osmanski 
Sent: Tuesday, November 21, 2006 10:42 AM
To: Dave Vorgang
Subject: Elementary Teachers Desktop - Problems

I do not have an Info or Tools tab in my upper left hand screen.  Help!
I can't do conferences.  lo

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