Récupérer en critère d'archivage la date du spool d'origine/27/fr

IF COND(%SST(&ZONNAM 1 4) *EQ 'TIME') THEN(DO)

       RTVDTAARA DTAARA(QTEMP/TIME (1 6)) RTNVAR(&HEURE)
       CHGVAR &HH (%SST(&HEURE 1 2))                          
       CHGVAR &MM (%SST(&HEURE 3 2))                          
       CHGVAR &SS (%SST(&HEURE 5 2))                          
       CHGVAR     VAR(&STRVAL) VALUE(&HH *CAT &SEP *CAT &MM + 
         *CAT &SEP *CAT &SS)                       
       CHGVAR     VAR(%BIN(&STRLEN)) VALUE(8)                 
       GOTO FIN                                               
       ENDDO