Hallo liebes Forum,
ich habe eine Frage zu einem LF mit 2 Formaten.
Lt. Programm sollte es die Kilometer ermitteln.
Code:
FRELATDL1 IF E K DISK
C RELKEY KLIST
C KFLD AORT (=WIEN)
C KFLD EORT (=SALZBURG)
Code:
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.
Code:
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
Code:
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
Code:
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
Bookmarks