RE: Display commands in a CL program

Rob,

You could create a display file containing the desired information. Then
just declare it in your CL program with DCLF and send it to the screen with
a SNDF. You would want to compile the display with DFRWRT(*NO) (defer write)
so that the SNDF would show immediately.

You could use individual record formats in the display file to show
different information as your CL program progressed. Or you could include an
output field in the display file that the CL program could set prior to
doing the SNDF.

I ran a little test with the DSPF and CL source shown below. The DLYJOB
statements are in there so I could be sure and see the messages.


Display file TESTMSGD:
A          R TESTMSGD
A                                  9 22'Currently running'
A                                      COLOR(WHT)
A            DSPMSG        20A  B  9 40CHGINPDFT
A                                      COLOR(WHT)
A            CURSOR         1A  B 24  1DSPATR(PC)
A                                      DSPATR(ND)
A                                      DSPATR(PR)


CL program TESTMSG:
PGM
DCLF       FILE(TESTMSGD)

CHGVAR     VAR(&DSPMSG) VALUE('Processing step 1')
SNDF
/* Step 1 goes here */
DLYJOB     DLY(5)

CHGVAR     VAR(&DSPMSG) VALUE('Processing step 2')
SNDF
/* Step 2 goes here */
DLYJOB     DLY(5)

ENDPGM


Hope this helps!

Richard


-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx]On Behalf Of rob@xxxxxxxxx
Sent: Saturday, February 11, 2006 8:53 AM
To: Midrange Systems Technical Discussion
Subject: Display commands in a CL program


I have a CL program that mimics GO SAVE - 21.  I'd like to prompt up on
the display the command in use but I don't want to wait for user input.
How do I do that?

Rob Berendt