DTR> show studentlog-rec
RECORD STUDENTLOG-REC
 USING
01 STUDENTLOG-REC.
   15 LASTNAME  PIC IS X(20).
   15 FIRSTNAME PIC IS X(20).
   15 PASSWORD  PIC IS X(10).
   15 CONNECT   PIC IS 9(4) USAGE IS INTEGER  EDIT-STRING IS -Z(5).
   15 LOGINS    PIC IS 9(4) USAGE IS INTEGER  EDIT-STRING IS -Z(5).
   15 LOGOUTS   PIC IS 9(4) USAGE IS INTEGER  EDIT-STRING IS -Z(5).
   15 DATEOFLOGIN       USAGE IS DATE
      EDIT-STRING       IS  DD-MMM-YY.
   15 RSTSDLA   PIC IS 9(4) USAGE IS INTEGER EDIT-STRING IS -Z(5).
   15 PPN.
       25 PROJECT    PIC IS 9(3) USAGE IS INTEGER EDIT-STRING IS -Z(4).
       25 PROGRAMMER PIC IS 9(3) USAGE IS INTEGER EDIT-STRING IS -Z(4).
   15 LASTKBN    PIC IS 9(4) USAGE IS INTEGER  EDIT-STRING IS -Z(5).
   15 LASTJOBN   PIC IS 9(4) USAGE IS INTEGER  EDIT-STRING IS -Z(5).
   15 CPUTIME    PIC IS 9(4) USAGE IS INTEGER  EDIT-STRING IS -Z(5).
   15 MAXCONNECT PIC IS 9(4) USAGE IS INTEGER  EDIT-STRING IS -Z(5).
   15 JDBADDRESS PIC IS 9(4) USAGE IS INTEGER  EDIT-STRING IS -Z(5).
   15 EXTRA      PIC IS X(4).
;
DTR> show s1-8
DOMAIN S1-8
 USING STUDENTLOG-REC ON DB2:[1,0]STU001.008;
DTR> show s254-1
DOMAIN S254-1
 USING STUDENTLOG-REC ON DB2:[254,0]STU254.001;
DTR> ^Z


Ready

run $db2:rmsdsp
DSP>db2:[1,0]stu001.008/fu

DB2:[1,0]STU001.008	FILE ORGANIZATION:	INDEXED   
PROLOGUE VERSION NUMBER:	2
CREATED: 12-JAN-1982 11:32
FILE PROTECTION:  	<60>
RECORD FORMAT:		FIXED=84
RECORD ATTRIBUTES:  	CARRIAGE RETURN
FILE ATTRIBUTES: 
	ALLOCATION= 19	EXTEND QUANTITY=0	BUCKET SIZE=1
AREA NUMBER: 0
	ALLOCATION REMAINING= 2
	BUCKET SIZE=1
			

PRIMARY KEY:	STRING
	DUPLICATES	NO CHANGES
	ROOT VIRTUAL BLOCK NUMBER=4 	ROOT LEVEL=1
 	1ST DATA BUCKET VIRTUAL BLOCK NUMBER=5
	POSITION:	0	
	SIZE:	 	20	
 	TOTAL KEY SIZE=20	MINIMUM RECORD LENGTH=20
 	DATA LEVEL FILL SIZE=512	INDEX LEVEL FILL SIZE=512

ALTERNATE KEY: 	1	STRING
	DUPLICATES	CHANGEABLE
	ROOT VIRTUAL BLOCK NUMBER=6 	ROOT LEVEL=1
 	1ST DATA BUCKET VIRTUAL BLOCK NUMBER=7
	POSITION:	40	
	SIZE:	 	10	
 	TOTAL KEY SIZE=10	MINIMUM RECORD LENGTH=50
 	DATA LEVEL FILL SIZE=512	INDEX LEVEL FILL SIZE=512

ALTERNATE KEY: 	2	2 BYTE INTEGER
	DUPLICATES	CHANGEABLE
	ROOT VIRTUAL BLOCK NUMBER=8 	ROOT LEVEL=1
 	1ST DATA BUCKET VIRTUAL BLOCK NUMBER=9
	POSITION:	72	
	SIZE:	 	2	
 	TOTAL KEY SIZE=2	MINIMUM RECORD LENGTH=74
 	DATA LEVEL FILL SIZE=512	INDEX LEVEL FILL SIZE=512


DSP>db2:[254,0]stu254.001/fu

DB2:[254,0]STU254.001	FILE ORGANIZATION:	INDEXED   
PROLOGUE VERSION NUMBER:	2
CREATED: 12-JAN-1982 11:32
FILE PROTECTION:  	<60>
RECORD FORMAT:		FIXED=84
RECORD ATTRIBUTES:  	CARRIAGE RETURN
FILE ATTRIBUTES: 
	ALLOCATION= 11	EXTEND QUANTITY=0	BUCKET SIZE=1
AREA NUMBER: 0
	ALLOCATION REMAINING= 2
	BUCKET SIZE=1
			

PRIMARY KEY:	STRING
	DUPLICATES	NO CHANGES
	ROOT VIRTUAL BLOCK NUMBER=4 	ROOT LEVEL=1
 	1ST DATA BUCKET VIRTUAL BLOCK NUMBER=5
	POSITION:	0	
	SIZE:	 	20	
 	TOTAL KEY SIZE=20	MINIMUM RECORD LENGTH=20
 	DATA LEVEL FILL SIZE=512	INDEX LEVEL FILL SIZE=512

ALTERNATE KEY: 	1	STRING
	DUPLICATES	CHANGEABLE
	ROOT VIRTUAL BLOCK NUMBER=6 	ROOT LEVEL=1
 	1ST DATA BUCKET VIRTUAL BLOCK NUMBER=7
	POSITION:	40	
	SIZE:	 	10	
 	TOTAL KEY SIZE=10	MINIMUM RECORD LENGTH=50
 	DATA LEVEL FILL SIZE=512	INDEX LEVEL FILL SIZE=512

ALTERNATE KEY: 	2	2 BYTE INTEGER
	DUPLICATES	CHANGEABLE
	ROOT VIRTUAL BLOCK NUMBER=8 	ROOT LEVEL=1
 	1ST DATA BUCKET VIRTUAL BLOCK NUMBER=9
	POSITION:	72	
	SIZE:	 	2	
 	TOTAL KEY SIZE=2	MINIMUM RECORD LENGTH=74
 	DATA LEVEL FILL SIZE=512	INDEX LEVEL FILL SIZE=512


DSP>^Z

Ready