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!
-
/* REXX */ ADDRESS TSO "D IPLINFO"
/* REXX */ ADDRESS TSO "D IPLINFO" "ALLOC DD(SYSOUT) DA(OUTPUT.DATASET) SHR REUSE" "EXECIO * DISKR SYSOUT (STEM OUTPUT. FINIS)" DO I = 1 TO OUTPUT.0 IF POS("Load address", OUTPUT.I) > 0 THEN DO LOAD_ADDRESS = STRIP(SUBSTR(OUTPUT.I, POS("Load address", OUTPUT.I) + 12)) END IF...
