/* rexx */                                                                      
/*-------------------------------------------------------------------*/         
/*                                                                   */         
/*                        REXX Exec : RUNJCL                         */         
/*                                                                   */         
/*  Description :                                                    */         
/*                                                                   */         
/*  Created on : 16 Apr 2018                                         */         
/*  Created by : KEVIN FERGUSON                                      */         
/*             : Userid(MIT001)                                      */         
/*             : using ABBYDALE.PROD.EMACS(RUNJCL)                   */         
/*                                                                   */         
/*  Called by :                                                      */         
/*                                                                   */         
/*  Calls :                                                          */         
/*                                                                   */         
/*  Change Activity :                                                */         
/*                                                                   */         
/*                ©Copyright of Abbydale Systems LLC.                */         
/*                                                                   */         
/*-------------------------------------------------------------------*/         
signal on halt         /* attention key      */                                 
ARG mem edit                                                                    
IF mem='' THEN DO                                                               
  ADDRESS ISREDIT                                                               
"ISREDIT MACRO (mem edit) PROCESS"                                              
"ISREDIT (MEMBER) = MEMBER"                                                     
end                                                                             
upper mem edit                                                                  
if mem = '' then mem = member                                                   
if POS('.',mem) > 0 then do                                                     
   if pos('(',mem) > 0 then do                                                  
      rundsn = SUBSTR(mem,1,POS('(',mem)-1)                                     
      mem = SUBSTR(mem,POS('(',mem)+1,(POS(')',mem)-POS('(',mem)-1))            
      mem = SUBSTR(mem,POS('(',mem)+1,LENGTH(mem)-POS(')',mem))                 
   end                                                                          
end                                                                             
else do                                                                         
   ADDRESS ISPEXEC  "VGET RUNDSN PROFILE"                                       
   IF rc > 0 THEN mem = '/'                                                     
   if rundsn = '' then mem = '/'                                                
   if mem = '/' then do                                                         
      findit bslrun01 ispplib                                                   
      IF rc > 0 THEN DO                                                         
 say 'Enter the Dataset name from which the member is to be submitted'          
   pull rundsn                                                                  
   say "Enter member name to be submitted"                                      
   pull mem                                                                     
   end                                                                          
   else do                                                                      
   mem =                                                                        
   ADDRESS ISPEXEC "DISPLAY PANEL(ASLRUN01)"                                    
             if mem = '' then do                                                
                ADDRESS ISPEXEC  "VPUT RUNDSN PROFILE"                          
                exit                                                            
             end                                                                
   end                                                                          
   end                                                                          
ADDRESS ISPEXEC  "VPUT RUNDSN PROFILE"                                          
end                                                                             
rundsn = STRIP(rundsn,'b',"'")   /* remove any quote */                         
If edit = "EDIT" then do                                                        
address ISPEXEC "EDIT DATASET('"rundsn"("mem")')"                               
   if rc <> 0 then exit                                                         
end                                                                             
Z = OUTTRAP(LIST.)                                                              
ADDRESS TSO "SUBMIT '"rundsn"("MEM")' NOJOBCHAR"                                
do z = 1 to list.0                                                              
say list.z                                                                      
end                                                                             
EXIT                                                                            
/*-------------------------------------------------------------------*/         
/*                        Trap HALT Condition                        */         
/*-------------------------------------------------------------------*/         
halt:                                                                           
say "HALT acknowledged in line" sigl                                            
say "Cleanup processing in progress"                                            
address "TSO"                                                                   
"delstack"                                                                      
exit(16)                                                                        
/*-------------------------------------------------------------------*/         
/*                           End of RUNJCL                           */         
/*-------------------------------------------------------------------*/