Re: is this clp code right?

[boothm@xxxxxxx]

Here is a sample CLP program that puts up a menu to choose from, including
WRKSPLF.  You'll need to take out the pushbutton stuff, but take a look at
it if you are still stuck.  It has both the CL and the DDS screen specs.

    http://www.spy.net/~booth/pushbtn.htm

It is a window, but you can leave tha part out easy enough.


In <19980720113836.5106.rocketmail@send1e.yahoomail.com>, on 07/20/98 
   at 04:38 AM, mohammad khan <mohammadakhan@yahoo.com> said:

>in my last cl email i said 1 of the things i needed to know was how to
>get a clp program to display a message on the screen once a menu option
>has been chosen.

>i tried to write this code, a sample is below. please tell me if i did it
>right or wrong.

>PGM

>DCL VAR(&M1) TYPE (*CHAR) LEN (31)
>END PGMMSG MSG('CIF DATA ENTRY PROGRAM RUNNING')

>DCL VAR(&M2) TYPE (*CHAR) LEN (29)
>END PGMMSG MSG('ORDER ENTRY PROGRAM RUNNING')

>DCL VAR(&M3) TYPE (*CHAR) LEN (38)
>END PGMMSG MSG('INVENTORY ENTRY PROGRAM RUNNING')


>is this right? the only example i have to go by is one very similar to
>this in my notes.

>thanks again!

>M.K.




>_________________________________________________________
>DO YOU YAHOO!?
>Get your free @yahoo.com address at http://mail.yahoo.com

>+---
>| 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
>+---


-- 
-----------------------------------------------------------
boothm@ibm.net
Booth Martin
-----------------------------------------------------------

+---
| 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
+---