Après un arrêt anormal, il est peut-être nécessaire d'effectuer des
contrôles avant de démarrer complètement votre as400.

Voici comment faire :

DCL &STATUS *CHAR 1

RTVSYSVAL        QABNORMSW   &STATUS

/* démarrage après arrêt normal */

if cond(&status = '0') then(do)
//
//
enddo
/* démarrage après arrêt anormal */

else do
//
//
enddo