Re: CL prompt for variable

[Pete Hall <pbhall@xxxxxxxxxx>]

At 15:44 12/30/2000, AlMac wrote:

>Is there an IBM prompt to get at generic input to CL?

Why not just create your own command interface to the CL program? It's fast 
and easy. Here's a VERY simple example:

   /* AR5311 : Execute AR5311 Cert/Re-Cert Reimbursement Services Follow up 
rpt  */

   /*          Command Processing Program: 
AR5311                                */
   /*          Command Validation Program: 
None                                  */
   /*          Choice Program(s): 
None                                           */

   /* Prompt the user to select output type of *RPT or *EMAIL. If the 
user       */
   /*  selects *RPT, pass a '0' to AR5311. If the user selects *EMAIL, 
pass      */
   /*  '1' to AR5311. This entry parameter is processed as a logical value 
by    */
   /*   AR5311. 
      */

              CMD        PROMPT('Reimbursement follow up 
report')

              PARM       KWD(OUTTYPE) TYPE(*CHAR) LEN(6) RSTD(*YES) 
+
                           DFT(*RPT) VALUES(*RPT *EMAIL) 
+
                           SPCVAL((*RPT '0') (*EMAIL '1')) 
+
                           CHOICE('*RPT, *EMAIL') PROMPT('Output 
+
                           Type  . . . . . . . . .')

The source member attribute needs to be CMD to get SEU prompting to work. 
You can compile commands with PDM option 14.
Pete Hall
pbhall@execpc.com
http://www.execpc.com/~pbhall/

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