lbdyck

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

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

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

#!/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

  /* ----------------------------------------------------- *                
   | Small routine to put into a rexx exec invoked during  |                
   | TSO Logon, or manually after, to test for a zfs being |                
   | mounted and if not then to mount it.                  |                
   * ----------------------------------------------------- */               
  if listdsi("'userid.zopen.zfs'") = 4 then do                              
    x = syscalls('ON')                                                      
    path = '/u/userid/zopen/etc/'                                           
    address syscall ,                                                       
      'lstat (path) st.'