Guten Morgen,
hier das API (in Cl-Pgm) für die Reaktivierung eines gesperrten IFS-Zugriffes:

PGM PARM(&USRPRF)

DCL VAR(&USRPRF) TYPE(*CHAR) LEN(10)
DCL VAR(&RQSVAR) TYPE(*CHAR) LEN(14)
DCL VAR(&RQSLEN) TYPE(*INT) VALUE(14)

CHGVAR VAR(&RQSVAR) VALUE(' ' *CAT &USRPRF)
CHGVAR VAR(%BINARY(&RQSVAR 1 4)) VALUE(&RQSLEN)
CALL PGM(QSYS/QZLSCHSI) PARM(&RQSVAR &RQSLEN +
ZLSS0200 X'00000000')

ENDPGM