Re: Sending / Displaying CL Variables

[Dennis Lovelady <dennis@xxxxxxxxxxxx>]

Hi, Howard:

On Mon, 24 May 1999, Howard Weatherly wrote:

> Recently we decided to automate our reorganization of PF members and I
> came up with the following CL to accomplish the task, my question is
> what command or how could I send a message at the RGZPFM command to say
> "Reorganizing file LIB/FILE"? I can not figure out which command to use
> where I could either assign a variable to the values &ODLBNM and &ODOBNM
> and display the variable or for that matter include the variables any
> which way?

Apparently, SNDMSGSBM is a user-written command (at least it is one that I
have not seen), so the MSG parameter may not accept expressions.   If it
does, you can use solution 1.  Otherwise, you can use solution 2, to get
what you need.

1)

<snip>
>  LOOP:
>               RCVF       RCDFMT(RGZTAB)
>               MONMSG     MSGID(CPF0864) EXEC(GOTO CMDLBL(GOBACK))
                SNDMSGSBM  MSG('Reorganizing file' |> &ODLBNM |< '/' +
                               || &ODOBNM)
>               RGZPFM     FILE(&ODLBNM/&ODOBNM)
>               GOTO       CMDLBL(LOOP)

2)

>               PGM
                DCL        &MSG *CHAR 250
<snip>
> LOOP:
>               RCVF       RCDFMT(RGZTAB)
>               MONMSG  ...
                CHGVAR     &MSG ('Reorganizing file' |> &ODLBNM |< '/' +
                                 || &ODLBNM)
                SNDMSGSBM  MSG(&MSG)
>               RGZPFM     &ODLBNM/&ODOBNM
>               GOTO       LOOP

HTH
--  
Dennis Lovelady                    Simpsonville, SC
mail: dennis@lovelady.com          dennis.e.lovelady@ac.com
URL:  http://lovelady.piedmont.net
ICQ:  5734860
--
"Income tax returns are the most imaginative fiction being written today."
        - Herman Wouk

+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---