On 2016-04-13 18:33, Savor, Thomas (Alpharetta) wrote: > >> What are you trying to do? > > Well I read though the directory, Execute a FIND on Member Name, then Execute > a READ on the Source Code. > This Source Code is our Cobol or Assembler programs or copybooks, that I will > pull certain tagged code from one library to another. PDS works fine, but > PDSe isn’t telling me when I get a short block. Program thinks its getting a > full block read no matter whether program has 50 records or 500 records. I > cant tell when there aren’t enough records to fill whole block. > And if your member, by happenstance, exactly fills the whole last block, what happens? Or have you just been lucky to date?
> Like I said, maybe I got lucky or it was an accident.....but I used RECFM=U > definition for our Source Code library and looking DCBLRECL after executing > each READ macro gave me actual block size....full or short. That allowed me > to calculate when a member was finished. > I would expect that each member is followed by an end-of-file, causing an EODAD exit to be entered. I'd be surprised if PDSE doesn't behave that way. Use QSAM with LRECL=80. -- gil ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
