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

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

RTVDTAARA DTAARA(QTEMP/TIME (1 6)) RTNVAR(&TIME)

CHGVAR &HH (%SST(&TIME 1 2))

CHGVAR &MM (%SST(&TIME 3 2))

CHGVAR &SS (%SST(&TIME 5 2))

CHGVAR VAR(&STRVAL) VALUE(&HH *CAT &SEP *CAT &MM +

            *CAT &SEP *CAT &SS)                       

CHGVAR VAR(%BIN(&STRLEN)) VALUE(8)

GOTO END

ENDDO