Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

SCREEN MESSAGING WITH A CLP PROGRAM

987 views
Skip to first unread message

Garth Webster

unread,
Jun 18, 1997, 3:00:00 AM6/18/97
to

I have a DSPF & a CLP program. I want to display an error message on
the bottom of the screen, and I want to use the F1 key to cursor down to
display the secondary level messaging text.
If I use the ERRMSGID in the DSPF, then I need to press reset and then
use the HELP key on the field to get the secondary level message. I
can't cursor down to the error message & press F1 like I want to.
If I declare an external message subfile in the DSPF, and SNDF & SNDRCVF
to the appropriate record formats, and DSPPGMMSG *SAME *INFO, then the
error messages do not disply except in the job log.

Will the following work?
"SNDPGMMSG *EXT *STATUS"

Any other ideas?

...F. Webster

Mark Phippard

unread,
Jun 19, 1997, 3:00:00 AM6/19/97
to

1) You must write the message subfile control format first, followed by
the record format for the rest of the panel. This second format must
specify the OVERLAY keyword, or you will not be able to see the message
format.

2) You can put messages in the message subfile by using SNDPGMMSG. You
must send the program message to the appropriate program message queue.
Probably: TOPGMQ(*SAME *).

3) Within the CL program, before writing any formats, you need to
left-justify the PGMQ variable of the message subfile with an '*'. ChgVar
Var( &Pgmq) Value( '*' )

4) You can always do a SNDPGMMSG *EXT *STATUS. This doesn't require a
message subfile. However, you have very little control over how long these
messages will stay on the panel. These messages are better used to provide
feedback during a long running operation while the panel is Input
Inhibited. I sometime use this to provide a Windows like progress bar as
to the percent completion of a job.

Garth Webster <garth....@sympatico.ca> wrote in article
<33A8A9...@sympatico.ca>...

Orangtang

unread,
Jun 20, 1997, 3:00:00 AM6/20/97
to

I use the SNDPGMMSG command *STATUS or *DIAG..(forget which one) works
great..Ron

David Thomas

unread,
Jun 21, 1997, 3:00:00 AM6/21/97
to

Garth Webster wrote (in part):

> I have a DSPF & a CLP program. I want to display an error message on
> the bottom of the screen, and I want to use the F1 key to cursor down to
> display the secondary level messaging text.

Garth:
Don't know if this will help, but have you tried the ERRSFL keyword at
the file level? It automatically creates a message subfile without
requiring any other subfile coding. The big advantages are: you get a
scrollable subfile to allow the user to roll through all
ERRMSGs/ERRMSGIDs for a display record, and the keyboard doesn't lock,
so second level help is available.

Good luck!

Dave Thomas
dg.t...@sympatico.ca


0 new messages