Original URL: http://bluemainframe.net/2007/06/08/ikjeft01/

IKJEFT01是一个TMP程序. (terminal monitor program).

可以执行clist,rexx,tso.e command命令等.

例1
SB01 EXEC PGM=IKJEFT01,DYNAMNBR=50
STEPLIB DD DISP=SHR,DSN=DSN.DSNLOAD
SYSTSPRT DD SYSOUT=*
SYSPRINT DD DSN=XXXX.XX.XXXX,DISP=(,CATLG),
DCB=(RECFM=FBA,LRECL=133,BLKSIZE=133),
SPACE=(CYL,(5,5)),UNIT=SPLD
SYSIN DD DSN=&&CTL,DISP=(OLD,DELETE)
SYSTSIN DD DSN=XXXX.IOCS.SQLLIB(DSNTEP2),DISP=SHR

XXXX.IOCS.SQLLIB
********************************* Top of Data **********************************
DSN SYSTEM(DSN)
RUN PROGRAM(DSNTEP2) PLAN(DSNTEP2) LIB(’DSN.RUNLIB.LOAD’)
******************************** Bottom of Data ********************************
SYSTSIN sysin控制参数 这里是一段CLIST程序

例2
在DB2使用中，DSN用来获取DB2在OS/390的Subsystem identifier，用来对DBRM进行BIND PLAN或者 BIND PACKAGE的，也能PLAN和PACKGAE进行RUN。

在IKJEFT01中输入执行语句应该写在 SYSTSIN里
BIND的时候：
//DBRMLIB DD DSN=XXX.XXX.XXX,DISP=SHR
//SYSTSIN DD*
DSN SYSTEM(Subsystem identifier)
BIND PLAN(PLAN-name) MEMBER(DBRM-name) ACT(REP) ISO(CS)
END
/*

RUN的时候 ：
//SYSTSIN DD *
DSN SYSTEM(Subsystem identifier)
RUN PROGRAM(DB2PGM-name) PLAN(PLAN-name) -
LIBRARY(’DATASET-name of DB2PGM’)
END
/*

对于abend情况的处理，可以用IKJEFT1A,IKJEFT1B