Hier ein Beispiel:FFile______IF___F__132________DISK_______ __________
D_DSFile__________DS___________132________________ _
D__DSSatzArt_____________________3A_______________ _
__________________________________________________ _
D_DSSA1___________DS______________________________ _
D__DS1SatzArt____________________3A_______________ _
D__DS1Fld1______________________10A_______________ _
D__DS1Fld2______________________10A_______________ _
__________________________________________________ _
D_DSSA2___________DS______________________________ _
D__DS2SatzArt____________________3A_______________ _
D__DS2Fld1______________________15A_______________ _
D__DS2Fld2______________________20A_______________ _
__________________________________________________ _
C___________________do________*Hival______________ _
C___________________read______File__________DSFile _
C___________________if________%EOF________________ _
C___________________leave_________________________ _
C___________________endif_________________________ _
C___________________select________________________ ____
C___________________when______DSSatzArt_=_'SA1'___ ____
C___________________eval______DSSA1_______=_DSFile ____
C___________________when______DSSatzArt_=_'SA2'___ ____
C___________________eval______DSSA2_______=_DSFile ____
C___________________endsl_________________________ ____
__________________________________________________ ____
C___________________enddo_________________________ ____
_*________________________________________________ ____
C___________________eval______*InLR_______=_*on___ ____

Birgitta