Online expediter commands – CICS
Below are the few online expeditor useful commands for basic debugging of a program.
Expeditor Quick Reference →
xpediter keep window size – To increase or decrease the keep window size
SET KEEP <n>
n can be any number from 3 to 11.
SET KEEP 3 is the minimum window size and SET KEEP 11 is the maximum window size
Command line Commands:
XPED <Program Name> → Type this in the Native CICS region which open the program in Debug mode allowing user to enter break points or setup KEEP/ PEEK etc.
KEEP <variable name> → It displays the variable value throughout the program execution. This can also be set by giving K in Line next to the variable.
PEEK <variable name> → It displays the group level variable along with all sub level variables values. This can also be set by giving P in Line next to the variable.
WHEN <variable name> CHANGES → This also sets the break point but it sets when the given variable value changes.
WHEN <variable name> = <value> → This command issues a break whenever the variable value become equals to the given value
DELETE ALL → Deletes all the commands that are in effect like Break points, KEEPs etc.
DELETE BREAKS → Deletes all the break points.
DELETE S → Deletes only Skip commands
DELETE K → Deletes Keeps
ACCESS → This is used to access MAPS, MAPSETS etc while executing the program in xpeditor. PF3 takes back to the execution window.
Ex: ACCESS MAPS → It shows a screen where MAP need to enter and then it displays the named map.
Sample Command line
--------------------- XPEDITER/CICS - SOURCE LISTING (2.L) ----------------CICS COMMAND === KEEP EIBCALEN MODULE: PGM111 CSECT: PGM111 COMPILED: 29 JAN 2018 - 03.55.10 LV ---- COBOL DATANAME KEEPS ---- -- ATTRIBUTES -- ----+---10----+---20---> **END** ------ ------------------------------------------------ BEFORE PGM111.3810 -> 003797 IF EIBCALEN = ZERO 003798 PERFORM P9990-CLEAR-SCREEN 003799 END-IF
Line Commands
B → Break Point, Put a B on the line and press enter. Break pint will be set at that point.
O → One time break point, Once that statement executes break point will not be in effect.
K → Equivalent to KEEP<variable name>.
K2 → It displays the second variable found after K2.
K3, K4, K5.. etc also possible. It shows the value correspondingly.
KK → Used to set keeps for a block of variables. It can be used in procedure and working storage divisions.
K* → Sets Keep for all the variables used in that statement.
P → PEEK. It displays the group level variable along with all the sub level variables values . To come out off the PEEK window, Press PF3
GT → GO TO , It takes the control to that particular line. It skips all other lines before to GT & current execution point from execution.
D → Used to delete the break points and also used to delete the KEEPs
S → Skips that line from the execution
SS → Skips block of lines in between SS &SS from execution.
PF Keys
PF9 → Line by Line Execution
PF12 → Break Point to Break point Execution
PF3 → Exit from the program.
SHIFT PF6 → It shows the screen while execution is going on. To come back to the execution, Press SHIFt PF6 again.
To come back into execution window after pressing Pf3 →
Get in to L SOURCE LISTING option.( DEBUGGING FACILITIES → SOURCE LISTING)
To Enter into Sub Program from the main Program →
- One way is to put break points in all modules before entering the transaction.
- Other way is , before the execution of the sub program.. Change the module name to Sub Program name on the top Left corner and put a break point. Change it back to Main program and execute it.
To come out of the Execution Window →
- Press Pf3 thrice and then ENETRFirst PF3 you get Debugging Facilities Menu shown below
---------------- XPEDITER/CICS - DEBUGGING FACILITIES MENU (2) ------------CICS COMMAND ===> MODULE: PGM111 CSECT: PGM111 COMPILED: 29 JAN 2018 - 03.55.10 L SOURCE LISTING - DISPLAY PROGRAM SOURCE LISTING 1 BREAK/ABEND - DISPLAY BREAKPOINT/ABEND INFORMATION 2 MEMORY DISPLAY - DISPLAY/MODIFY MEMORY 3 PROGRAM DATA AREA - DISPLAY/MODIFY PROGRAM DATA AREA 4 PROGRAM TRACE - DISPLAY STATEMENT LEVEL EXECUTION TRACE 5 CICS EIB - DISPLAY CICS EXECUTION INTERFACE BLOCK 6 CSECT/DLL DISPLAY - DISPLAY PROGRAM CSECT/DLL FUNCTION NAMES 7 SHOW WHEN - DISPLAY ACTIVE WHEN CONDITIONS 8 LAST 3270 SCREEN - REDISPLAY THE LAST USER 3270 SCREEN C CHANNELS/CONTAINERS - DISPLAY CHANNEL/CONTAINER DATA D CICS DSECTS - DISPLAY FORMATTED CICS DSECTS R CICS RESOURCES - DISPLAY INFORMATION ABOUT CICS RESOURCES S TASK STORAGE - DISPLAY TRANSACTION STORAGE AREAS 20 ASSEMBLER BREAK/ABEND - DISPLAY BREAKPOINT/ABEND AND REGISTER INFORMATION
2nd PF3 →
-------------------- XPEDITER/CICS 16.05.00 - PRIMARY MENU ----------------CICS COMMAND ===> MODULE: PGM111 CSECT: PGM111 COMPILED: 29 JAN 2018 - 03.55.10 0 SESSION PROFILE - SET DEFAULT SESSION ATTRIBUTES 1 SESSION CONTROL - ANALYZE SUMMARY OF SESSION EVENTS 2 DEBUGGING FACILITIES - INTERACTIVELY DEBUG APPLICATION PROGRAMS 5 FILE UTILITY - ACCESS DATASETS, TEMP STG, TRANS DATA, DLI, DB2 7 ABEND-AID FOR CICS - INTERFACE TO ABEND-AID FOR CICS X EXIT - EXIT XPEDITER
3rd PF3 →
----------------------- XPEDITER/CICS - EXIT SESSION (X) ------------------CICS COMMAND ===> MODULE: PGM111 CSECT: PGM111 COMPILED: 29 JAN 2018 - 03.55.10 END SESSION: NO YES TERMINATES THE SESSION, CLEANS UP RESOURCES, AND FREES ANY WAITING REMOTE TASKS. NO RETURNS TO CICS AND LEAVES XPEDITER ACTIVE. DUMP OPTION: NO YES FORCES A DUMP (OR ABEND-AID FOR CICS REPORT) FOR ANY ACTIVE ABENDS CURRENTLY TRAPPED BY THIS TERMINAL. THE SITE OPTIONS FOR DUMP SUPPRESSION HAVE PRECEDENCE. POST SCRIPT: SCRIPT TO EXECUTE AT SESSION TERMINATION. PROGRAMS WITH BREAKS: 000 PROTECTION ENTRIES: 000 ACTIVE ABEND TRAPS: 001 (INDIVIDUAL TRAP ENTRIES SET BY THIS TERMINAL) WAITING TASKS: 000 (ACTIVE REMOTE TRAPS THAT HAVE NOT BEEN PROCESSED) PRESS ENTER TO PROCESS OPTIONS.
END Session – YES → It removes the program(s) from the xped
No → Program remains in the xped mode and if we enter the programs transaction, it gets opened in debug mode.
About Author
