/* REXX */ /* start an ISPF environment if we need to */ Parse Arg options Address linkmvs 'ispqry' isprc = rc if isprc \= 0 then , /* if ispf not active */ cmd = 'ISPSTART 'options else , /* if ispf active */ cmd = 'ISPEXEC SELECT 'options , 'MODE(LINE)' Address TSO cmd Exit 0