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

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

     RTVDTAARA DTAARA(QTEMP/DATE (1 10)) RTNVAR(&DATE)
     CHGVAR     VAR(&STRVAL) VALUE(&DATE)             
     CHGVAR     VAR(%BIN(&STRLEN)) VALUE(9)            
     GOTO FIN                                          
     ENDDO