IDF may be used to debug an application program using DB2 EXEC SQL statements. There are a number of environmental requirements which must be met:

• The IDF NOSVC97 option must be used.
• If running application under the Language Environment, then the LE options NOSTAE and NOSPIE must be used.
• The DB2 commands must be placed on the TSO stack to be executed. The preferred method is to use a CLIST, and place the DB2 commands within DATA and ENDDATA statements.

  PROC 0 LIBE('ASMIDF.SQL.LOAD') MEMBER(SQLPROG1) OPT('PARMS') IDF
  /* */
  CONTROL NOCONLIST FLUSH NOLIST
  PROFILE NOPAUSE
  /* */
  ALLOC FI(ASMLANGX) REUSE DA('DMS.SQL.ASMLANGX') SHR
  ALLOC FI(ASM) REUSE DA('ASMIDF.PROD.IDF') SHR
  /* */
  ALLOC FI(LIBEDD) REUSE DA('&LIBE') SHR
  /* */
  IF &IDF = IDF THEN +
    DO
      DATA
      DSN
      RUN CP PLAN(&MEMBER)
      TSOEXEC ASMIDF &MEMBER (LIBE LIBEDD NOSVC97 / &OPT
      END
      ENDDATA
    END
  ELSE +
    DO
      DATA
      DSN
      RUN CP PLAN(&MEMBER)
      &MEMBER &OPT
      END
       ENDDATA
     END
   FREE FI(ASMLANGX LIBEDD ASM)
   EXIT CODE(0)