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

  /* ---------------------------------------------------- *       
  | 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

  /* ----------------- REXX ------------------------- *                       
  | Take a number and display it with comma's in it. |                        
  |                                                  |                        
  | e.g.  1000 becomes 1,000                         |                        
  |                                                  |                        
  | usage:   comma_num = addcomma(number)            |                        
  |                                                  |                        
  | supports numbers up to 34 digits long            |                        
  |                                                  |                        
  | Copied from Doug Nadel                           |