Opening externally-described files as program-described (again)

[Frank.Kolmann@xxxxxxxxxx]

Something like this works, at least it did on a S38.

FINPUTK  IF  F    9999 99AI     1 DISK                      A

C           KEYA      SETLLINPUTK               2626
C                     READ INPUTK                 9090

You got to construct your field KEYA properly (packed data etc)
I dont know how varying and float keys work.

After the READ you can check to see if the 'Key' you got matches the 'Key'
you want.

Frank Kolmann

*********  separator ************************
date: Tue, 21 Sep 2004 17:18:49 -0700 (PDT)
from: "James H H Lampert" <jamesl@xxxxxxxxxxx>
subject: Opening externally-described files as program-described
             (again)

Suppose you have a file where you don't know the key length at compile
time, but you do know it at run time. And further suppose you know at
compile time that it will consist of two zoned decimal fields, with the
first one either 9, 11, or 13 digits, and the second one always 5 digits.

Anybody know how to handle that?

--
JHHL

      C           KEYA      SETLLINPUTK               2626
      C                     READ INPUTK                 9090
  FINPUTK  UF  F    9999 99AI     1 DISK                      A
  F                                              KINFDS INFDK