IBM Version 4 manual QDBRSV28, Dspcname Dfilename Dfmtname Dfileused Dlibname Dspcsize, Attrkey

D\		Offset from the start of the
D\		FDT header, Qdbfh, to the
D\		Journal Section, Qdbfjoal.
D QDBRSV28	383	4ðð
D\		Reserved.

D\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

D\

D\The FDT header ends here. D\ D\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

D\
D\ Misc. elements
D\
DSPC_NAME		S	2ð
DFILE_NAME		S	2ð
DFMT_NAME		S	1ð
DFILE_USED		S	2ð
DLIB_NAME		S	1ð
DSPC_SIZE		S	9B ð
DSPC_INIT		S	1	INZ(X'ðð')
DSPCPTR		S	\
DFORMAT		S	8
DOVERRIDES		S	1	INZ('ð')
DSYSTEM		S	1ð	INZ('\LCL')
DFORMAT_1		S	1ð	INZ('\INT')
DCHG_ATTR		DS
D NBR_ATTR			9B ð INZ(1)
D ATTR_KEY			9B ð INZ(3)
D DATA_SIZE			9B ð INZ(1)
D ATTR_DATA			1	INZ('1')
C\
C\ Start of mainline
C\
C	\ENTRY	PLIST
C		PARM		SPC_NAME
C		PARM		FILE_NAME
C		PARM		FMT_NAME
C\
C		EXSR	INIT
C		EXSR	PROCES
C		EXSR	DONE
C\
C\ Start of subroutines
C\
C\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
C	PROCES	BEGSR

C\

C\ The template returned from QDBRTVFD is now addressable￿ by way C\ of SPCPTR; as an example the program will now display the￿

C\ access method for the file:
C\
C		DSPLY	QDBFPACT
C		ENDSR
C\
C\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
C	INIT	BEGSR
C\
C\ One time initialization code for this program
		Appendix	B. Original Examples in Additional BLanguages-163