La presente guida si riferisce a aggiornamento di versione, da XI a 12

ATTENZIONE
verificare prima di procedere l'eventuale presenza di oggetti personalizzati utente che direttamente, non attraverso le previste funzioni std, accedono a DB YRPT400; i files sono stati modificati; pertanto, nel caso, sarà necessario, al termine dell'aggiornamento, procedere a riallineamento;

ATTIVITA' PRELIMINARE SUGGERITA
(NON richiede sistema dedicato): procedere ad una ripulitura dei files di lavoro:
> da riga comando: call yrpt90p
> da sessione sql: delete from yrptl00f where ylstat='A' and ylfl10='1'
> da riga comando: call yrpt70p

PREPARAZIONE ALL'AGGIORNAMENTO
> ripristinare in qgpl savf YRPT400s12.savf (DOWNLOAD)
> ripristinare libreria YRPT400S12
RSTLIB SAVLIB(YRPT400S12) DEV(*SAVF) SAVF(QGPL/YRPT400S12) 
> compilare i 2 seguenti pgm di tipo CL
CRTCLPGM PGM(YRPT400S12/Y_UPV12) SRCFILE(YRPT400S12/SRC)
CRTCLPGM PGM(YRPT400S12/Y_UPV12_PG) SRCFILE(YRPT400S12/SRC)

ESECUZIONE AGGIORNAMENTO
a sistema dedicato (o perlomeno senza che la libreria YRPT400 sia allocata da alcun lavoro...)
come utente QSECOFR (o con autorizzazioni equivalenti)
da riga comando: call YRPT400S12/Y_UPV12 PARM('YRPT400')

NB: al termine della elaborazione, tutti gli oggetti della libreria YRPT400 risulteranno aggiornati a V.12
Una copia della libreria originaria (in V.XI) sarà stata generata (YRPT400SAV); ovviamente, eliminabile a scelta utente.
NB: si proceda quindi all'aggiornamento dei Client (è sufficiente sostituire l'eseguire YRPT400.exe con la nuova versione)
NB: eventuali eseguibili v.XI (lato client) sono compatibili con v.12 (lato server)

CONSIDERAZIONI GENERALI
la funzione di apertura log, nella versione 12, va fatta con il programma YRPT17P, che gestisce tutti i nuovi parametri introdotti, e quelli già presenti in versioni precedenti ma ora con diversa dimensione (es: Indirizzo Email: da 100 byte è stato portato a 2500)
per garantire retrocompatibilità, sono comunque funzionanti le versioni precedenti (YRPT10P, YRPT12P, YRPT13P, YRPT14P)

In fase di installazione del prodotto (lato server) va schedulata operazione periodica (suggerito a cadenza giornaliera) di ripulitura dei files di lavoro.
La funzione deve richiamare il programma YRPT90P (con semplice CALL, nessun parametro è richiesto).
Tecnicamente, viene elaborato il file di log generale (YRPTL00F), limitatamente ai soli records annullati logicamente dagli utenti ("A" in YLSTAT).
Per ciascun elemento, vengono eliminati fisicamente (a parità di nr log...) tutti i files 'dipendenti', costruendo i nomi con 'Y' + [YLCOBJ] +  [Carattere]
Es: se YLCOBJ="VEFS11", i files saranno YVEFS11*.....
NB: è importante quindi che sia correttamente valorizzato il campo YLCOBJ rispetto ai files dipendenti....
ES: se il report è V5FA01S, e utilizza files YV5DOCUR e YV5DOCUT, nel campo YLCOBJ andrà impostato il valore "V5DOCU"
(sempre 6 caratteri)
Per ogni log ripulito viene impostato "1" nel flag YLFL10.
Periodicamente (1 volta al mese? 1 volta a settimana?) va eseguita eliminazione fisica records annullati e ripuliti di YRPTL00F.
(Esempio SQL: DELETE FROM YRPTL00F where YLSTAT="A" and YLFL10="1")
Esiste poi una funzione manuale di "utility" (call YRPT70P), da utilizzare solo in caso di necessità, che esegue un operazione contraria...
nel senso: vengono letti in immissione primaria tutti i files YaaaaaaA, viene agganciato il file di LOG YRPTL00F per il Nr.di Log, se non trovato, viene eliminato il record del file dipendente.
(questa funzione può risultare utile nel caso si sia proceduto ad eliminazione manuale forzata dati direttamente da YRPTL00F)

Pgm per annullamento automatico logs più vecchi di N giorni

H DECEDIT('0,') DATEDIT(*YMD.)                                                         
DSqlStm           S           2500                                                     
d Quote           C                   Const(X'7D')                                     
DP_YRPT90p        PR                  EXTPGM('YRPT90P')                                
 /free                                                                                 
    SqlStm='update yrpt400/yrptl00f set ylstat="A" '             
          +'where ylstat=" " '                                                         
          +'and (days(Current_date) - days(yldata)) > 30 '                             
          +'with NC ' ;                      
         SqlStm = %xlate('"': Quote : SqlStm ) ;                  
         EXEC SQL PREPARE S1 FROM :SqlStm ;                  
         EXEC SQL EXECUTE S1 ;                  
     P_YRPT90P();                                                                 
     SqlStm='delete from yrpt400/yrptl00f '                                            
          +'where ylstat="A" and ylfl10="1" '                                          
          +'with NC '                                           ;                      
         SqlStm = %xlate('"': Quote : SqlStm ) ;                   
         EXEC SQL PREPARE S1 FROM :SqlStm ;                   
         EXEC SQL EXECUTE S1 ;                   
     *InLR=*ON ;                                                                  
 /end-free

Si è verificato, in un numero assolutamente esiguo di casi, che in fase di setup del pacchetto venga emesso messaggio di errore Windows "Type Mismatch" e la procedura non prosegue.
(Risulterebbe riconducibile a versione di Sistema Operativo NON in lingua Italiana)
Suggerimento:
> editare (con NotePad o simili) file setup.lst (nella cartella di setup) e sostituire, ove presente (dovrebbe essere solamente nella chiave [IconGroups]) la dicitura Vero o Falso con TRUE o FALSE.
> salvare il file setup.lst
> rilanciare installazione