The plumbing needed to implement Paul Gilmartin's suggestion is more complex than he perhaps implies it to be. An implementation is straightforward in PL/I, e.g.,
declare infile file record sequential buffered ; ... declare read_file aligned bit ; /* boolean */ ... on endfile(infile) read_infile = '0'b ; ... open file(infile) input ; ... read_infile = '1'b ; do while(read_infile) repeat(read_infile) ; read file(infile) set(inrecp) ; end ; Unfortunately there is nothing in COBOL corresponding to the asynchronously entered ON unit here. COBOL is resolutely synchronous. John Gilmore, Ashland, MA 01721 - USA ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
