---

hallo zusammen

von ugs-samples habe ich nachfolgendes grip-prog.
ich möchte aber nur ein bestimmtes attribut (zb. DB_PART_REV)
vom master auf das part kopieren nicht alle, kann mir jemand helfen?

mit grip möchte ich es machen,
da ich kein vb-code gefunden habe....

----------------------------
        ENTITY/ child, parent
        STRING/ att_title(50), att_value(132)

    $$  Find the first component in the part
        MASK/ 63
        INEXTE/ ALL
A10:    child = NEXTE/ IFEND, A90:
            parent = &MEMCMP(child, IFERR, A15
            JUMP/ A10:

    $$  found the component - now transfer all the attributes
A15:    n_atts = &NATTR(child, 5)
        DO/ A20:, ii, 1, n_atts
            att_title = &ATTTL(child, ii, 5)
            att_value = &ATTVL(child, att_title)

            ASATT/PART, att_title, att_value
A20:    $$  End do ii

A90:    HALT
----------------------------

------------------
gruss urs 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Dann bau noch eine Schleife ein:

Code:

---

        ENTITY/ child, parent
        STRING/ att_title(50), att_value(132)

    $$  Find the first component in the part
        MASK/ 63
        INEXTE/ ALL
A10:    child = NEXTE/ IFEND, A90:
            parent = &MEMCMP(child, IFERR, A15
            JUMP/ A10:

    $$  found the component - now transfer all the attributes
A15:    n_atts = &NATTR(child, 5)
        DO/ A20:, ii, 1, n_atts
            att_title = &ATTTL(child, ii, 5)

IFTHEN/ att_title == 'DB_PART_REV'
            att_value = &ATTVL(child, att_title)
            ASATT/PART, att_title, att_value
$$ hier kann noch ein Sprung nach A20: rein, um die Sache abzukürzen
ENDIF

A20:    $$  End do ii

A90:    HALT

---

Beachte, daß nur die ersten 6 Zeichen einer Variable relevant sind, der Rest wird ignoriert. Das kann Fehler zur Folge haben, wenn sich Variablen erst ab dem 7. Zeichen unterscheiden.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

hallo älg

vielen dank, funktioniert perfekt!
(...grip ist also doch noch cool..)

------------------
gruss urs 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

quod erat demonstrandum 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP