%%(display:none)
{{{
WikiUp
}}}
/%
[{TableOfContents }]\\
!!! Obiettivo\\
La routine serve per decodificare, ricercare, validare l'esponente di modifica di un oggetto.

!!! Funzioni e metodi\\
''Funzioni'' e ''Metodi''
* ''Blanks'', Restituisce indicatore di errore acceso se non esiste esponente di modifica dell'oggetto.\\
* ''RIC'', Ricerca esponente di modifica dell'oggetto. Viene richiamato il programma di lista degli esponenti di modifica con la possibilità di scegliere l'esponente.\\
* ''VAL'', Ritorna il primo esponente valido rispetto alla data impostata nel metodo\\
** ''INI'', alla data di validità\\
** ''D01'', alla data libera DT01\\
** ''D02'', alla data libera DT02\\
** _5_D0......\\
** ''COD'', controlla la validità rispetto al parametro passato\\
* ''CRV'', Ricerca se non impostato l'esponete di modifica valido ad una data, se impostato  ne controlla la  validità. La data utilizzata è quella descritta nel metodo\\
** ''INI'', alla data di validità\\
** ''D01'', alla data libera DT01\\
** ''D02'', alla data libera DT02\\
** _5_D0......\\
** ''COD'', controlla la validità rispetto al parametro passato\\

!!! Input\\
I dati di input oltre alla funzione e metodo sono passati tramite la DS del file C£ESMO e le variabili £IEMPA(tipo esponente) e £IEMCD(codice esponente)

!!! Output\\
La routine restituisce al programma chiamante valorizzati i campi della DS del file C£ESMO e la variabile £IEMCD

!!! Prerequisiti\\
Prerequisiti per l'utilizzo della routine sono:
IC£ESMO    E DSC£ESMO0F

!!! Esempio di chiamata per ricerca/controllo validità dell'esponente di modifica di un articolo al 01/07/09\\

%%quote
|C                   EVAL      E£CODI=W$ARTI
|C                   EVAL      £IEMFU='CRV'
|C                   EVAL      £IEMME='INI'
|C                   EVAL      £IEMPA='AR'
|C                   EVAL      £IEMCD=W$ESMO
|C                   EVAL      E£DTIV=20090701
|C                   CLEAR     £IEMAM
|C                   EXSR      £IEM
|C     £IEM35        IFEQ      *ON
|C                   ......
|C                   ELSE
|C                   EVAL      W$ESMO=£IEMCD
|C                   ENDIF
/%
----

!!! Note particolari\\
* L'archivio in cui sono registrati gli esponenti di modifica di Sme.up è normalmente il C£ESMO0F   nei casi in cui è richiesto   un processo di di Work-flow di rilascio degli esponenti si può utilizzare l'archivio CQDOMA0F con   attivazione in tabella B£1.\\
* In quest'ultimo caso valgono solo i metodi per data inizio validità.\\