16 lines
768 B
Plaintext
16 lines
768 B
Plaintext
/******************************************************************************
|
||
* I B M D O S F i l e C o n t r o l B l o c k D e c l a r a t i o n *
|
||
******************************************************************************/
|
||
/* Change FCB names as necessary; types should not be changed */
|
||
1 fcb based(fcb_ptr),
|
||
2 drive fixed(7),
|
||
2 name character(8),
|
||
2 type character(3),
|
||
2 current_block bit(16),
|
||
2 record_size bit(16),
|
||
2 file_size(2) bit(16),
|
||
2 date bit(16),
|
||
2 reserved(10) bit(8),
|
||
2 current_rec bit(8),
|
||
2 rand_rec_no(2) bit(16);
|
||
|