/*REXX QHELP  */
      /* PURPOSE: DEMONSTRATION OF MATERIAL MENTIONED IN  */
  PARSE ARG  ARGS
  IF LENGTH(ARGS) = 0 THEN ARGS = "HELP"
  ELSE IF LENGTH(ARGS) <= 8 THEN ARGS = "HELP "||ARGS
  IF OK = SYSDSN("'"||SYSVAR(SYSUID)||".QHELP.LIST'") THEN ,
  X=MSG(OFF)
  "DELETE  '"||SYSVAR(SYSUID)||".QHELP.LIST'"
  X=MSG(ON)
  "ALLOCATE DA('"||SYSVAR(SYSUID)||".QHELP.LIST')  TRACK" ,
      "SPACE(2,10) RECFM(V B) LRECL(137) BLOCK(1374) REUSE"
   IF RC ^= 0 THEN EXIT RC
   ADDRESS  ISPEXEC "VGET (QHELP) SHARED"
   HQHELP = QHELP
   QHELP = ARGS
   DSNDESC = "QHELP -- TSO HELP MATERIAL PLACED INTO EDIT" ,
      "FOR EASIER VIEWING"
   ADDRESS ISPEXEC "VPUT (QHELP DSNDESC) SHARED"
   "$EDIT   '"||SYSVAR(SYSUID)||".QHELP.LIST' MACRO(QHELP@)" ,
      "PANEL(SYSEDDE2)"
   QHELP = HQHELP
   ADDRESS ISPEXEC "VPUT (QHELP) SHARED"