Home The Company Publications Products Links Tips Jobs

How to Determine the Length of an ADABAS Record

TEST DBUG or ZZLIST

By Dieter W. Storr

Last update: 20 September 2008

Question:

How can I determine the record buffer length of an Adabas record?

Answers

1) Using TEST DBUG
  • If the view does not exist as an external data area
    • Invoke the data editor
    • Insert the view via the .V line command, selecting all data fields
    • Enter the GEN command
    • Set the module type to P
    • Add these lines to the end of the module
      • READ (1) view-name PHYSICAL
      • END-READ
      • END
  • If the view exists as an external data area
    • Create a program
      • DEFINE DATA LOCAL USING lda
      • END-DEFINE
      • READ (1) view-name PHYSICAL
      • END-READ
      • END
    • STOW the program
  • Enter the following commands to execute the new program
    • TEST DBLOG
    • pgm-name
    • TEST DBLOG
  • Enter action code C on the line containing the L2 (Read Physical) command
  • Convert the hexadecimal RB Length value to decimal via the Windows calculator 
11:05:50             ***** NATURAL TEST UTILITIES *****                2008-09-20
User DIETER   	                - DBLOG Trace -                  Library DIETER  
M   No Cmd   DB   FNR  	Rsp        ISN 	       ISQ  CID CID(Hex) OP Pgm      Line
_    1 RC   197                                         00000000 F  ATEST    7110
C    2 L2   200    22   45          3             ??? 00300101    CA-TEST  0030
_ +=============================================================================+
_ |  _  SEQ NO ..     2  PROGRAM .. CA-TEST   LINE .. 0030                    	|
_ | Command Code .. L2      Command ID ...  ??? 00300101 CB Start ... 00D5 	|
_ | Response Code . 002D    ISN ..........          3 	 FNR first .. 00 	|
_ | ISN Low Limit .         ISN Quantity .            	 FNR last ... 16 	|	 
_ | FB Length ..... 039F    RB Length .... 759C          SB Length .. 0000      |
_ | VB Length ..... 0000    IB Length .... 0000                                 |
_ | Command Opts ..       0000                                             	|
_ | Additions 1 ...       4040404040404040    Command Time .. 	00000000 	|   	 
_ | Additions 2 ... ¾     000000B9            User Area ..... 	00000000 	|   	 
_ |                                                                          	|
_ | Additions 3 ...       0000000000000000 	                                |	 
_ | Additions 4 ... È H   40404040407400C8 	                                | 
_ | Global FID .... F8C3061F9ED3E60F 	                                        | 
_ +=============================================================================+
      
Command ===> 

X'759C' = 30,108
2) ZZLIST

ZZLIST is part of the ZZUtils package from LEN Consulting LLC. More about ZZUtils

If the view does not exist as an external data area

  • Invoke the data editor
  • Insert the view via the .V line command, selecting all data fields
  • STOW the data area
  • List the data area via ZZLIST
  • The record length is found in the End column of the last report line
Beware that ZZLIST’s calculations may be confused by an MU within a PE.

Top Page


Back to NATURAL Tips, Tricks, Techniques -- Overview