Hallo Bodo,

eine Möglichkeit wäre, folgendermaßen zu verfahren:

ENDSYS oder ENDSBS *ALL
Wenn eingeschränkter Zustand erreicht
CHGSYSVAL SYSVAL(QSTRUPPGM) VALUE(*NONE)
STRSBS QCTL (hierbei wird nur QCTL gestartet)
Sicherung durchführen
ENDSYS
Sytemwert zurückändern
STRSBS QCTL

Gruß
Bruno