/* REXX */ ADDRESS TSO "D IPLINFO"

[Kavya55]

/* 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 POS("load parm:", OUTPUT.I) > 0 THEN DO
LOAD_PARM = STRIP(SUBSTR(OUTPUT.I, POS("load parm:", OUTPUT.I) + 10))
END
END
"FREE DD(SYSOUT)"
"EXECIO 0 DISKW OUTPUT. (FINIS)"
EXIT


I am trying to display command but command not executing once help me regarding this