RE: Variable length record in different files

[Buck Calabro <Buck.Calabro@xxxxxxxxxxxx>]

Jim Langston wrote:

>Some of these files have record lengths
>of 92, some 112, etc..  I'm 99% sure
>that if I just specified the longest
>record length of 112 and internally
>described the file it wouldn't not work
>the way I wanted to at all.

It would work just the way you want it to.  Declare a large record length,
program describe the input and  off you go.  I would use the INFDS to get
the *actual* record length and do a substring of it like so:

     h dftactgrp(*no) actgrp('QILE')
     h option(*srcstmt: *nodebugio) debug
      * dbgview(*list)

     fsource    ip   f  512        disk    infds(sourceDS)

     dsourceDS         ds
     d rcdLen                125    126I 0
     d mbrName               129    138
     d fileType              147    148I 0

     isource    aa  01
     i                                  1    6 0srcSeq
     i                                  7   12 0srcDate
     i                                 13  512  srcData
  --buck
ps - you can use OVRDBF file mbr(*ALL) to process all the members in a
single source file in one pass.