Home The Company Publications Products Links Tips Jobs

User-Defined Block Sizes

Adding New Devices

By Dieter W. Storr

Last update: 14 November 2006

Question

How to add new device types in ADAIOR, which include user-defined block sizes?

Answer

All ADABAS versions are using ADAIOR's table of device-constant entries (TDCEs) to define device types. A TDCE entry is X40' bytes long. Beginning with ADABAS version 7.1, TDCE entries are located in the ADAIOS CSECT TDCON. The first free TDCE is at offset X'0580'.
Click here to read the documentation for ADABAS Version 8.1.2. 
ADAIOS TDCON 
000000   33802261  0E000000  5BB4000F  00000000   001307D4  00000009  12D40000  00081574
000020   00000006  1D340000  00081574  00000009   12D40000  00000000  00000000  00000000
000040   83801061  0E000000  5BB4000F  00000000   000C0D94  00000007  18D40000  00052374
000060   00000005  23740000  00052374  00000005   23740000  00000000  00000000  00000000
000080   83812561  0E000000  5BB4000F  00000000   000C0D94  00000005  23740000  00042CD4
0000A0   00000005  23740000  00042CD4  00000005   23740000  00000000  00000000  00000000
(snip)
000540   44444471  00000000  7FF8000F  00000000   00017FF8  00000001  7FF80000  00017FF8
000560   00000001  7FF80000  00017FF8  00000001   7FF80000  00000000  00000000  00000000
000580   00000000  00000000  00000000  00000000   00000000  00000000  00000000  00000000
0005A0   00000000  00000000  00000000  00000000   00000000  00000000  00000000  00000000
(snip)
The following job adds new device type '9990' to offset X'0580':
ASSO: 3768
DATA: 7548
WORK: 27990 
//DEV9990  EXEC PGM=AMASPZAP,PARM=IGNIDRFULL       
//SYSLIB   DD DISP=SHR,DSN=SYS3.ADABAS.ADA812.LOAD 
//SYSPRINT DD SYSOUT=*                             
//SYSIN    DD *                                    
  NAME ADAIOS   TDCON                              
* PREVIOUS DEVICE:                                 
  VER 0540 4444                                    
* DEVICE:                                          
  VER 0580 0000                                    
  REP 0580 9990                                    
* CONSTANT SET NUMBER:                   
  VER 0582 00                            
  REP 0582 2E                            
* ECKD FLAG:                             
  VER 0583 00                            
  REP 0583 61                            
* OS-DEPENDENT DEVICE CODES:             
  VER 0584 00000000                      
  REP 0584 0F000000                      
* MAXIMUM SEQUENTIAL BLOCKSIZE:          
  VER 0588 0000                          
  REP 0588 6D5E                          
* TRACKS PER CYLINDER:                   
  VER 058A 0000                          
  REP 058A 000F                          
* NOT USED IN OS/390, Z/OS               
  VER 058C 0000                          
  VER 058E 0000                          
* ASSO BLOCKS PER TRACK, BLOCKSIZE, FLAG:
  VER 0590 000000000000                   
  REP 0590 000D0EB80000                   
* DATA BLOCKS PER TRACK, BLOCKSIZE, FLAG: 
  VER 0596 000000000000                   
  REP 0596 00071D7C0000                   
* WORK BLOCKS PER TRACK, BLOCKSIZE, FLAG: 
  VER 059C 000000000000                   
  REP 059C 00026D560000                   
* TEMP BLOCKS PER TRACK, BLOCKSIZE, FLAG: 
  VER 05A2 000000000000                   
  REP 05A2 00026D560000                   
* PLOG BLOCKS PER TRACK, BLOCKSIZE, FLAG: 
  VER 05A8 000000000000                   
  REP 05A8 00026D560000                   
* CLOG BLOCKS PER TRACK, BLOCKSIZE, FLAG: 
  VER 05AE 000000000000                   
  REP 05AE 00026D560000                   
* IDR DATA:                               
  IDRDATA DEV9990                         
  DUMP ADAIOS   TDCON

Top Page

Back to ADABAS Tips, Tricks, Techniques -- Overview