|Planet MVS Dave's IPCS Page Tips|
"Don't fight a battle if you don't gain anything by winning."|
--Field Marshal Erwin Rommel
/* Rexx - Invoke option 1 of IPCS to browse storage */ /* | Ensure we are in IPCS */ Address IPCS /* Talk to IPCS */ 'EVALDUMP >= ACTIVE REXX(SOURCE(DumpDataset))' /* Get Dump dsn */ if rc <> 0 then do say " You must be in IPCS to use this command " exit 12 end /* | Invoke IPCS browse function */ address ISPEXEC "SELECT PGM(BLSLDISP) NEWAPPL(BLSL) PASSLIB"This works for me currently, your mileage may vary.
ISPF Retrieve Panel Select the command to be retrieved More: + 1. ip cbf cvt 2. find 878 3. status worksheet 4. qw s878 5. st regs 6. st faildata 7. ip list 0284cad8 8. 8 8 I forget what 8 was for