/* REXX
 *
 * Name: HLASMDB
 *
 * Author: David Alcock
 *
 * Purpose: Invoke the HLASM toolkit IDF, InterActive Debugging Fac.
 *
 * Requirements:
 * - ASMLANGX file
 * - SYSADATA file
 * - Member of a load library that matchs ASMLANGX and SYSADATA
 *
 * Syntax: %HLASMDB member
 */
arg member
if member == "" then do
   say "%HLASMDB - Member not given, it is required"
   exit
   end
member = strip(member)
address TSO
"allocate file(ASMLANGX) da(spftemp1."member".asmlangx) shr reuse"
"allocate file(SYSADATA) da(spftemp1."member".sysadata) shr reuse"
"allocate file(LIBEDD)   da(test.load) shr reuse"
"TSOEXEC asmidf "member" (LIBE LIBEDD"
say "%HLASMDB - asmidf rc="rc " pgm("member")"
"free file(asmlangx)"
"free file(sysadata)"
"free file(libedd)"
exit