bdfu1m18 | Utilities |
Use this command to display the contents of block headers or logical records (LRECs) in various formats using different types of search criteria.
Requirements and Restrictions
Before using this command, you must first link to the file that you want to access.
Format
|
8013B4|THIS IS CHARACTER DATA|4A5F90
The TPFDF product assumes that the variable starts with hexadecimal data. To start with character data, place a vertical bar at the beginning of the variable. For example:
|STARTING WITH CHARACTER DATA|1F2E3D4E
You can use a different delimiter by setting variable #DBENUFB in the ACPDBE macro. See TPFDF Installation and Customization for more information about the ACPDBE macro.
Additional Information
Examples
The following example displays all the LRECs in the subfile. Each line in the display shows the following information:
+--------------------------------------------------------------------------------+ |User: ZUDFM OA* | | | |System: UDFM0001I TPFDF LREC DISPLAY | | F.A. F404E801 | | 000001 001480 E L M S T R E E T 682186 | | 000002 001480 M A I N S T R E E T 469089 | | 000003 001480 P O S T R O A D 214968 | | 000004 001480 C I R C L E L A N E 326588 | +--------------------------------------------------------------------------------+
The following example displays a range of LRECs in character format.
+--------------------------------------------------------------------------------+ |User: ZUDFM OA*D2-3 | | | |System: UDFM0001I TPFDF LREC DISPLAY | | F.A. F404E801 | | F.A. F404E801 002E | | 000002 001480 M A I N S T R E E T 469089 | | F.A. F404E801 0042 | | 000003 001480 P O S T R O A D 214968 | +--------------------------------------------------------------------------------+
The following example displays a range of LRECs in hexadecimal format.
+--------------------------------------------------------------------------------+ |User: ZUDFM OA*H1-2 | | | |System: UDFM0001I TPFDF LREC DISPLAY | | F.A. F404E801 | | F.A. F404E801 001A | | 000001 001480C5 D3D440E2 E3D9C5C5 E3404040 40682186 | | F.A. F404E801 002E | | 000002 001480D4 C1C9D540 E2E3D9C5 C5E34040 40469089 | +--------------------------------------------------------------------------------+
The following example displays the DSECT labels of the LREC fields with the contents of each field for the first LREC.
+--------------------------------------------------------------------------------+ |User: ZUDFM OA*L1 | | | |System: UDFM0001I TPFDF LREC DISPLAY | | F.A. F404F8F4 | | F.A. F404F8F4 001A ITMNBR 000001 SIZE 0036 KEY 80 | | IR75A80 0003 0019 A 0 0 0 1 B 0 0 0 1 C 0 0 0 1 D | | 0 0 0 1 E 0 0 0 1 | | IR75AK 0003 0005 A 0 0 0 1 | | IR75BK 0008 0005 B 0 0 0 1 | | IR75CK 000D 0005 C 0 0 0 1 | | IR75DK 0012 0005 D 0 0 0 1 | | IR75EK 0017 0005 E 0 0 0 1 | | IR75AL 001C 0001 J | | IR75TXT 001D 0019 T H I S40 I S40 A40 T E S T40 L | | R E C404040400001 | | IR75DAT 001D 0017 T H I S40 I S40 A40 T E S T40 L | | R E C40404040 | | IR75RCN 0034 0002 0001 | +--------------------------------------------------------------------------------+
The following example displays the contents of the header for each prime and overflow block in the subfile in character format.
+--------------------------------------------------------------------------------+ |User: ZUDFM OA*D/HDR | | | |System: UDFM0002I TPFDF BLOCK HEADER DISPLAY | | F.A. F404F8F4 BID- B075 CHK- 00 CTL- 00 PGM- Q X D G | | FCH- 000806B4 BCH- 000806BC NAB- 00BC | | SEQ- 0002 SBA- 00000000 SBC- 00 AUT- 00 | | | | F.A. 000806B4 BID- B075 CHK- 00 CTL- 08 PGM- Q X D G | | FCH- 000806B8 BCH- 00000000 NAB- 00BC | | SEQ- 0002 SBA- 00000000 SBC- 00 AUT- 00 | | | | F.A. 000806B8 BID- B075 CHK- 00 CTL- 08 PGM- Q X D G | | FCH- 000806BC BCH- 00000000 NAB- 00BC | | SEQ- 0002 SBA- 00000000 SBC- 00 AUT- 00 | | | | F.A. 000806BC BID- B075 CHK- 00 CTL- 08 PGM- Q X D G | | FCH- 00000000 BCH- 00000000 NAB- 0050 | | SEQ- 0002 SBA- 00000000 SBC- 00 AUT- 00 | +--------------------------------------------------------------------------------+
The remaining fields are used internally by the TPFDF product.
The following example displays two LRECs that satisfy the search criteria using one key. The display is in hexadecimal format. Byte 12 of each LREC is examined for an equal match with search argument X'E7'.
+--------------------------------------------------------------------------------+ |User: ZUDFM OA*H/KEY1-R-D/12.S-E7.C-EQ | | | |System: UDFM0001I TPFDF LREC DISPLAY | | F.A. F404E801 | | F.A. F404E801 001A | | 000001 000E8040 E3C5E2E3 D3D9C5C3 E701 | | F.A. F404E801 0044 | | 000004 000E9040 E3C5E2E3 D3D9C5C3 E701 | +--------------------------------------------------------------------------------+
The following example displays two LRECs that satisfy search criteria using two keys. The display is in character format. KEY1 examines byte 2 of each LREC (the primary key) for an equal match with search argument X'80'. KEY2 examines byte 12 of each LREC for a "greater than or equal to" match with search argument character 'Y'.
+--------------------------------------------------------------------------------+ |User: ZUDFM OA*D/KEY1-R-D/2.S-80.C-EQ@KEY2-R-D/12.S-|Y.C-GE | | | |System: UDFM0001I TPFDF LREC DISPLAY | | F.A. F404E801 | | F.A. F404E801 0028 | | 000002 000E80 T E S T L R E C Y02 | | F.A. F404E801 0036 | | 000003 000E80 T E S T L R E C Z03 | +--------------------------------------------------------------------------------+
References