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