zOs/REXX/CADB3

/* rexx  ---------------------------------------------------------------
          caDb2:    start the ca tools with cs Libraries
          options d: debug, say which libraries
                  w: with test and personal work libs (wk.rexx ...)
                  t: with test libs (dsn.cadb2.cs.execTst ...)
                   : with prod libs (dsn.cadb2.cs.exec)
---------------------------------------------------------------------*/
parse upper arg arg
libs = "'dsn.cadb2.cs.exec'"
if arg == '' & userid() == 'A540769' then
    arg = 'W'
if pos('W', arg) > 0  then
    libs = "'"userid()".WK.REXX' 'dsn.cadb2.cs.exectst'" libs
else if pos('T', arg) > 0 then
    libs = "'dsn.cadb2.cs.exectst'" libs
if pos('D', arg) > 0 then
     say 'caDb2 altLib' libs
ADDRESS tso "ALTLIB ACTIVATE APPLICATION(EXEC) DATASET("libs") uncond"
ADDRESS 'ISPEXEC' 'SELECT MODE(FSCR) NEWAPPL(CA) passlib',
     "CMD(EX 'DSN.CADB2.RZ1.P0.CDBACLS0(RSPMAIN)')"
ADDRESS tso "ALTLIB deACTIVATE APPLICATION(EXEC)"