/************************************************************************/      
/* Sample Program                                                       */      
/* Command       : FSTMNUCMD                                            */      
/* Source Member : FSTMNUSAMP                                           */      
/* Source Type   : CLP                                                  */      
/* Create Command: CRTCLPGM PGM(FSTMNUSAMP)                             */      
/*                                                                      */      
/* Abstract      : This program calls the FSTMNUCMD interactively.      */      
/*                                                                      */      
/************************************************************************/      
             PGM                                                                
             FSTMNUCMD  HEADG('Vengoal Chang') OPTDES('Work with +              
                          System Status' 'Work with Active Job' +               
                          'Work with Spooled File' 'Work with +                 
                          Submitted Job' 'WRKCFGSTS *LIN' +                     
                          'WRKCFGSTS *CTL' 'WRKCFGSTS *DEV' 'Work +             
                          with Writer' 'Work with Outq' 'STRPDM' +              
                          'Command line' 'Change Job' 'Enable User' +           
                          'IP Network Status' 'Configure TCP/IP' +              
                          'Work with User Profile' 'Work with +                 
                          System Value' ' ' ' ' 'Sign Off') +                   
                          CMDSTR('WRKSYSSTS' 'WRKACTJOB' '?WRKSPLF' +           
                          'WRKSBMJOB' '?WRKCFGSTS *LIN' '?WRKCFGSTS +           
                          *CTL' '?WRKCFGSTS *DEV' '?WRKWTR' +                   
                          '?WRKOUTQ' 'STRPDM' 'CALL QCMD' '?CHGJOB +            
                          ??RUNPTY(10)' '?EBLUSR' 'NETSTAT' +                   
                          'CFGTCP' '?WRKUSRPRF USRPRF(*ALL)' +                  
                          'WRKSYSVAL' ' ' ' ' 'SIGNOFF')                        
             ENDPGM                                                             
