borrador

    ; cuando se requiere un fichero con datos de varios clubs
    S MASCLUBS="" K SOCPERMITIDOS K CLUBSPERMITIDOS
    I EXPORTA="F" S MASCLUBS=$P(^ZVZOFCL(OFE),S,10)
    I MASCLUBS'="" F I=1:1:$L(MASCLUBS,",")  S CLUBPER=$P(MASCLUBS,",",I) S CLUBSPERMITIDOS(CLUBPER)=""
    I MASCLUBS'="" S (CLPER,LUBPER)="" F  S CLPER=$O(^ZVZOFFE(CLPER)) Q:CLPER=""  F  S LUBPER=$O(^ZVZOFFE(CLPER,LUBPER)) Q:LUBPER=""  D
    . I $D(CLUBSPERMITIDOS(LUBPER)) S SOCPERMITIDOS(CLPER)=""
    ;


I OFE'=20 I OFE'=0 I ('$D(^ZVZOFFE(CLI,OFE)))&('$D(SOCPERMITIDOS(CLI))) G B3