/* BEGIN: rs_attach_block.incl.pl1 * * * * * */ /****^ HISTORY COMMENTS: 1) change(75-02-13,Asherman), approve(), audit(), install(): Initial coding. 2) change(87-08-30,GWMay), approve(87-08-30,MCR7730), audit(87-09-10,GDixon), install(87-09-10,MR12.1-1104): Changed target_name to be unaligned. END HISTORY COMMENTS */ dcl rsab_ptr ptr; dcl 1 rs_attach_block based (rsab_ptr) aligned, /* record_stream_ attach block */ /* the following are set during attachment */ 2 attach_descrip, 3 attach_descrip_len fixed (35), 3 attach_descrip_string char (66), /* "record_stream_