pro wrt1ada, rec1, gen_index, lun, bytout, att, hxa_scan_arr, ihxa_scan
;
;
;
ref_struct, ref
rsiz = ref.ATT_Fil_Rec_Siz
;
gen_index.nIndexByte	= get_nbytes(gen_index)
gen_index.nDataByte	= get_nbytes(att)
;
rdwrt, 'W', lun, bytout, rsiz, gen_index, 1
rdwrt, 'W', lun, bytout, rsiz, att, 1
;
end