Ulrich, and interested persons... The OLD, OLD, OLD COBOLs required for you to define the RDW and all the rest of the information before you could process the file. Newer COBOLs look at the DCB for you and decide what has to be done. The record still has to be defined (as others have shown) so you can reference the content but that's about all.
Oh, and the FD could specify from 5 (the smallest possible) to the max record + 4 ( which is 1500+4 = 1504 in this case.) If you just want to create an FB file, you could use IEB/ICEGENER and read the SYSUT1 as (RECFM=VB,LRECL=1504,BLKSIZE=0) and SYSUT2 as (RECFM=FB,LRECL=1500,BLKSIZE=0). I haven't tried that but I believe it will work. **It wastes a lot of space though.** Regards, Rob Weiss z/SWITA and z/Series I/T Security and Privacy Consultant IBM Software Group Sales IBM Mainframe Discussion List <[email protected]> wrote on 06/12/2006 12:32:01 PM: > Ulrich Krueger wrote: > > My COBOL is getting a little rusty from disuse ... but, > > (1) shouldn't the FD clause in the sample program below contain > > DATA RECORDS ARE x, y, z > > (where x, y, z refer to the 01-level record layout descriptions? > > Whoa! That's way out of date! > > The compiler figures out what the records are simply > by the presence of the 01 level(s) below the FD. > > > > (2) what about the clause > > RECORD VARYING FROM 59 TO 1500 CHARACTERS > > Shouldn't the values inlcude the 4 bytes RDW, in other words, shouldn't it > > read > > RECORD VARYING FROM 63 TO 1504 CHARACTERS ??? > > No. The programmer [theoretically] has no access to the RDW; > the compiler makes the necessary adjustments. > > > > > I'd appreciate some refresher on that and I'd also appreciate if the OP > > would be so good and post a fragment of the code that works for him, after > > all the bugs have been worked out, just so we can all learn from it. ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
