DEF VAR ii          AS INT  NO-UNDO.

DEF VAR cBenutzer   AS CHAR NO-UNDO
    INIT 'ADMINADP,SYSTEM,ODBCUSER,RETLAW7591,retlaw7591",ADMINRIECHSTEINER'.

OUTPUT TO 'SQLRevokeAll.txt' NO-MAP NO-CONVERT.
DO ii = 1 TO NUM-ENTRIES(cBenutzer, ','):
    FOR EACH _File
        WHERE NOT _File._File-Name BEGINS '_'
        AND   NOT _File._File-Name BEGINS 'SYS':
        
            PUT CONTROL SUBSTITUTE('REVOKE ALL ON PUB."&1" FROM "&2";&3',
                _File._File-Name, ENTRY(ii, cBenutzer, ','), CHR(10) ).
            PUT CONTROL 'commit;' CHR(10).
    END.
END.
OUTPUT CLOSE.

cBenutzer = 'ADMINRIECHSTEINER,ODBCUSER'.

OUTPUT TO 'SQLGrantAll.txt' NO-MAP NO-CONVERT.
DO ii = 1 TO NUM-ENTRIES(cBenutzer, ','):
    FOR EACH _File
        WHERE NOT _File._File-Name BEGINS '_'
        AND   NOT _File._File-Name BEGINS 'SYS':
        
            PUT CONTROL SUBSTITUTE('GRANT SELECT ON PUB."&1" TO "&2";&3',
                _File._File-Name, ENTRY(ii, cBenutzer, ','), CHR(10) ).
            PUT CONTROL 'commit;' CHR(10).
    END.
END.
OUTPUT CLOSE.