LF mit 2 Formaten

[GUK]

Hallo liebes Forum,

ich habe eine Frage zu einem LF mit 2 Formaten.
Lt. Programm sollte es die Kilometer ermitteln.



FRELATDL1 IF E K DISK

C RELKEY KLIST
C KFLD AORT (=WIEN)
C KFLD EORT (=SALZBURG)



SELECT * FROM relatdp
WHERE REBLO = 'SALZBURG'
and REELO = 'WIEN'
Beladeort ENTLADEORT km
1 SALZBURG WIEN 296
2 WIEN SALZBURG 296


Obwohl es den Datensatz WIEN-Salzburg gibt findet er das im Chain nicht.


relkey chain relatdl1
if %found
eval milage = rekma
endif


Kann das so eigentlich funktionieren mit diesen 2 Formaten in den logischen Datei?
Müssten da alle Keys angegeben werden?

In Faktor 2 den Format angeben hat auch nicht funktioniert da ich dann den Key nicht angeben kann.


PF: RELATDP

A UNIQUE
A R RELATD TEXT('RELATIONSDATEI')
*
A REBLO R TEXT('BELADEORT ')
A REELO R TEXT('ENTLADEORT ')
A REKMI R
A REBPLZ 9 TEXT('PLZ Beladeort ')
A REEPLZ 9 TEXT('PLZ Entladeort ')
A REKMA R
A REKMI1 R REFFLD(REKMI)
A REKMA1 R REFFLD(REKMA)
A REKMI2 R REFFLD(REKMI)
A REKMA2 R REFFLD(REKMA)
A REBLSL 3 TEXT('Landschl. Beladeort ')
A REELSL 3 TEXT('Landschl. Entladeort ')
A*
A*
A K REBLO
A K REELO
A K REBLSL
A K REELSL
A K REBPLZ
A K REEPLZ

Logische: RELATDL1

A R RELATDF1 PFILE(*LIBL/RELATDP)
A*
A REBLO R
A REELO R
A REROU R
A REKMI R
A REKMA R
A* :
A REBLSL R
A REELSL R
A* :
A REBPLZ R
A REEPLZ R
A REKMMG R
A*
A*
A K REBLO
A K REELO
A K REBLSL
A K REELSL
A K REBPLZ
A K REEPLZ
A*
A R RELATDF2 PFILE(*LIBL/RELATDP)
A*
A REBLO R
A REELO R
A REROU R
A REKMI R
A REKMA R
A* :
A REBLSL R
A REELSL R
* :
A REBPLZ R
A REEPLZ R
A*
A K REELO
A K REBLO
A K REELSL
A K REBLSL
A K REEPLZ
A K REBPLZ

Dank im Voraus

Kaya

[RobertMack]

Wozu eigentlich die LF, es verweisen doch beide Satzformate auf die gleiche PF? Alternative wäre ein Zugriff per SQL statt Chain, auf eine View RELATDV1 mit den beiden "Satzformaten" via UNION und entsprechend getauschten Feldern im jeweiligen Select).

[GUK]

Ein Ex-Kollege hat mir den Rat gegeben mit auf den Satzformatnamen zu chainen:
chain relkey RELATDF1;

Ich verstehe nur nicht den Sinn von 2 Satzformaten in einer Logischen.
Das meiste mache ich mit Sql aber es gibt halt noch viele Pgm die noch umgestellt gehören...

[RobertMack]

Hallo GUK, der Trick mit den zwei Satzformaten ist (war seinerzeit) gar nicht mal so schlecht, hat man doch die beiden Felder Von und Nach jeweils getauscht "untereinander" ;-)

Und, gerade sehe ich, dass es Chain(E) heißen sollte damit if %found ein Ergebnis liefert...

[GUK]

Ich dachte mir schon das ein cooler Trick dabei ist, aber ich bin nicht drauf gekommen und habe es auch nicht googlen können.
Und das wollte ich niemanden zu nahe treten und sauge das Wissen gerne auf.

Mit Chain(E) liest er dann den nächstes Satzformat bei einem Error?
Weil jetzt funktioniert es auch ohne (E).

[Fuerchau]

SQL unterstützt keine Multiformat-LF's, da wird nur die 1. PF der LF verwendet.
Per "Chain Dateiname" wird jedes Format gefunden. Die INFDS sagt dir dann, welches Format ggf. gelesen wurde.
Per "Chain Formatname" wird nur die gewünschte PF gelsen.

Für SQL kannst du das nur als Union-View erstellen um es mit SQL zu lesen.