Filter
Top Products
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 Languages B-163