Voici le code à inclure par exemple à votre programme de sauvegarde 21.

 DCL VAR(&PGMNAME) TYPE(*CHAR) LEN(10) VALUE('QMNSAVE   ')               

 DCLF QSYS/QADSPOBJ                                                      

  /*------------------------------------------------------------------*/ 

  /* ARRET DES NWSD                                                   */ 

  /*------------------------------------------------------------------*/ 

              DSPOBJD    OBJ(*ALL) OBJTYPE(*NWSD) OUTPUT(*OUTFILE) +     

                           OUTFILE(QTEMP/WADSPOBJ)                       

              OVRDBF     FILE(QADSPOBJ) TOFILE(QTEMP/WADSPOBJ) +         

                           LVLCHK(*NO)                                   

  BOUCLE1:                                                               

  RCVF                                                                   

              MONMSG     MSGID(CPF0864) EXEC(GOTO CMDLBL(SUITE))         

              VRYCFG     CFGOBJ(&ODOBNM) CFGTYPE(*NWS) STATUS(*OFF)      

              GOTO BOUCLE1                                               

  SUITE:                                                                 

  DLTOVR QADSPOBJ