Invoking IDF with a TSO batch job

To debug the sample program ASMMSAMP, submit the following job:

//jobname JOB
//IDFT     EXEC PGM=IKJEFT01,DYNAMNBR=100,REGION=0M
//SYSTSPRT DD SYSOUT=*
//SYSTSIN  DD *
 TSOLIB ACT  DSN( '<myid>.LOAD'      +
                  '<hlq>.SASMMOD1'   +
                  '<hlq>.SASMMOD2' )
 ALLOCATE DD(ASMLANGX) DSN( '<myid>.ASMLANGX' ) SHR REUSE
 ALLOCATE DD(ASM)      DSN( '<myid>.ASM'      ) SHR REUSE
 TSOEXEC ASMIDF ASMMSAMP ( LUNAME <luid>
 TSOLIB DEACT
 FREE FI(ASM ASMLANGX)
/*

Notes:

The IDF parameter LUNAME (or LU) must be specified
The IDF VTAM APPLIDs ASMTL001 to ASMTLnnn must be ACTIVE
The VTAM luid specified in the LUNAME parameter must be ACTIVE