EDF 示例: 在命令执行结束时
此示例显示命令执行结束时的显示。 EDF 以与命令启动时相同的格式提供显示。 此时，您可以在返回或更改的变量值以及响应代码中看到执行命令的效果。
EDF 没有为 ABEND ， XCTL 和 RETURN 命令提供此屏幕 (尽管这些命令可能会引起 EDF 显示的错误情况)。 与 图 1 中的 即将执行 屏幕对应的完成屏幕显示在 图 1中。
TRANSACTION: AC20 PROGRAM: DFH0VT1 TASK: 00054 APPLID:
1234567 DISPLAY:00
STATUS: COMMAND EXECUTION COMPLETE
EXEC CICS SEND MAP
MAP ('T1 ')
FROM ('............................................................'...)
LENGTH (154)
MAPSET ('DFH0T1 ')
CURSOR
TERMINAL
ERASE
NOFLUSH
NOHANDLE
OFFSET:X'002522' LINE:00673 EIBFN=X'1804'
RESPONSE: NORMAL EIBRESP=0
ENTER: CONTINUE
PF1 : UNDEFINED PF2 : SWITCH HEX/CHAR PF3 : END EDF SESSION
PF4 : SUPPRESS DISPLAYS PF5 : WORKING STORAGE PF6 : USER DISPLAY
PF7 : SCROLL BACK PF8 : SCROLL FORWARD PF9 : STOP CONDITIONS
PF10: PREVIOUS DISPLAY PF11: EIB DISPLAY PF12: ABEND USER TASK对于 CICS® 命令，响应代码按名称 (例如， NORMAL 或 NOTFND) 和相应的 EIBRESP 值 (十进制格式) 进行描述。 对于 DL/I ，响应代码是 2 字符的 DL/I 状态码，并且没有 EIBRESP 值。 编程信息 (包括 EIBRESP 代码列表) 位于 EIB 字段中， DL/I 代码记录在 IMS 产品文档中的 DL/I 状态码中。
图 2 和 图 3 显示 EXEC DLI 命令的典型屏幕。图 2。 典型 EDF 在 DLI 命令完成时显示 (屏幕一)
图 3。 DLI 命令完成时的典型 EDF 显示 (屏幕 2)
TRANSACTION: XDLI PROGRAM: UPDATE TASK: 00111 APPLID:
1234567 DISPLAY: 00
STATUS: COMMAND EXECUTION COMPLETE
EXEC DLI GET NEXT
USING PCB (+00003)
FIRST
SEGMENT ('A ')
INTO (' ')
SEGLENGTH (+00012)
FIRST
VARIABLE
+SEGMENT ('B ')
OFFSET:X'000246' LINE: 00000510 EIBFN:X'000C'
RESPONSE: 'AD'
ENTER: CONTINUE
PF1 : UNDEFINED PF2 : SWITCH HEX/CHAR PF3 : END EDF SESSION
PF4 : SUPPRESS DISPLAYS PF5 : WORKING STORAGE PF6 : USER DISPLAY
PF7 : SCROLL BACK PF8 : SCROLL FORWARD PF9 : STOP CONDITIONS
PF10: PREVIOUS DISPLAY PF11: EIB DISPLAY PF12: ABEND USER TASKTRANSACTION: XDLI PROGRAM: UPDATE TASK: 00111 APPLID:
1234567 DISPLAY: 00
STATUS: COMMAND EXECUTION COMPLETE
EXEC DLI GET NEXT
+
FIRST
SEGMENT ('C ')
SEGLENGTH (+00010)
LOCKED
INTO ('SMITH ')
WHERE (ACCOUNT = '12345')
FIELDLENGTH (+00005)
OFFSET:X'000246' LINE: 00000510 EIBFN:X'000C'
RESPONSE: 'AD'
ENTER: CONTINUE
PF1 : UNDEFINED PF2 : SWITCH HEX/CHAR PF3 : END EDF SESSION
PF4 : SUPPRESS DISPLAYS PF5 : WORKING STORAGE PF6 : USER DISPLAY
PF7 : SCROLL BACK PF8 : SCROLL FORWARD PF9 : STOP CONDITIONS
PF10: PREVIOUS DISPLAY PF11: EIB DISPLAY PF12: ABEND USER TASKTRANSACTION: LOKO PROGRAM: TLOKO TASK: 00111 APPLID: 1234567
DISPLAY: 00
STATUS: COMMAND EXECUTION COMPLETE
CALL TO RESOURCE MANAGER DSNCSQL
EXEC SQL UPDATE
PLAN=TLOK0, DBRM=TLOK0, STMT=00242, SECT=00001
SQL COMMUNICATION AREA:
SQLCABC = 136 AT X'001E5A18'
SQLCODE = 000 AT X'001E5A1C'
SQLERRML = 000 AT X'001E5A20'
SQLERRMC = '' AT X'001E5A22'
SQLERRP = 'DSN' AT X'001E5A68'
SQLERRD(1-6) = 000, 000, 00001, -1, 00000, 000 AT X'001E5A70'
SQLWARN(0-A) = '_ _ _ _ _ _ _ _ _ _ _' AT X'001E5A88'
SQLSTATE = 00000 AT X'001E5A93'
OFFSET:X'000298' LINE: UNKNOWN EIBFN= X'0A02'
RESPONSE:
ENTER: CONTINUE
PF1 : UNDEFINED PF2 : UNDEFINED PF3 : END EDF SESSION
PF4 : SUPPRESS DISPLAYS PF5 : WORKING STORAGE PF6 : USER DISPLAY
PF7 : SCROLL BACK PF8 : SCROLL FORWARD PF9 : STOP CONDITIONS
PF10: PREVIOUS DISPLAY PF11: EIB DISPLAY PF12: ABEND USER TASK