/* rexx */                                                                      
/*-------------------------------------------------------------------*/         
/*                                                                   */         
/*                        REXX Exec : REXXINFO                       */         
/*                                                                   */         
/*  Description : Display running exec information                   */         
/*                                                                   */         
/*                This just serves as an example of how to extract   */         
/*                information about the Rexx exec that is running.   */         
/*                                                                   */         
/*  Created on : 03 Jan 1993                                         */         
/*  Created by : Kevin Ferguson                                      */         
/*             : Userid MIT001                                       */         
/*             : Using ABBYDALE.DEVL.REXX(REXXINFO)                  */         
/*                                                                   */         
/*  Called by : Nothing                                              */         
/*                                                                   */         
/*  Calls : Nothing                                                  */         
/*                                                                   */         
/*  Panels Used : None                                               */         
/*                                                                   */         
/*  Change Activity :                                                */         
/*                                                                   */         
/*                ©Copyright of Abbydale Systems LLC.                */         
/*                                                                   */         
/*-------------------------------------------------------------------*/         
s=userid()                                                                      
dialogid = sysvar(sysicmd)                                                      
parse source Exec_String                                                        
excnme = word(Exec_String,3)            /* Get EXEC's name          */          
dataset = word(Exec_String,5)           /* Get dataset name         */          
say s 'is running' excnme 'from' dataset                                        
exit                                                                            
/*-------------------------------------------------------------------*/         
/*                       End of REXXINFO                             */         
/*-------------------------------------------------------------------*/