/*-------------------------------------------------------------------*/         
/*    Vengoal Chang Development Resource         Copyright  1998     */         
/*                                                                   */         
/*                             \\\\\\\                               */         
/*                            ( o   o )                              */         
/*------------------------oOO----(_)----OOo--------------------------*/         
/*                                                                   */         
/*  System name  . . . :   Technical Support                         */         
/*  Command name . . . :   FSTMNUCMD                                 */         
/*  Text . . . . . . . :   Fast menu command for menu option don't   */         
/*                         need compiled the source.                 */         
/*  Author . . . . . . :   Vengoal Chang                             */         
/*  Description. . . . :   Fast menu command for added menu option   */         
/*                         don't need compiled source.               */         
/*                                                                   */         
/*                     ooooO              Ooooo                      */         
/*                     (    )             (    )                     */         
/*----------------------(   )-------------(   )----------------------*/         
/*                       (_)               (_)                       */         
/*  ===============================================================  */         
/*  =  Command....... FSTMNUCMD                                   =  */         
/*  =                                                             =  */         
/*  =                 Command processing program is FstMnuCmdC    =  */         
/*  =                                                             =  */         
/*  =  CrtCmd     Cmd( YourLib/FstMnuCmd )           +            =  */         
/*  =             Pgm( YourLib/FstMnuCmdC) Allow(*Interact *IPGM) =  */         
/*  ===============================================================  */         
/*                                                                   */         
/*-------------------------------------------------------------------*/         
                                                                                
             CMD        PROMPT('Fast Menu Command')                             
                                                                                
             PARM       KWD(HEADG) TYPE(*CHAR) LEN(50) MIN(1) +                 
                          EXPR(*YES) PROMPT('Menu Heading ''Text''')            
             PARM       KWD(OPTDES) TYPE(*CHAR) LEN(30) MIN(1) +                
                          MAX(20) EXPR(*YES) PROMPT('Option +                   
                          Description ''Text''')                                
             PARM       KWD(CMDSTR) TYPE(*CHAR) LEN(30) MIN(1) +                
                          MAX(20) EXPR(*YES) PROMPT('Command to run')           
