Translations - OPALE - 10.0 - Utilisation

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

De MappingDoc
Révision datée du 4 juin 2019 à 08:14 par Alestoquoi (discussion | contributions) (Page créée avec « IF COND(%SST(&ZONNAM 1 4) *EQ 'DATE') THEN(DO) RTVDTAARA DTAARA(QTEMP/DATE (1 10)) RTNVAR(&DATE) CHGVAR VAR(&STRVAL) VALUE(&DATE)... »)
(diff) ← Version précédente | Voir la version actuelle (diff) | Version suivante → (diff)

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