RE: Knotty puzzle with chaining to files not known at compile time

Program described files is the way to go.  Hey this brings back memories 
of
the old S/3 15D.

Joe you hit the bullseye again, you  said 

Works like a charm.  The only thing you would have to do is have THREE 

files

with USROPN; one each with key lengths of 14, 16 and 18.  Open the
appropriate file based on the key length.

Just a small point, one Fspec will do. Just use a Key length of 99 or so.

Obviously field dummy can be moved to whatever data structure you want.
If the records in the file had some sort if ID you could even set up
I specs to map the data into proper fields.

Frank Kolmann

*************** Beginning of data **************************************
Fpf16      if   f  100    99aidisk    extfile(npf16) usropn 
 
d key             s             99 
d npf16           s             21 
 
 
 
ipf16      ns  01 
i                                  1  100  dummy 
 
 /free 
 
  npf16 = 'TEST/PF16A'; 
  open pf16; 
  key = '111111111'+'12345'; 
  CHAIN key pf16; 
  dummy = dummy; 
 
  close pf16; 
 
 
 npf16 = 'TEST/PF16B'; 
 open pf16; 
 key = '22222222222'+'12345'; 
 CHAIN key pf16; 
 dummy = dummy; 
 
 close pf16; 
 
 
 *inlr = *on; 
/end-free 

PF16A
A          R PF16AR 
A            K1             9S 0 
A            K2             5 
A            D1            10 
A            D2            10 
A          K K1 
A          K K2 

PF16B
 A          R PF16BR 
 A            K1            11S 0 
 A            K2             5 
 A            D1            10 
 A            D2            10 
 A          K K1 
 A          K K2