If you've ever needed to look at a format 1 DSCB bit by bit, you know it can be confusing. The LABEL parameter of the LISTDS command gives you the DSCB in hex, but it is hard to find individual settings, and an IEHLIST LISTVTOC listing isn't very readable. This ISPF edit macro will take that output and format it. Or you can just specify a data set name as an operand to the macro command and it will get the DSCB and format it. The values shown are based on the old published Format 1 DSCB mappings.
DSCB is available as source code.
Thanks to Gary Gindler for the dscb date conversion code! (new in V2.00)
To save the source code using Netscape or Internet Explorer, select the link above with the right mouse button and
select 'Save Link As...' or Save Target as...'
Show a formatted listing of the FORMAT1 DSCB for a data set.
DSCB
DSCB dsname
DSCB *where dsname is the name of the data set whose DSCB is to be shown. Use * for the data set being edited. If the data set already contains the output of the LISTDS dsnameLABEL command, then you can just enter DSCB with no operands.
DSCB can also be called as a TSO command. It will create its own edit session in this case. That means you can also use the DSCB command from a list like option 3.4 (data set list).
- Place dscb.txt in a library allocated to SYSEXEC or SYSPROC.
NADEL.CLIST
--RECFM-LRECL-BLKSIZE-DSORG
VB 255 27998 PO
--VOLUMES--
PRM910
--FORMAT 1 DSCB--
F1 D7D9D4F9F1F0 0001 5C00A8 000000 03 00 00 C9C2D4D6E2E5E2F24040404040
6300E180000000 0200 50 20 6D5E 00FF 00 0000 82 8000004A 002606 71D2 0000
01000106000901090001 01010141000001410000 0102007400000078000D 000000000
DSCB Format ........... F1
Volume Serial ......... D7D9D4F9F1F0 'PRM910'
Volume Sequence num ... 0001
Create Date ........... 5C00A8
Expiration Date ....... 000000
Extents ............... 03 (3)
ds1nodbd .............. 0200
Flag 1 ................ 00
0... .... Compressible Extended
.0.. .... Checkpointed Data Set
System Code ........... C9C2D4D6E2E5E2F24040404040 'IBMOSVS2 '
Reference Date ........ 6300E1
SMS Flags ............. 80
1... .... SMS Data set
.0.. .... SMS Uncataloged
..0. .... May be reblocked
...0 .... DADSM created orig blksz
.... 0... PDSE
.... .0.. Striped data set
.... ..0. HFS if PDSE is also on
.... ...0 Extended attributes exist
Secondary Space ext ... 000000
0... .... Average record length is 0
.0.. .... Megabytes (0)
..0. .... Kilobytes (0)
...0 .... Bytes (0)
.... 0... Compacted by 256 (0)
.... .0.. Compacted by 64K (0)
Dataset Org ........... 0200
0000 001. Partitioned Organization
.... ...0 Unmovable
Record Format ......... 50
01.. .... Variable
..0. .... Track Overflow
...1 .... Blocked
.... 0... Standard (F) or Spanned (V)
.... .00. No Control Character
Optcd ................. 20
.... ...0 OPTCD=J
Block Length .......... 6D5E (27998)
Record Length ......... 00FF (255)
Key Length ............ 00 (0)
Relative Key Pos ...... 0000 (0)
Dataset Indicators .... 82
1... .... End of Data on this Vol
.0.. .... Def w/ racf discrete profile
..0. .... Block length is a multiple of 8
...0 .... Password required
.... 0... Password indicator bit (see doc)
.... ..1. DS opened for output since backup
.... ...0 Secure checkpoint data set
Allocation parms ...... 8000004A
10.. .... Track request
..0. .... Mass Storage Volume
...0 .... Secondary space descriptor exists
.... 0... Contiguous request
.... .0.. MXIG request
.... ..0. ALX request
.... ...0 Round
DS1LSTAR .............. 002606
Track Balance ......... 71D2 (29138)
|