On 9/11/2013 9:01 AM, Hansen, Dave L - Eagan, MN wrote:
Dear Group,I am debugging a JES2 EXIT40. I was asked what do the fields PDBDNODE, PDBDRMT and PDBUSER contain. I am told PDBDRMT may not contain a non-zero value. There is no command which will give me this information. I am told I can set a slip trap on entry to the exit and take a dump at that point. Q). Is there a good book on taking a dump from an Exit? Does anyone have an example of a slip trap to help me debug our PDDB (REG 2 is $PDDB, offset x'14' for 12 bytes is the routing info)?
If you are an (E)JES customer, you can issue the DU (dump) line command against the job to browse a comprehensive dump of all its SPOOL-resident control blocks. The part you are interested in looks like this:
********************************************************************* * I O T (ALLOCATION) ********************************************************************* SPOOL ADDRESS: 02.023C55 COMMON SECTION: 0000 0068 C9D6E340 E2D4C6C4 E4D4D740 0002AFB6 *IOT SMFDUMP ..®¶* 0010 0078 CBF2AA52 00000000 10000800 02023C55 *ô2¡ê...........í* 0020 0088 00000000 00000000 00000000 00000000 *................* 0030 0098 00000145 000066BC 00020000 00000000 *...á..ï........* 0040 00A8 00000000 00001000 00000280 00000000 *...........Ø....* 0050 00B8 00000000 00000000 00000000 00000000 *................* ===> Data at relative offset 00C8 through 00D7 is same as above <=== TGAE SECTION: 0070 0000 02000023 C5000000 00000000 00000000 *....E...........* 0080 0010 00000000 00000000 00000000 00000000 *................* ===> Data at relative offset 0020 through 013F is same as above <=== PDDB ENTRY: 01B0 0000 68800050 02023C53 00000000 00000001 *ÇØ.&...ë........* 01C0 0010 0180E201 00000000 00000000 00000000 *.ØS.............* 01D0 0020 00000800 00000002 00000000 0000007E *...............=* 01E0 0030 E2E3C440 40404040 5C5C5C5C 5C5C5C5C *STD ********* 01F0 0040 40404040 40404040 00000000 00000000 * ........* 0200 0050 5C5C5C5C 5C5C5C5C 5C5C5C5C 5C5C5C5C ****************** 0210 0060 5C5C5C5C 5C5C5C5C FF000000 00000000 *********........* 0220 0070 0000FFFF FFFF0800 00000000 00000000 *................* 0230 0080 00000000 CBF2AA52 00000000 00000000 *....ô2¡ê........* 0240 0090 00000000 00000000 00000000 40404040 *............ * 0250 00A0 40404040 40404040 40404040 D1C5E2D1 * JESJ* 0260 00B0 C3D3C9D5 40404040 40404040 5001A051 *CLIN &.µé* 0270 00C0 55551555 55555555 55555555 829DB29D *íí.íííííííííb¸¥¸* 0280 00D0 8DA71515 B7819315 15151515 829DB29D *ýx..¼al.....b¸¥¸* 0290 00E0 8DA71515 55555555 55555555 B7B6969C *ýx..íííííííí¼¶oæ* 02A0 00F0 808C918C 55555555 55555555 B7819315 *Øðjðíííííííí¼al.* 02B0 0100 15151515 B7BDB7A4 15151515 E2D4C640 *....¼]¼u....SMF * 02C0 0110 40404040 00000000 00000000 00008000 * ..........Ø.* 02D0 0120 00020402 00000000 00000000 00000000 *................* 02E0 0130 00000000 00000000 00000000 00000000 *................* 02F0 0140 02000000 00000000 00000000 00000000 *................* 0300 0150 00000000 E2D4C64B E2D4C6C4 E4D4D74B *....SMF.SMFDUMP.* 0310 0160 E2F0F1F7 F6F0F5F4 4BC4F0F0 F0F0F0F0 *S0176054.D000000* 0320 0170 F14BD1C5 E2D1C3D3 C9D54040 40404040 *1.JESJCLIN * etc... -- Edward E Jaffe Phoenix Software International, Inc 831 Parkview Drive North El Segundo, CA 90245 http://www.phoenixsoftware.com/ ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
