HP3000-L Archives

May 1996, Week 2

HP3000-L@RAVEN.UTC.EDU
Options: Use Monospaced Font
Show Text Part by Default
Show All Mail Headers

Message: [<< First] [< Prev] [Next >] [Last >>]
Topic: [<< First] [< Prev] [Next >] [Last >>]
Author: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Subject:
Re: VPLUS BLINKING - HELP URGENT
From:
Thomas Harmon <[log in to unmask]>
Reply To:
Thomas Harmon <[log in to unmask]>
Date:
Fri, 10 May 1996 09:06:36 -0700
Content-Type:
text/plain
Parts/Attachments:
text/plain (32 lines) 
In formspec:
    Globals menu - Error Enhancement should be "B" for blink.
         (I also question if your users will like blink).
 
In the COBOL program:
 
01  WS-V-COMAREA.
    .
    .whatever you currently have...
    .
01  WS-V-VSETERROR-FIELD               PIC S9(4)    COMP.
01  WS-V-VSETERROR-MSG                 PIC X(79).
01  WS-V-VSETERROR-MSG-LNGTH           PIC S9(4)    COMP VALUE 79.
 
IF some error condition in the field's value
    MOVE field's number TO WS-V-VSETERROR-FIELD
    MOVE "This field is in error" TO WS-V-VSETERROR-MSG
    CALL "VSETERROR" USING WS-V-COMAREA,
                           WS-V-VSETERROR-FIELD,
                           WS-V-VSETERROR-MSG,
                           WS-V-VSETERROR-MSG-LNGTH
ENDIF
loop back to your VSHOWFORM
 
hth
--
Thomas A Harmon                  (715) 833-5513
Systems Analyst                  mailto:[log in to unmask]
Eau Claire Area School District
500 Main Street
Eau Claire, WI  54701

ATOM RSS1 RSS2