lbdyck

#!/bin/sh                                                              
                                                                       
# this short shell script will allow the shell user to invoke          
# any TSO command that resides in a load library that is not           
# in the STEPLIB or Link List.                                         
#                                                                      
# Change the hlq.load.library to your load library and enjoy      
#                                                                  
# Copy into a directory in your PATH to use as a shell command  
# and issue chmod +x xxxxx  (where xxxxx is the name you gave to 

lbdyck

AddComma: Procedure   /* Code provided by Doug Nadel back before the turn of the century */                                
  arg bignum                                                                   
  cbignum = strip(translate('0,123,456,789,abc,def,ghi,jkl,mno,pqr,stu,vwx', , 
    right(bignum,34,','), ,                                                    
    '0123456789abcdefghijklmnopqrstuvwx'),'L',',')                             
  return cbignum                                                               

lbdyck

  /* --------------- REXX ------------------ *           
   | SwapEQ - Swap the sides of an = setting |           
   |    a = b                                |           
   | becomes                                 |           
   |    b = a                                |           
   * --------------------------------------- */          
  Address ISREdit                                        
  "Macro (range) NOPROCESS"                              
  "PROCESS RANGE S"                                      
  "(start)  = linenum .zfrange"                          

lbdyck

  /* --------------------- REXX ---------------------- *              
   | This is a sample routine using REXX to deternmine |              
   | if a file exists within OMVS.                     |              
   * ------------------------------------------------- */             
   file = '~/.profile'                                                
  rc = exist(file)                                                    
  if rc > 0 then say 'File exists'                                    
            else say 'File does not exist'                            
  file = 'bad.file'                                                   
  rc = exist(file)                                                    

lbdyck

/* rexx */                                 
/* call USS sleep routine */               
parse arg sleep_sec .                      
say time()                                 
address 'SYSCALL' 'SLEEP ('sleep_sec')'    
say time()                                 
return 0                                   

lbdyck

  /* ---------------------------------------------------- *       
  | Change the zus4anyc (SRCHFOR default) to selected (/) |       
  | if it is null with option Set.                        |       
  | Or option Reset restore it.                           |       
  |                                                       |       
  | Use this before and after thus:                       |       
  |                                                       |       
  | Address ISPExec                                       |       
  | call check_anyc 'SET'                                 |       
  | "LMDINIT LISTID(LISTID) LEVEL("hlq"."file_pfx"*)"     |       

lbdyck

/* This routine will test if the active user has the
   ability to access UID 0 (superuser)
*/

Check_UID0:                                                          
  address syscall 'geteuid'   /* get current euid */                 
  euid = retval                                                      
  address syscall 'seteuid 0' /* try to set uid 0 */                 
  if retval /= 0 then do                                             
     gooduid0 = 1                                                    

lbdyck

Sample REXX code to use grep to search a z/OS sequential dataset for a string:

  /* rexx */
  arg file string
  x = searchstring(file,string)
  if x = 0 then do
     say 'No results found for:' string
     exit 4
     end
  do i = 1 to results.0

lbdyck

/* ---------------------- REXX ----------------------------- *  
 | ISPF Edit Macro to display the requested record in hex in |  
 | an infoline.  (Note: no validation is performed)          |  
 |                                                           |  
 | Syntax:  EHEX line                                        |  
 |                                                           |  
 | Where EHEX is the macro name (change as you wish)         |  
 |       line is a record number                             |  
 |                                                           |  
 | Sample:  EHEX 4                                           |  

lbdyck

  /* ------------------------- REXX ------------------------------ *  
  | LABDEL: Sample REXX code to set a label and to remove a label |   
  | based upon the provided parm.                                 |   
  |                                                               |   
  | Syntax: labdel option                                         |   
  |                                                               |   
  |         option value:  null - add the label                   |   
  |                        anything else - remove the label       |   
  |                                                               |   
  * ------------------------------------------------------------- *