REPEAT TRANSACTION WITH FRAME {&FRAME-NAME}:
    
        FIND Listen  WHERE RECID(Listen)  = ARecid.
        FIND LiDruck WHERE RECID(LiDruck) = BRecid.
        
        ASSIGN  {&List-2}.
        ASSIGN  {&List-1}.
        
        ASSIGN  Listen.Sort       = F_Sort
                LiDruck.Listtzz   = F_TZZ
                LiDruck.Listkzz   = F_KZZ
                LiDruck.Listfzz   = F_FZZ
                LiDruck.Listlq    = F_LQ
                LiDruck.ListCopy  = F_KOPIE
                LiDruck.Schacht   = F_SCHACHT
                LiDruck.ListDru   = ASchname
                LiDruck.ListBild  = ASchbild.
                
        RELEASE Listen.
        RELEASE LiDruck.
        LEAVE.
    END.

    FIND Listen  WHERE RECID(Listen)  = ARecid NO-LOCK NO-ERROR.
    FIND LiDruck WHERE RECID(LiDruck) = BRecid NO-LOCK NO-ERROR.