Voici un petit programme à planifier tous les jours qui vous permettra de suivre l'évolution de votre iFS.

 

PGM  PARM(&LIB)                                                       

DCL &LIB *CHAR 10 /* BIBLIOTHÈQUE ARCHIVE */                          

DCL &DAT *CHAR 06                                                     

             CHKOBJ     OBJ(&LIB) OBJTYPE(*LIB)                       

             MONMSG     MSGID(CPF9801) EXEC(DO)                       

             CRTLIB     LIB(&LIB) TEXT('Collecte rtvdirinf')          

             ENDDO                                                    

RTVSYSVAL QDATE &DAT                                                  

             CVTDAT     DATE(&DAT) TOVAR(&DAT) FROMFMT(*SYSVAL) +     

                          TOFMT(*YMD) TOSEP(*NONE)                    

             CHKOBJ     OBJ(&LIB/('Q' *TCAT &DAT *TCAT 'D')) +        

                          OBJTYPE(*FILE)                              

             MONMSG     MSGID(CPF9801) EXEC(GOTO CMDLBL(SUITE1))      

             DLTF      FILE(&LIB/('Q' *TCAT &DAT *TCAT 'D'))          

SUITE1:                                                               

             MONMSG     MSGID(CPF9801) EXEC(GOTO CMDLBL(SUITE2))      

             DLTF      FILE(&LIB/('Q' *TCAT &DAT *TCAT 'O'))          

SUITE2:                                                               

             RTVDIRINF  DIR(/) INFFILEPFX('Q' *TCAT &DAT) INFLIB(&LIB)

ENDPGM 

Remarques :

2 fichiers par jour  QyymmddD et QyymmddO 

L'utilisateur qui lance doit être inscrit à la directory sna !