1 / 14

Autocloning Equates and Maps in z/XDC (by David Cole)

Autocloning Equates and Maps in z/XDC (by David Cole). What is Autocloning?. Autocloning is the creation of multiple equates to label multiple elements in either a contiguous or chained list. The name of each generated map or equate ends in a sequence number.

clarke-lambert
Télécharger la présentation

Autocloning Equates and Maps in z/XDC (by David Cole)

An Image/Link below is provided (as is) to download presentation Download Policy: Content on the Website is provided to you AS IS for your information and personal use and may not be sold / licensed / shared on other websites without getting consent from its author. Content is provided to you AS IS for your information and personal use only. Download presentation by click this link. While downloading, if for some reason you are not able to download a presentation, the publisher may have deleted the file from their server. During download, if you can't get a presentation, the file might be deleted by the publisher.

E N D

Presentation Transcript

  1. Autocloning Equates and Mapsin z/XDC(by David Cole)

  2. What is Autocloning? • Autocloning is the creation of multiple equates to label multiple elements in either a contiguous or chained list. • The name of each generated map or equate ends in a sequence number. • Autocloned equates are created by special forms of the EQUATE command. • Maps are autocloned by special forms of the USING command. • Equates often are better than maps for contiguous lists. There’s much less clutter. • Maps usually are fine to use with chained lists.

  3. Contiguous Lists – The TIOT ASCBXTCB [to jobstep] ASCB TCB To generate equates labeling each and every DD entry… that can be done with just a single command! Points to current FASM’s ASCB TIOT (header) (entry) len @ASCB len (entry) Built-in z/XDC equate len (entry) (entry) len (entry) len . . . len 00

  4. Contiguous Lists – The TIOT TCB#6 RB#1 ------------------------------------------------- z/XDC TPUT INTERFACE XDC ===>f 21c?+c? data narrow _ 00000000_007D2FD0 1 (A.S.DBCOLE5) --- , PRIVATE+7D0FD0 _ 007D2FD0 @CDP C4C2C3D6 D3C5F540 C9E2D7C6 D7D9D6C3 *DBCOLE5 ISPFPROC* _ 007D2FE0 D3D6C7C4 C2C34040 14010100 E2E8E2E4 *LOGDBC ....SYSU* _ 007D2FF0 C1C4E240 00006F00 80F4F1D0 14010100 *ADS ..?..41}....* _ 007D3000 E2E8E2D3 C2C34040 0000EF00 80F4F300 *SYSLBC .....43.* _ 007D3010 14010100 E2E8E2C5 E7C5C340 00011F00 *....SYSEXEC ....* _ 007D3020 80F4F268 14010100 40404040 40404040 *.42..... * _ 007D3030 00014F00 80F4F1D0 14010100 40404040 *..|..41}.... * _ 007D3040 40404040 00017F00 80F4F858 14010100 * .."..48.....* _ 007D3050 40404040 40404040 0001AF00 80F4F1D0 * .....41}* _ 007D3060 14010100 40404040 40404040 0001DF00 *.... ....* _ 007D3070 80F4F1D0 14010100 40404040 40404040 *.41}.... * _ 007D3080 00020F00 80F4F268 14010100 C9E2D7C5 *.....42.....ISPE* _ 007D3090 E7C5C340 00023F00 80F4F268 14010100 *XEC .....42.....* _ 007D30A0 40404040 40404040 00026F00 80F4F1D0 * ..?..41}* _ 007D30B0 14010100 40404040 40404040 00029F00 *.... ....* _ 007D30C0 80F4F858 14010100 C9E2D7E2 D3C9C240 *.48.....ISPSLIB * _ 007D30D0 0002CF00 80F4F268 14010100 40404040 *.....42..... * _ 007D30E0 40404040 0002FF00 80F4F268 14010100 * .....42.....* TCB#6 RB#1 ------------------------------------------------- z/XDC TPUT INTERFACE XDC ===>EQ DD 21c?+c?+18 LFOFFSET=0 LFWIDTH=1 MAXCLONE=200 DATA _ 00000000_007D2FD0 1 (A.S.DBCOLE5) --- , PRIVATE+7D0FD0 _ 007D2FD0 @CDP C4C2C3D6 D3C5F540 C9E2D7C6 D7D9D6C3 *DBCOLE5 ISPFPROC* _ 007D2FE0 D3D6C7C4 C2C34040 14010100 E2E8E2E4 *LOGDBC ....SYSU* _ 007D2FF0 C1C4E240 00006F00 80F4F1D0 14010100 *ADS ..?..41}....* _ 007D3000 E2E8E2D3 C2C34040 0000EF00 80F4F300 *SYSLBC .....43.* _ 007D3010 14010100 E2E8E2C5 E7C5C340 00011F00 *....SYSEXEC ....* _ 007D3020 80F4F268 14010100 40404040 40404040 *.42..... * _ 007D3030 00014F00 80F4F1D0 14010100 40404040 *..|..41}.... * _ 007D3040 40404040 00017F00 80F4F858 14010100 * .."..48.....* _ 007D3050 40404040 40404040 0001AF00 80F4F1D0 * .....41}* _ 007D3060 14010100 40404040 40404040 0001DF00 *.... ....* _ 007D3070 80F4F1D0 14010100 40404040 40404040 *.41}.... * _ 007D3080 00020F00 80F4F268 14010100 C9E2D7C5 *.....42.....ISPE* _ 007D3090 E7C5C340 00023F00 80F4F268 14010100 *XEC .....42.....* _ 007D30A0 40404040 40404040 00026F00 80F4F1D0 * ..?..41}* _ 007D30B0 14010100 40404040 40404040 00029F00 *.... ....* _ 007D30C0 80F4F858 14010100 C9E2D7E2 D3C9C240 *.48.....ISPSLIB * _ 007D30D0 0002CF00 80F4F268 14010100 40404040 *.....42..... * _ 007D30E0 40404040 0002FF00 80F4F268 14010100 * .....42.....* TCB#6 RB#1 ------------------------------------------------- z/XDC TPUT INTERFACE XDC ===>F +0 DATA NARROW _ 00000000_007D2FD0 1 (A.S.DBCOLE5) --- , PRIVATE+7D0FD0 _007D2FD0 @CDP C4C2C3D6 D3C5F540 C9E2D7C6 D7D9D6C3 *DBCOLE5 ISPFPROC* _ 007D2FE0 D3D6C7C4 C2C34040 *LOGDBC * _ 007D2FE8 DD001 14010100 E2E8E2E4 C1C4E240 00006F00 *....SYSUADS ..?.* _ 007D2FF8 80F4F1D0 -2131430960 *.41}* _ 007D2FFC DD002 14010100 E2E8E2D3 C2C34040 0000EF00 *....SYSLBC ....* _ 007D300C 80F4F300 -2131430656 *.43.* _ 007D3010 DD003 14010100 E2E8E2C5 E7C5C340 00011F00 *....SYSEXEC ....* _ 007D3020 80F4F268 -2131430808 *.42.* _ 007D3024 DD004 14010100 40404040 40404040 00014F00 *.... ..|.* _ 007D3034 80F4F1D0 -2131430960 *.41}* _ 007D3038 DD005 14010100 40404040 40404040 00017F00 *.... ..".* _ 007D3048 80F4F858 -2131429288 *.48.* _ 007D304C DD006 14010100 40404040 40404040 0001AF00 *.... ....* _ 007D305C 80F4F1D0 -2131430960 *.41}* _ 007D3060 DD007 14010100 40404040 40404040 0001DF00 *.... ....* _ 007D3070 80F4F1D0 -2131430960 *.41}* _ 007D3074 DD008 14010100 40404040 40404040 00020F00 *.... ....* _ 007D3084 80F4F268 -2131430808 *.42.* TCB#6 RB#1 ------------------------------------------------- z/XDC TPUT INTERFACE XDC ===>EQ DD 21c?+c?+18 LFOFFSET=0 LFWIDTH=1 MAXCLONE=200 DATA; F +0 DATA 171 EQUATES HAVE BEEN CREATED _ 00000000_007D2FD0 1 (A.S.DBCOLE5) --- , PRIVATE+7D0FD0 _ 007D2FD0 @CDP C4C2C3D6 D3C5F540 C9E2D7C6 D7D9D6C3 D3D6C7C4 C2C34040 *DBCOLE5 ISPFPROCLOGDBC * _ 007D2FE8 DD001 14010100 E2E8E2E4 C1C4E240 00006F00 80F4F1D0 *....SYSUADS ..?..41}* _ 007D2FFC DD002 14010100 E2E8E2D3 C2C34040 0000EF00 80F4F300 *....SYSLBC .....43.* _ 007D3010 DD003 14010100 E2E8E2C5 E7C5C340 00011F00 80F4F268 *....SYSEXEC .....42.* _ 007D3024 DD004 14010100 40404040 40404040 00014F00 80F4F1D0 *.... ..|..41}* _ 007D3038 DD005 14010100 40404040 40404040 00017F00 80F4F858 *.... .."..48.* _ 007D304C DD006 14010100 40404040 40404040 0001AF00 80F4F1D0 *.... .....41}* _ 007D3060 DD007 14010100 40404040 40404040 0001DF00 80F4F1D0 *.... .....41}* _ 007D3074 DD008 14010100 40404040 40404040 00020F00 80F4F268 *.... .....42.* _ 007D3088 DD009 14010100 C9E2D7C5 E7C5C340 00023F00 80F4F268 *....ISPEXEC .....42.* _ 007D309C DD010 14010100 40404040 40404040 00026F00 80F4F1D0 *.... ..?..41}* _ 007D30B0 DD011 14010100 40404040 40404040 00029F00 80F4F858 *.... .....48.* _ 007D30C4 DD012 14010100 C9E2D7E2 D3C9C240 0002CF00 80F4F268 *....ISPSLIB .....42.* _ 007D30D8 DD013 14010100 40404040 40404040 0002FF00 80F4F268 *.... .....42.* _ 007D30EC DD014 14010100 40404040 40404040 00032F00 80F4F268 *.... .....42.* _ 007D3100 DD015 14010100 40404040 40404040 00036F00 80F4F268 *.... ..?..42.* _ 007D3114 DD016 14010100 40404040 40404040 00039F00 80F4F1D0 *.... .....41}* _ 007D3128 DD017 14010100 40404040 40404040 0003CF00 80F4F1D0 *.... .....41}* _ 007D313C DD018 14010100 40404040 40404040 0003FF00 80F4F1D0 *.... .....41}* _ 007D3150 DD019 14010100 40404040 40404040 00042F00 80F4F1D0 *.... .....41}* _ 007D3164 DD020 14010100 40404040 40404040 00045F00 80F4F268 *.... ..¬..42.* _ 007D3178 DD021 14010100 40404040 40404040 00048F00 80F4F268 *.... .....42.* _ 007D318C DD022 14010100 C4C9E3D7 D3C9C240 0004BF00 80F4F268 *....DITPLIB .....42.* _ 007D31A0 DD023 14010100 E2C4E2C6 D4C5D5E4 0004EF00 80F4F268 *....SDSFMENU.....42.* _ 007D31B4 DD024 14010100 C9E2D7D7 D9D6C640 0021BF00 80F510B0 *....ISPPROF .....5..* ** 007D31C8 DD025 14010100 E2D4D7E3 C1C2D340 00055F00 80F4F1D0 *....SMPTABL ..¬..41}* TCB#6 RB#1 ------------------------------------------------- z/XDC TPUT INTERFACE XDC ===>EQ DD 21c?+c?+18 LFOFFSET=0 LFWIDTH=1 MAXCLONE=200 DATA; F +0 DATA 171 EQUATES HAVE BEEN CREATED _ 00000000_007D2FD0 1 (A.S.DBCOLE5) --- , PRIVATE+7D0FD0 _ 007D2FD0 @CDP C4C2C3D6 D3C5F540 C9E2D7C6 D7D9D6C3 D3D6C7C4 C2C34040 _ 007D2FE8 DD001 14010100 E2E8E2E4 C1C4E240 00006F00 80F4F1D0 _ 007D2FFC DD002 14010100 E2E8E2D3 C2C34040 0000EF00 80F4F300 _ 007D3010 DD003 14010100 E2E8E2C5 E7C5C340 00011F00 80F4F268 _ 007D3024 DD004 14010100 40404040 40404040 00014F00 80F4F1D0 _ 007D3038 DD005 14010100 40404040 40404040 00017F00 80F4F858 _ 007D304C DD006 14010100 40404040 40404040 0001AF00 80F4F1D0 _ 007D3060 DD007 14010100 40404040 40404040 0001DF00 80F4F1D0 _ 007D3074 DD008 14010100 40404040 40404040 00020F00 80F4F268 _ 007D3088 DD009 14010100 C9E2D7C5 E7C5C340 00023F00 80F4F268 _ 007D309C DD010 14010100 40404040 40404040 00026F00 80F4F1D0 _ 007D30B0 DD011 14010100 40404040 40404040 00029F00 80F4F858 _ 007D30C4 DD012 14010100 C9E2D7E2 D3C9C240 0002CF00 80F4F268 _ 007D30D8 DD013 14010100 40404040 40404040 0002FF00 80F4F268 _ 007D30EC DD014 14010100 40404040 40404040 00032F00 80F4F268 _ 007D3100 DD015 14010100 40404040 40404040 00036F00 80F4F268 _ 007D3114 DD016 14010100 40404040 40404040 00039F00 80F4F1D0

  5. Contiguous Lists – The TIOT EQ DD 21C?+C?+18 LFOFFSET=0 LFWIDTH=1 MAXCLONE=200DATA DD - This is the root name to assign to all of the generated equates. 21C?+C?+18 – This is the address expression for assigning the location of the first equate. If you recognize this expression, fine. If not, no big deal. LFOFFSET=0 – This is the offset to each list entry’s length field. If LFOFFSET is omitted, then all the list entries have the same size which has to be provided by a TESIZE= operand. LFWIDTH=1 - This is the byte-width of the length field. (The default is =4.) MAXCLONE=200 – This puts a limit on the number of equates to create. It’s number of digits also sets the number of digits to use for the sequence numbers that are appended to the generated equate names. EQ DD21C?+C?+18 LFOFFSET=0 LFWIDTH=1 MAXCLONE=200 DATA DD - This is the root name to assign to all of the generated equates. EQ DD 21C?+C?+18 LFOFFSET=0 LFWIDTH=1 MAXCLONE=200 DATA DD - This is the root name to assign to all of the generated equates. 21C?+C?+18 – This is the address expression for assigning the location of the first equate. If you recognize this expression, fine. If not, no big deal. LFOFFSET=0 – This is the offset to each list entry’s length field. If LFOFFSET is omitted, then all the list entries have the same size which has to be provided by a TESIZE= operand. LFWIDTH=1 - This is the byte-width of the length field. (The default is =4.) EQ DD 21C?+C?+18 LFOFFSET=0 LFWIDTH=1 MAXCLONE=200 DATA EQ DD 21C?+C?+18 LFOFFSET=0 LFWIDTH=1 MAXCLONE=200 DATA DD - This is the root name to assign to all of the generated equates. 21C?+C?+18 – This is the address expression for assigning the location of the first equate. If you recognize this expression, fine. If not, no big deal. EQ DD 21C?+C?+18 LFOFFSET=0 LFWIDTH=1 MAXCLONE=200 DATA DD - This is the root name to assign to all of the generated equates. 21C?+C?+18 – This is the address expression for assigning the location of the first equate. If you recognize this expression, fine. If not, no big deal. LFOFFSET=0 – This is the offset to each list entry’s length field. If LFOFFSET is omitted, then all the list entries have the same size which has to be provided by a TESIZE= operand. EQ DD 21C?+C?+18 LFOFFSET=0 LFWIDTH=1 MAXCLONE=200 DATA DD - This is the root name to assign to all of the generated equates. 21C?+C?+18 – This is the address expression for assigning the location of the first equate. If you recognize this expression, fine. If not, no big deal. LFOFFSET=0 – This is the offset to each list entry’s length field. If LFOFFSET is omitted, then all the list entries have the same size which has to be provided by a TESIZE= operand. LFWIDTH=1 - This is the byte-width of the length field. (The default is =4.) MAXCLONE=200 – This puts a limit on the number of equates to create. It’s number of digits also sets the number of digits to use for the sequence numbers that are appended to the generated equate names. DATA - This assigns the DATA attribute to the generated equates. This prevents storage from being misinterpreted as instructions. (DD entry) len

  6. Contiguous Lists – The TIOT Jobstep TCB ASCBXTCB [to jobstep] ASCB TCB JES2’sASCB Points to current FASM’s ASCB TIOT (header) (entry) len @ASCB @ASCB @ASCB @ASCB len (entry) Built-in z/XDC equate len (entry) SET ASID JES2 (entry) len (entry) len . . . len 00

  7. Contiguous Lists – The TIOT DBCOLE.D(TIOT) DMAP XDCMAPS.ASCB DM .TCB USING ASCB @ASCB FLOAT DBCOLE.D(TIOT) DMAP XDCMAPS.ASCB DM .TCB USING ASCB @ASCB FLOAT USING TCB .ASCBXTCB? F DBCOLE.D(TIOT) DMAP XDCMAPS.ASCB DM .TCB DBCOLE.D(TIOT) DMAP XDCMAPS.ASCB DM .TCB USING ASCB @ASCB FLOAT USING TCB .ASCBXTCB? F EQ TIOT .TCBTIO? 1000 DATA FLOAT EQ DD TIOT+18 LFOFFSET=0 LFWIDTH=1 MAXCLONE=200 DATA FLOAT FORMAT TIOT DBCOLE.D(TIOT) DBCOLE.D(TIOT) DMAP XDCMAPS.ASCB DM .TCB USING ASCB @ASCB FLOAT USING TCB .ASCBXTCB? F EQ TIOT .TCBTIO? 1000 DATA FLOAT EQ DD TIOT+18 LFOFFSET=0 LFWIDTH=1 MAXCLONE=200 DATA FLOAT DBCOLE.D(TIOT) DMAP XDCMAPS.ASCB DM .TCB USING ASCB @ASCB FLOAT USING TCB .ASCBXTCB? F EQ TIOT .TCBTIO? 1000 DATA FLOAT

  8. Contiguous Lists – The TIOT A.S. JES2 -------------------------------------------------- z/XDC TPUT INTERFACE --------------------------------------- XDC ===> [something to notice] [...] 200 EQUATES HAVE BEEN CREATED XDC ===> f tiot _ 00000000_007E3FD0 1 (A.S.JES2) --- JES2:TIOT+0, PRIVATE+7E1FD0 _ +0 TIOT D1C5E2F2 40404040 D1C5E2F2 40404040 40404040 40404040 *JES2 JES2 * _ +18 DD001 14010100 C1D3E3D7 C1D9D440 7EEC2800 80F4F1D0 *....ALTPARM =....41}* _ +2C DD002 14010100 E2E8E2F0 F0F0F0F1 7E179800 80F4F300 *....SYS00001=.q..43.* _ +40 DD003 14010100 5BC8C4E2 E8E2F140 7E191800 80F4F300 *....$HDSYS1 =....43.* _ +54 DD004 14010100 D7D9D6C3 F0F04040 7EC61800 90F51998 *....PROC00 =F...5.q* _ +68 DD005 14010100 40404040 40404040 7EC79800 80F50E50 *.... =Gq..5.&* _ +7C DD006 14010100 40404040 40404040 7EC91800 80F4F300 *.... =I...43.* _ +90 DD007 14010100 40404040 40404040 7ECA9800 80F4F1D0 *.... =-q..41}* _ +A4 DD008 14010100 40404040 40404040 7ECC1800 90F4F988 *.... =....49h* _ +B8 DD009 14010100 40404040 40404040 7ECD9800 80F4F858 *.... =.q..48.* _ +CC DD010 14010100 40404040 40404040 7ECF1800 80F4F1D0 *.... =....41}* _ +E0 DD011 14010100 40404040 40404040 7ED15800 80F4F268 *.... =J...42.* _ +F4 DD012 14010100 40404040 40404040 7ED2D800 80F4F268 *.... =KQ..42.* _ +108 DD013 14010100 40404040 40404040 7ED45800 80F4F988 *.... =M...49h* _ +11C DD014 14010100 40404040 40404040 7ED5D800 80F4F1D0 *.... =NQ..41}* _ +130 DD015 14010100 5BC8C4E2 E8E2F240 7E1A9800 90F51C90 *....$HDSYS2 =.q..5..* _ +144 DD016 14810100 00000000 F0F3F0F6 7E1C1800 81000000 *.a......0306=...a...* _ +158 DD018 DD019 DD020 DD021 DD022 DD023 DD024 DD025 DD026 DD027 DD028 DD029 DD030 _ +158 DD031 DD032 DD033 DD034 DD035 DD036 DD037 DD038 DD039 DD040 DD041 DD042 DD043 _ +158 DD044 DD045 DD046 DD047 DD048 DD049 DD050 DD051 DD052 DD053 DD054 DD055 DD056 _ +158 (OTHERS) _ +158 DD017 00000000 14010100 C8C1E2D7 D7C1D9D4 7EC31800 80F4F1D0 14010100 40404040 *........HASPPARM=C...41}. _ +178 40404040 7EC49800 90F51868 14010100 D7D9D6C3 F0F04040 7EC61800 90F51998 * =Dq..5......PROC00 = A.S. JES2 -------------------------------------------------- z/XDC TPUT INTERFACE --------------------------------------- XDC ===> SET ASID JES2 .DBC878I ASID SET TO 001B (STC JES2) XDC ===> f tiot _ 00000000_007E3FD0 1 (A.S.JES2) --- JES2:TIOT+0, PRIVATE+7E1FD0 _ +0 TIOT D1C5E2F2 40404040 D1C5E2F2 40404040 40404040 40404040 *JES2 JES2 * _ +18 DD001 14010100 C1D3E3D7 C1D9D440 7EEC2800 80F4F1D0 *....ALTPARM =....41}* _ +2C DD002 14010100 E2E8E2F0 F0F0F0F1 7E179800 80F4F300 *....SYS00001=.q..43.* _ +40 DD003 14010100 5BC8C4E2 E8E2F140 7E191800 80F4F300 *....$HDSYS1 =....43.* _ +54 DD004 14010100 D7D9D6C3 F0F04040 7EC61800 90F51998 *....PROC00 =F...5.q* _ +68 DD005 14010100 40404040 40404040 7EC79800 80F50E50 *.... =Gq..5.&* _ +7C DD006 14010100 40404040 40404040 7EC91800 80F4F300 *.... =I...43.* _ +90 DD007 14010100 40404040 40404040 7ECA9800 80F4F1D0 *.... =-q..41}* _ +A4 DD008 14010100 40404040 40404040 7ECC1800 90F4F988 *.... =....49h* _ +B8 DD009 14010100 40404040 40404040 7ECD9800 80F4F858 *.... =.q..48.* _ +CC DD010 14010100 40404040 40404040 7ECF1800 80F4F1D0 *.... =....41}* _ +E0 DD011 14010100 40404040 40404040 7ED15800 80F4F268 *.... =J...42.* _ +F4 DD012 14010100 40404040 40404040 7ED2D800 80F4F268 *.... =KQ..42.* _ +108 DD013 14010100 40404040 40404040 7ED45800 80F4F988 *.... =M...49h* _ +11C DD014 14010100 40404040 40404040 7ED5D800 80F4F1D0 *.... =NQ..41}* _ +130 DD015 14010100 5BC8C4E2 E8E2F240 7E1A9800 90F51C90 *....$HDSYS2 =.q..5..* _ +144 DD016 14810100 00000000 F0F3F0F6 7E1C1800 81000000 *.a......0306=...a...* _ +158 DD018 DD019 DD020 DD021 DD022 DD023 DD024 DD025 DD026 DD027 DD028 DD029 DD030 _ +158 DD031 DD032 DD033 DD034 DD035 DD036 DD037 DD038 DD039 DD040 DD041 DD042 DD043 _ +158 DD044 DD045 DD046 DD047 DD048 DD049 DD050 DD051 DD052 DD053 DD054 DD055 DD056 _ +158 (OTHERS) _ +158 DD017 00000000 14010100 C8C1E2D7 D7C1D9D4 7EC31800 80F4F1D0 14010100 40404040 *........HASPPARM=C...41}. _ +178 40404040 7EC49800 90F51868 14010100 D7D9D6C3 F0F04040 7EC61800 90F51998 * =Dq..5......PROC00 = TCB#6 RB#1 ------------------------------------------------- z/XDC TPUT INTERFACE --------------------------------------- XDC ===> READ TIOT [...] 200 EQUATES HAVE BEEN CREATED XDC ===> f tiot _ 00000000_007D2FD0 1 (A.S.DBCOLE5) --- TIOT+0, PRIVATE+7D0FD0 _ +0 @CDP _ +0 TIOT C4C2C3D6 D3C5F540 C9E2D7C6 D7D9D6C3 D3D6C7C4 C2C34040 *DBCOLE5 ISPFPROCLOGDBC * _ +18 DD001 14010100 E2E8E2E4 C1C4E240 00006F00 80F4F1D0 *....SYSUADS ..?..41}* _ +2C DD002 14010100 E2E8E2D3 C2C34040 0000EF00 80F4F300 *....SYSLBC .....43.* _ +40 DD003 14010100 E2E8E2C5 E7C5C340 00011F00 80F4F268 *....SYSEXEC .....42.* _ +54 DD004 14010100 40404040 40404040 00014F00 80F4F1D0 *.... ..|..41}* _ +68 DD005 14010100 40404040 40404040 00017F00 80F4F858 *.... .."..48.* _ +7C DD006 14010100 40404040 40404040 0001AF00 80F4F1D0 *.... .....41}* _ +90 DD007 14010100 40404040 40404040 0001DF00 80F4F1D0 *.... .....41}* _ +A4 DD008 14010100 40404040 40404040 00020F00 80F4F268 *.... .....42.* _ +B8 DD009 14010100 C9E2D7C5 E7C5C340 00023F00 80F4F268 *....ISPEXEC .....42.* _ +CC DD010 14010100 40404040 40404040 00026F00 80F4F1D0 *.... ..?..41}* _ +E0 DD011 14010100 40404040 40404040 00029F00 80F4F858 *.... .....48.* _ +F4 DD012 14010100 C9E2D7E2 D3C9C240 0002CF00 80F4F268 *....ISPSLIB .....42.* _ +108 DD013 14010100 40404040 40404040 0002FF00 80F4F268 *.... .....42.* _ +11C DD014 14010100 40404040 40404040 00032F00 80F4F268 *.... .....42.* _ +130 DD015 14010100 40404040 40404040 00036F00 80F4F268 *.... ..?..42.* _ +144 DD016 14010100 40404040 40404040 00039F00 80F4F1D0 *.... .....41}* _ +158 DD017 14010100 40404040 40404040 0003CF00 80F4F1D0 *.... .....41}* _ +16C DD018 14010100 40404040 40404040 0003FF00 80F4F1D0 *.... .....41}* _ +180 DD019 14010100 40404040 40404040 00042F00 80F4F1D0 *.... .....41}* _ +194 DD020 14010100 40404040 40404040 00045F00 80F4F268 *.... ..¬..42.* _ +1A8 DD021 14010100 40404040 40404040 00048F00 80F4F268 *.... .....42.* Something to Notice! Every time z/XDC displays storage, it has to reresolve all floating equates. This is in order to see if any apply to the storage being displayed! The more floating equates there are, the longer that takes! EQ DD TIOT+18 LFOFFSET=0 LFWIDTH=1 MAXCLONE=200 DATA FLOAT EQ DD TIOT+18 LFOFFSET=0 LFWIDTH=1 MAXCLONE=200 DATA FLOAT

  9. Chained Lists TCB#10 RB#3 ------------------------------------------------ z/XDC ISPF INTERFACE XDC ===> format dmynarrow _ 00000000_1267F890 9f (A.S.DBCOLE3) --- DMY+0, XPRIVATE+27F890 _+0 DMYCHAIN DMYCFAP @CDP _ +0 DMY 12672698 12672698 *...q* _ +4 04 4 *.* _ +5 DMYNAME C1E2C3C2 40404040 40404040 40404040 *ASCB * _ +15 40404040 40404040 40404040 40404040 * * _ +25 40404040 40404040 40404040 40404040 * * _ +35 40404040 40404040 40404040 404040 * * _ +44 DMYTYPE 02 2 *.* _ +45 DMYSEQ#W 00 0 *.* _ +46 DMYCTEXT 00 0 *.* _ +47 DMYFCODE 00 0 *.* _ +48 DMYBA_HI _ +48 DMYBAD64 00000000 +0 *....* _ +4C DMYBA_LO 00FBE700 @ASCB+0 *..X.* _ +50 DMYBALET 00000000 +0 *....* _ +54 DMYBAS_F 0000004C 4C *...<* _ +58 DMYBSPFL 80 128 *.* _ +59 000000 0 *...* _ +5C DMYRCDWN 00000000 +0 *....* _ +60 DMYTWA 00077E88 77E88 *..=h* _ +64 DMYDSCAN 00000000 +0 *....* _ +68 DMYXDOOR 0000 +0 *..* _ +6A DMYRSLVD 0043 +67 *..* _ +6C DMYCNEXT 00000000 +0 *....* _ +70 DMYARFLG C0 192 *{* _ +71 DMYSCOPE 00 0 *.* _ +72 DMYADDRO 0C 12 *.* _ +73 11 17 *.* _ +74 DMYADDRS C4E2C5C3 E340C1E2 C3C27A40 7C81A283 *DSECT ASCB: @asc* _ +84 82000000 00000000 00000000 00000000 *b...............*

  10. Chained Lists DMY1 DMY1 DMY3 DMY2 DMY2 DMY6 DMY3 DMY4 DMY4 DMY5 DMY5 DMY6

  11. Chained Lists TCB#10 RB#3 ------------------------------------------------ z/XDC ISPF INTERFACE---------- XDC ===> L MAPS;;;USING DMY .GBLDMYQH? CFOFFSET=0 CFWIDTH=4 ZCVALUE=0 MAXCLONE=99;;;L MAPS NO LOAD MODULES OR CSECTS ARE MAPPED THE FOLLOWING DSECTS ARE MAPPED _ GBL ------------------ 1253C000 (00000C8C) - R11? DMY ------------------ INACTIVE (000001EE) 9 DSECTS HAVE BEEN CREATED NO LOAD MODULES OR CSECTS ARE MAPPED THE FOLLOWING DSECTS ARE MAPPED _ DMY09 ---------------- 1267FB50 (000001EE) _ DMY08 ---------------- 12672958 (000001EE) _ DMY07 ---------------- 1267F3E0 (000001EE) _DMY06 ---------------- 1267F6A0 (000001EE) _DMY05 ---------------- 12672118 (000001EE) _ DMY04 ---------------- 1267FE10 (000001EE) _ DMY03 ---------------- 126723D8 (000001EE) _ DMY02 ---------------- 12672698 (000001EE) _ DMY01 ---------------- 1267F890 (000001EE) _ DMY ------------------ 1267F890 (000001EE) _ GBL ------------------ 1253C000 (00000C8C) - R11? TCB#10 RB#3 ------------------------------------------------ z/XDC ISPF INTERFACE---------- XDC ===> L MAPS NO LOAD MODULES OR CSECTS ARE MAPPED THE FOLLOWING DSECTS ARE MAPPED _ GBL ------------------ 1253C000 (00000C8C) - R11? DMY ------------------ INACTIVE (000001EE) TCB#10 RB#3 ------------------------------------------------ z/XDC ISPF INTERFACE---------- XDC ===> L MAPS;;;USING DMY .GBLDMYQH? CFOFFSET=0 CFWIDTH=4 ZCVALUE=0 MAXCLONE=99 NO LOAD MODULES OR CSECTS ARE MAPPED THE FOLLOWING DSECTS ARE MAPPED _ GBL ------------------ 1253C000 (00000C8C) - R11? DMY ------------------ INACTIVE (000001EE) 9 DSECTS HAVE BEEN CREATED TCB#10 RB#3 ------------------------------------------------ z/XDC ISPF INTERFACE---------- XDC ===> L MAPS;;;USING DMY .GBLDMYQH? CFOFFSET=0 CFWIDTH=4 ZCVALUE=0 MAXCLONE=99;;;L MAPS NO LOAD MODULES OR CSECTS ARE MAPPED THE FOLLOWING DSECTS ARE MAPPED _ GBL ------------------ 1253C000 (00000C8C) - R11? DMY ------------------ INACTIVE (000001EE) 9 DSECTS HAVE BEEN CREATED NO LOAD MODULES OR CSECTS ARE MAPPED THE FOLLOWING DSECTS ARE MAPPED _ DMY09 ---------------- 1267FB50 (000001EE) _ DMY08 ---------------- 12672958 (000001EE) _ DMY07 ---------------- 1267F3E0 (000001EE) _ DMY06 ---------------- 1267F6A0 (000001EE) _ DMY05 ---------------- 12672118 (000001EE) _ DMY04 ---------------- 1267FE10 (000001EE) _ DMY03 ---------------- 126723D8 (000001EE) _ DMY02 ---------------- 12672698 (000001EE) _ DMY01 ---------------- 1267F890 (000001EE) _ DMY ------------------ 1267F890 (000001EE) _ GBL ------------------ 1253C000 (00000C8C) - R11? TCB#10 RB#3 ------------------------------------------------ z/XDC ISPF INTERFACE---------- XDC ===> L MAPS;;;USING DMY .GBLDMYQH? CFOFFSET=0 CFWIDTH=4 ZCVALUE=0 MAXCLONE=99;;;L MAPS NO LOAD MODULES OR CSECTS ARE MAPPED THE FOLLOWING DSECTS ARE MAPPED _ GBL ------------------ 1253C000 (00000C8C) - R11? DMY ------------------ INACTIVE (000001EE) 9 DSECTS HAVE BEEN CREATED NO LOAD MODULES OR CSECTS ARE MAPPED THE FOLLOWING DSECTS ARE MAPPED _ DMY09 ---------------- 1267FB50 (000001EE) _ DMY08 ---------------- 12672958 (000001EE) _ DMY07 ---------------- 1267F3E0 (000001EE) _DMY06 ---------------- 1267F6A0 (000001EE) FDMY05 ---------------- 12672118 (000001EE) _ DMY04 ---------------- 1267FE10 (000001EE) _ DMY03 ---------------- 126723D8 (000001EE) _ DMY02 ---------------- 12672698 (000001EE) _ DMY01 ---------------- 1267F890 (000001EE) _ DMY ------------------ 1267F890 (000001EE) _ GBL ------------------ 1253C000 (00000C8C) - R11?

  12. Chained Lists TCB#10 RB#3 ------------------------------------------------ z/XDC ISPF INTERFACE ------------------------------------------------ XDC ===> _ 00000000_12672118 9f(A.S.DBCOLE3) --- DMY05+0, XPRIVATE+272118 _ +0 DMYCHAIN DMYCFAP DMY @CDP _ +0 DMY05 1267F6A0 DMY06.DMYCHAIN *..6.* _ +4 04 4 *.* _ +5 DMYNAME D1E2C3C2 40404040 40404040 40404040 40404040 40404040 40404040 40404040 *JSCB * _ +25 40404040 40404040 40404040 40404040 40404040 40404040 40404040 404040 * * _ +44 DMYTYPE 02 2 *.* _ +45 DMYSEQ#W 00 0 *.* _ +46 DMYCTEXT 00 0 *.* _ +47 DMYFCODE 00 0 *.* _ +48 DMYBA_HI _ +48 DMYBAD64 00000000 +0 *....* _ +4C DMYBA_LO 007FC8C4 7FC8C4 *."HD* _ +50 DMYBALET 00000000 +0 *....* _ +54 DMYBAS_F 0000004C 4C *...<* _ +58 DMYBSPFL 40 64 * * _ +59 000000 0 *...* _ +5C DMYRCDWN 00000000 +0 *....* _ +60 DMYTWA 00077E88 77E88 *..=h* _ +64 DMYDSCAN 00000000 +0 *....* _ +68 DMYXDOOR 0000 +0 *..* _ +6A DMYRSLVD 0043 +67 *..* _ +6C DMYCNEXT 00000000 +0 *....* _ +70 DMYARFLG C0 192 *{* _ +71 DMYSCOPE 00 0 *.* _ +72 DMYADDRO 0C 12 *.* _ +73 18 24 *.* _ +74 DMYADDRS C4E2C5C3 E340D1E2 C3C27A40 E3C3C24B A3838291 A283826C 00000000 00000000 *DSECT JSCB: TCB.tcbjscb%........* _ +94 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 *................................*

  13. Contiguous Lists – The TIOT USING DMY .GBLDMYQH? CFOFFSET=0 CFWIDTH=4 ZCVALUE=0 MAXCLONE=99 DMY - This is the name of the map to be cloned. It must have already been loaded by a DMAP command. .GBLDMYQH? – This is the address expression for assigning the location of the first cloned map (DMY01). USING DMY .GBLDMYQH? CFOFFSET=0 CFWIDTH=4 ZCVALUE=0 MAXCLONE=99 DMY - This is the name of the map to be cloned. It must have already been loaded by a DMAP command. .GBLDMYQH? – This is the address expression for assigning the location of the first cloned map (DMY01). CFOFFSET=0– This is the offset to the control block’s chain field. (The default =0, so I could have omitted this operand.) USING DMY .GBLDMYQH? CFOFFSET=0 CFWIDTH=4 ZCVALUE=0 MAXCLONE=99 DMY - This is the name of the map to be cloned. It must have already been loaded by a DMAP command. USING DMY .GBLDMYQH? CFOFFSET=0 CFWIDTH=4 ZCVALUE=0 MAXCLONE=99 DMY - This is the name of the map to be cloned. It must have already been loaded by a DMAP command. .GBLDMYQH? – This is the address expression for assigning the location of the first cloned map (DMY01). CFOFFSET=0– This is the offset to the control block’s chain field. (The default =0, so I could have omitted this operand.) CFWIDTH=4 - This is the byte-width of the chain field. (The default =4, so again, I could have omitted this operand.) ZCVALUE=0 - This is the chain field value that indicates the end of the chain. (The default =0, so this too could have omitted.) USING DMY .GBLDMYQH? CFOFFSET=0 CFWIDTH=4 ZCVALUE=0 MAXCLONE=99 DMY - This is the name of the map to be cloned. It must have already been loaded by a DMAP command. .GBLDMYQH? – This is the address expression for assigning the location of the first cloned map (DMY01). CFOFFSET=0– This is the offset to the control block’s chain field. (The default =0, so I could have omitted this operand.) CFWIDTH=4 - This is the byte-width of the chain field. (The default =4, so again, I could have omitted this operand.) USING DMY .GBLDMYQH? CFOFFSET=0 CFWIDTH=4 ZCVALUE=0 MAXCLONE=99 USING DMY .GBLDMYQH? CFOFFSET=0 CFWIDTH=4 ZCVALUE=0 MAXCLONE=99 DMY - This is the name of the map to be cloned. It must have already been loaded by a DMAP command. .GBLDMYQH? – This is the address expression for assigning the location of the first cloned map (DMY01). CFOFFSET=0– This is the offset to the control block’s chain field. (The default =0, so I could have omitted this operand.) CFWIDTH=4 - This is the byte-width of the chain field. (The default =4, so again, I could have omitted this operand.) ZCVALUE=0 - This is the chain field value that indicates the end of the chain. (The default =0, so this too could have omitted.) MAXCLONE=99 – This puts a limit on the number of maps to create. It’s number of digits also sets the number of digits to use for the sequence numbers that are appended to the generated map names. USING DMY .GBLDMYQH? CFOFFSET=0 CFWIDTH=4 ZCVALUE=0 MAXCLONE=99 DMY - This is the name of the map to be cloned. It must have already been loaded by a DMAP command. .GBLDMYQH? – This is the address expression for assigning the location of the first cloned map (DMY01). CFOFFSET=0– This is the offset to the control block’s chain field. (The default =0, so I could have omitted this operand.) CFWIDTH=4 - This is the byte-width of the chain field. (The default =4, so again, I could have omitted this operand.) ZCVALUE=0 - This is the chain field value that indicates the end of the chain. (The default =0, so this too could have omitted.) MAXCLONE=99 – This puts a limit on the number of maps to create. It’s number of digits also sets the number of digits to use for the sequence numbers that are appended to the generated map names. The command, with all the default operands omitted, could have been… USING DMY .GBLDMYQH? MAX=99

  14. Last Page TCB#5 RB#1 -------------------------------------------------XDC-CDF ISPF INTERFACE ------------------------------------- XDC ===>Any Questions? XDC ===>L PSW;L EPSW;L RWREGS;;L AREGS _ PSW 078D0000 92D03718 (cc-EQ) (31) - .AGOTADAT _ EPSW 078D0000 92D0371A (cc-EQ) (31) - .XDCADATA.+CDA _ RW0 00000000_000000D4 00000000_0000E0B8 FFFFFFFF_131D70E0 FFFFFFFF_000000E0 *.......M......\........\.......\* _ RW4 FFFFFFFF_0005D074 FFFFFFFF_00000000 FFFFFFFF_131D7000 FFFFFFFF_92402B52 *......}.....................k ..* _ RW8 FFFFFFFF_0003BAB0 FFFFFFFF_0003BA94 FFFFFFFF_0000E0B8 FFFFFFFF_12472170 *...............m......\.........* _ RW12 FFFFFFFF_12D04E98 00000000_12586FF0 00000000_0000030F 00000000_131D70E0 *.....}+q......?0...............\* _ AR0 00000ED4 00000000 FFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF *...M............................* _ AR8 FFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 00000000 00000000 *................................* Any Questions?

More Related