© serviceprofessionalgmbh

The good news about HELP: all commands are accessible online. The bad news about HELP: no paging backward, no searching for parameters. Here the HELP output gets redirected to a temporary file and then displayed using VIEW.

/* REXX
*/
if arg() = 0 then do
   say "Kommando fuer HELP eingeben (enter = ende)"
   parse upper external cmd
   if cmd = "" then exit
end
else cmd = arg(1)
dmy = outtrap(hilfe.)
"help" cmd
dmy = outtrap("off")
"alloc f(hlp) new space(5) tracks lrecl(133) blksize(0) recfm(f b) reu"
"execio * diskw hlp (stem hilfe. finis"
address ispexec
"lminit dataid(did) ddname(hlp)"
"view   dataid(&did)"
"lmfree dataid(&did)"
address
"free fi(hlp)"
return