Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations Mike Lewis on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

CONCAT private libraries to SYSPROC

Status
Not open for further replies.

jivetrky

MIS
Jun 16, 2006
38
US
Is there a way to concat my private command library to the default SYSPROC concatenation with REXX. This way I can enter TSO appname instead of TSO EX 'LIB.NAME(APPNAME)'
 
See if this helps.


/**** ALTEXEC REXX *************************************/
PARSE ARG OPT
ADDRESS TSO
IF OPT = '' THEN DO
"ALTLIB RESET"
"ALTLIB DISPLAY"
EXIT
END
"ALTLIB ACTIVATE APPLICATION(EXEC) DATASET('"OPT"')"
"ALTLIB DISPLAY"
EXIT

Sample Commands #################

TSO %AltExec My.Rexx.Pds

TSO %MyRexx

TSO %AltExec

 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top