I'd think that two CL programs would be easiest.  

The second program would be the one that shows the menu, and it would in
fact have three PARMs: PARM1= option chosen(1-4) PARM2=Library name,
PARM3=Quit/cancel from F3.   

Then the main CL would retrieve the information, fill the PARMs correctly,
call the 2nd CL. and then run the job based upon the information in the
PARMs returned from the 2nd CL. Much easier to write and to debug, and
offers more flexibility.

In <19980719233229.5780.rocketmail@send1e.yahoomail.com>, on 07/19/98 
   at 04:32 PM, mohammad khan <mohammadakhan@yahoo.com> said:

>The person has no idea how to approach the problem in the manner of the
>data area section to be specific.

>A                               DSPSIZ(24, 80 *D3)
>A                               CF03(03 'EXIT'
>A                           5 33'ASSIGNMENT MENU'
>A                           8 32'1. RUN PGM 1 - ONLINE'
>1                          10 32'2. RUNG PGM 1 - BATCH'
>A                          12 32'3. RUN PGM 2 - ONLINE'
>1                          14 32'4. RUN PGM 1 - BATCH'
>A      OPTION      1   B   15 46   
>A                          15 33'ENTER OPTION'
>A      LIBRARY    10   B   16 46
>A                          16 33'ENTER LIBRARY'
>A                          20 37'F3=EXIT'

>-Write a CL program that will use the display file above as a menu but
>instead of receiving the name of the library from a program parameter,
>you will retrieve it from the job's local data area.

>-Before running the program change your local data area so that the first
>10 positions contain the name of the library accepted from the display
>file. Hint: CHGDTAARA *LDA

>-Using the RTVDTAARA command, retrieve the name of the library from the
>first 10 positions of the job's local data area. Hint: RTVDTAARA *LDA

>Thanks alot everyone!

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

This thread ...


Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2019 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].