All EDF displays have the same general format, but the contents depend on the point at which the task was interrupted. The display indicates which of these interception points has been reached and shows information relevant to that point. Figure 134 shows a typical display; occurring after execution of a SEND MAP command.
TRANSACTION: AC20 PROGRAM: DFH0VT1 TASK: 00032 APPLID: 1234567 DISPLAY:00 STATUS: COMMAND EXECUTION COMPLETE 1 EXEC CICS SEND MAP MAP ('T1 ') FROM ('...........................................................'...) LENGTH (154) MAPSET ('DFH0T1 ') CURSOR 2 TERMINAL ERASE NOFLUSH NOHANDLE OFFSET:X'002522' LINE:00673 EIBFN=X'1804' RESPONSE: NORMAL EIBRESP=0 3 ENTER: CONTINUE 4 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
The display consists of a header, a body (the primary display area), a message line, and a menu of functions you can select at this point. If the body does not fit on one screen, EDF creates multiple screens, which you can scroll through using PF7 and PF8. The header, menu, and message areas are repeated on each screen.
The body or main part of the display contains the information that varies with the point of intercept. The following screens show the body contents:
At program initiation, as shown in Figure 135, EDF displays the COMMAREA (if any) and the contents of the principal fields in the EIB. For programming information about these EIB fields, see the CICS Application Programming Reference manual. If there isn't a COMMAREA, line 4 on the screen is left blank and EIBCALEN has a value of zero.
TRANSACTION: AC20 PROGRAM: DFH0VT1 TASK: 00032 APPLID: 1234567 DISPLAY:00 STATUS: PROGRAM INITIATION COMMAREA = '3476559873' EIBTIME = 92920 EIBDATE = 91163 EIBTRNID = 'AC20' EIBTASKN = 32 EIBTRMID = 'S246' EIBCPOSN = 4 EIBCALEN = 10 EIBAID = X'7D' AT X'032F059A' EIBFN = X'0000' AT X'032F059B' EIBRCODE = X'000000000000' AT X'032F059D' EIBDS = '........' + EIBREQID = '........' 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: UNDEFINED
At the start of execution of a CICS command, EDF displays the command, including keywords, options, and argument values, as shown in Figure 136. You can display the information in hexadecimal or character form (and switch from one to the other) by pressing PF2. If character format is requested, numeric arguments are shown in signed numeric character format.
TRANSACTION: AC20 PROGRAM: DFH0VT1 TASK: 00032 APPLID: 1234567 DISPLAY:00 STATUS: ABOUT TO EXECUTE COMMAND EXEC CICS SEND MAP MAP ('T1 ') FROM ('.............................................................'..) LENGTH (154) MAPSET ('DFH0T1 ') CURSOR TERMINAL ERASE NOFLUSH NOHANDLE OFFSET:X'002522' LINE:00673 EIBFN=X'1804' ENTER: CONTINUE PF1 : UNDEFINED PF2 : SWITCH HEX/CHAR PF3 : UNDEFINED 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
Figure 137 shows a similar screen for the start of execution of an EXEC SQL command running with DB2® version 2.3.
TRANSACTION: LOKO PROGRAM: TLOKO TASK: 00082 APPLID: 1234567 DISPLAY:00 STATUS: ABOUT TO EXECUTE COMMAND CALL TO RESOURCE MANAGER DSNCSQL EXEC SQL UPDATE DBRM=TLOK0, STMT=00242, SECT=00001 IVAR 001: TYPE=CHAR, LEN=00010 AT X'001E5A99' DATA=X'F0F0F0F0F0F1F0F0F0F0' OFFSET:X'000298' LINE: UNKNOWN EIBFN= X'0A02' ENTER: CONTINUE PF1 : UNDEFINED PF2 : UNDEFINED PF3 : UNDEFINED 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
In addition to options and values, the command is identified by its hexadecimal offset within the program. If the program was translated with the DEBUG translator option, the line number also appears, as shown in Figure 136. (See Defining translator options for information about this option.)
At the start of an EXEC SQL or EXEC DLI command, the body of the EDF display shows you the parameter list of the CALL to which your command translates. If a DLI command generates multiple CALL statements, you see only the last CALL statement.
At the end of execution of a command, EDF provides a display in the same format as at the start of the command. At this point, you can see the effects of executing the command, in the values of the variables returned or changed and in the response code. EDF does not provide this display for the ABEND, XCTL, and RETURN commands (although these commands could raise an error condition that EDF displays). The completion screen corresponding to the about to execute screen in Figure 136 is shown in Figure 138.
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
For CICS commands, response codes are described both by name (for example, NORMAL or NOTFND) and by the corresponding EIBRESP value in decimal form. For DL/I, the response code is a 2-character DL/I status code, and there is no EIBRESP value. Programming information, including a list of EIBRESP codes, is in CICS Application Programming Reference manual , and DL/I codes are documented in the Application Programming: EXEC DLI Commands.
Figure 139 and Figure 140 show typical screens for an EXEC DLI command.
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 TASK
TRANSACTION: 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 TASK
TRANSACTION: 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
At program termination and normal task termination, there is no body information; all the pertinent information is in the header. Figure 142 and Figure 143 show summarized screens for program and task termination.
TRANSACTION: AC20 PROGRAM: DFH0VT1 TASK: 00054 APPLID: 1234567 DISPLAY:00 STATUS: PROGRAM TERMINATION ENTER: CONTINUE PF1 : UNDEFINED PF2 : SWITCH HEX/CHAR PF3 : UNDEFINED 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
TRANSACTION: AC20 TASK: 00054 APPLID: 1234567 DISPLAY: 00 STATUS: TASK TERMINATION CONTINUE EDF? (ENTER YES OR NO) REPLY: YES 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: UNDEFINED
When an abend or abnormal task termination occurs, EDF displays the screens shown in Figure 144 and Figure 145.
TRANSACTION: AC20 PROGRAM: DFH0VT1 TASK:00054 APPLID: 1234567 DISPLAY: 00 STATUS: AN ABEND HAS OCCURRED COMMAREA = '1287656678' EIBTIME = 135510 EIBDATE = 91163 EIBTRNID = 'AC20' EIBTASKN = 76 EIBTRMID = 'S232' EIBCPOSN = 4 EIBCALEN = 10 EIBAID = X'7D' AT X'032F059A' EIBFN = X'1804' SEND AT X'032F059B' EIBRCODE = X'000000000000' AT X'032F059D' EIBDS = '........' + EIBREQID = '........' ABEND : ABCD 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: UNDEFINED
TRANSACTION: AC20 TASK: 00054 APPLID: 1234567 DISPLAY: 00 STATUS: ABNORMAL TASK TERMINATION COMMAREA = '2934564671' EIBTIME = 135510 EIBDATE = 91163 EIBTRNID = 'AC20' EIBTASKN = 76 EIBTRMID = 'S232' EIBCPOSN = 4 EIBCALEN = 10 EIBAID = X'7D' AT X'032F059A' EIBFN = X'1804' SEND AT X'032F059B' EIBRCODE = X'000000000000' AT X'032F059D' EIBDS = '........' + EIBREQID = '........' ABEND : ABCD CONTINUE EDF? (ENTER YES OR NO) REPLY: YES 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: UNDEFINED
The body displays the COMMAREA and the values of the fields in the EIB as well as the following items: