Defining and Displaying User-Defined DSECTs
Related topics
You can define DSECT images for Code Debug’s DSECTs screens (2.D and 9.D), including DSECTs for other third-party packages or MVS. This section describes the steps involved in defining and displaying user DSECTs.
This role involves Code Debug CICS Installer.
Adding the User DSECT File to CICS
If a user DSECT file has been created for Abend-AID as described in the Abend-AID Advanced Configuration space section entitled “Abend-AID Viewer User-Defined DSECTs”, you can define that file in CICS for Code Debug CICS use. Otherwise, any new or existing source listing file may be used.
Task 18.1 Create Site-Specific DSECT Images
User DSECT images are created using the BMC AMI Common Shared Services (CSS) Assembler language processor. The Code Debug CICS installation sample library (SMXDSAMP) contains two sample members, DSECTDFH and DSECTUSR, that illustrate how you can create site-specific DSECT images. DSECTDFH contains sample assembly JCL for DFHAFCB as displayed in System Labels for User DSECTs on Define System Labels Screen (9.9) and User DSECT Displayed on DSECTs Screen (9.D). DSECTUSR provides sample assembly JCL for a site-specific DSECT.
For more information about the Assembler language processor, seeBMC AMI Common Shared Services User Reference
User-Defined DSECT Example
The following example uses CICS macro DFHAFCD. This macro defines a DSECT named DFHAFCB. The assembly source to create this DSECT image is:
DFHAFCD TYPE=DSECT
ENDThe following figure shows an example of how to define the system labels required for user-defined DSECTs on the Define System Labels screen (9.9) so they can then be displayed on the DSECTs screens (2.D or 9.D). The labels TCB and TCBXTN are used to resolve the address for DFHAFCB. You can create these labels with the following System Facilities entries:
USER_LABEL=TCB
EXISTING_LABEL=ADDR
OFFSET_HEX=21C
USE_CONTENT=YES
OFFSET_NEG=NO
END
DEFINE_SYSTEM_LABELS
USER_LABEL=TCBXTN
EXISTING_LABEL=TCB
OFFSET_HEX=D0
USE_CONTENT=YES
OFFSET_NEG=NO
END
DEFINE_SYSTEM_LABELS
USER_LABEL=DFHAFCB
EXISTING_LABEL=TCBXTN
OFFSET_HEX=14
USE_CONTENT=YES
OFFSET_NEG=NO
END
System Labels for User DSECTs on Define System Labels Screen (9.9)
COMMAND ===> SCROLL ===> CSR
MODULE: CSECT:
DEFAULT BASE LABELS: CSA DCT EIS FCT MOD OFL PGM TCA TCT
ADDR PADDR PLEN INITCOMM MQMD MQDATA
USER BASE ENTRY OR + OR - USE RESULTING
DEL LABEL LABEL PGM-NAME OFFSET CONTENT LENGTH VALUE
--- -------- -------- -------- --------- --- -------- --------
_ TCB ADDR 21C Y 00000000 008B2938
_ TCBXTN TCB D0 Y 00000000 008B2A90
_ DFHAFCB TCBXTN 14 Y 00000000 008B2790
_ ________ ________ ________ _________ _ ________
_ ________ ________ ________ _________ _ ________
The following figure shows an example of a user-defined DSECT on the DSECTs screen (9.D). Note that the name specified in the TABLE/AREA field matches both the label defined on the Define System Labels screen (9.9) and the member name in the SLS file.
User DSECT Displayed on DSECTs Screen (9.D)
COMMAND ===> SCROLL ===> CSR
MODULE: CSECT: COMPILED: 12 MAY 2009 - 14.06
TABLE/AREA: DFHAFCB TABLE ENTRY ID: ________
LABEL: DFHAFCB
008B2790 DFHAFCB DSECT
008B2790 000 AFIDENT DS XL4 C1C6C3E7 * AFCX *
008B2794 004 AFVER DS XL1 02 * . *
AFVER1 EQU X'01'
AFVER2 EQU X'02'
008B2795 005 AFSVCNO DS XL1 D4 * M *
008B2796 006 AFLENG DS XL2 00D0 * .} *
008B2798 008 AFCSA DS XL4 8004F200 * Ø.2. *
008B279C 00C AFAICB DS XL4 00085AE4 * ..!U *
008B27A0 010 AFPFXEND DS 0XL4 00000000 * .... *
AFPFXLEN EQU X'10'
008B27A0 010 AFLSTBEG DS 0XL4 00000000 * .... *
008B27A0 010 AFPFF DS XL4 00000000 * .... *
008B27A4 014 AFCHAIN DS XL4 00000000 * .... *
008B27A8 018 AFSRB DS XL4 80000000 * Ø... *
008B27AC 01C AFHPSRB DS XL4 00000000 * .... *
008B27B0 020 AFIRSVC DS XL4 87D0E114 * g}÷. *
008B27B4 024 AFIRSUDB DS XL4 318BF108 * .»1. *