Re: GO to a menu within CL program

[Jeff Crosby <jlcrosby@xxxxxxx>]

Balajee sethu Raman K wrote:
> 
> Hi Jeff ,
> 
>      I tried doing this Exercise .
> 
>      I am just giving the code segment of what I tried
> 
>      Program Name : CLP001
> 
>                             PGM
>              ---------
>              ---------
> 
>              TFRCTL     PGM(RPG001)
> 
>              ---------
>              ---------
> 
>              ENDPGM
> 
> Program Name : RPG001
> C***
> --------
> --------
> 
> C                     FREE 'CLP001#'
> C*** Any CL Command
> C                     MOVE 'GO MAJOR'FLDA
> C                     CALL 'QCMDEXC'
> C                     PARM           FLDA    8
> C*** Length of the Total no of strings in the command
> C                     PARM 8         FLDB   155
> --------
> --------
> C                     SETON                     LR
> 
> Please let me know if my idea's are correct.

No good.  RPG001, QCMDEXC, and the menudriver program QUICMNU will _all_
be in the call stack.

-- 
-Jeff

jlcrosby@fwi.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
+---