Note

Le informazioni riportate nel presente documento sono distribuite “as is” senza alcuna garanzia implicita o esplicita.
E’ responsabilità dell’utente utilizzare queste informazioni o implementare le tecniche descritte che richiedono la capacità dell’utente di valutarle ed integrarle all’interno dell’ambiente operativo.

1. Scaricare il file "RIPLIB.zip" e scompattarlo: si otterra' il file RIPLIB.savf
2. Creare un SAVF omonimo con il comando CRTSAVF QGPL/RIPLIB
   
3. Trasferire in modalità binaria il file "RIPLIB.savf" sul sistema iSeries nella libreria QGPL.
4. Ripristinare la libreria RIPLIB con il comando:

   RSTLIB SAVLIB(RIPLIB) DEV(*SAVF) SAVF(QGPL/RIPLIB)
   
   

Utilizzo del tool RIPLIB

Il tool RIPLIB, può essere usato per duplicare un sistema informativo ACG con lo scopo di creare un sistema informativo di prova (NEWSYSINF) a partire dal sistema informativo di produzione (PRODSYSINF).

Nota importante: il nuovo sistema informativo creato deve avere lo stesso nome azienda del sistema informativo di partenza. 

Consideriamo un sistema informativo di produzione (PRODSYSINF), costituito dalla seguente lista di libreria:

• PRODLIBDAT Libreria Aziendale
• PRODLIBCOM Libreria Comune
• PRODLIBGRP Libreria di Gruppo

• NEWLIBDAT Libreria Aziendale di Prova
• NEWLIBCOM Libreria Comune di Prova
• NEWLIBGRP Libreria di Gruppo di Prova

1. Salvare le tre librerie di produzione in SAVF con i seguenti comandi:

   Collegarsi al sistema con utente QPGMR o ACGMASTER
   
   CRTLIB  MYLIBSAVF
   CRTSAVF MYLIBSAVF/PRODLIBDAT
   CRTSAVF MYLIBSAVF/PRODLIBCOM
   CRTSAVF MYLIBSAVF/PRODLIBGRP
   

   Verificare il corretto salvataggio delle librerie dal JOBLOG.
    
2. Se le tre librerie di prova NEWLIBDAT, NEWLIBCOM, NEWLIBGRP esistono già sul sistema, cancellarle con i seguenti comandi:

   DLTLIB NEWLIBDAT
   DLTLIB NEWLIBCOM
   DLTLIB NEWLIBGRO
   
   DELETE FROM ACGGAA/KLIBSYSF WHERE SISI = 'NEWSYSINF' OR LIBN in ('NEWLIBDAT', 'NEWLIBCOM', 'NEWLIBGRP')
   DELETE FROM ACGGAA/KINST10F WHERE INFSY = 'NEWSYSINF' OR OBJLB in ('NEWLIBDAT', 'NEWLIBCOM', 'NEWLIBGRP')
   DELETE FROM ACGGAA/KINST00F WHERE INFSY = 'NEWSYSINF'
   DELETE FROM ACGGAA/KFSIF00F where KNMSI = 'NEWSYSINF'
   DELETE FROM ACGGAA/KFSIF10F where KNSIE = 'NEWSYSINF'
   

3. Creare le librerie di prova con il comando RIPDLIBACG attraverso i seguenti comandi:

   Collegarsi al sistema con utente QPGMR o ACGMASTER
   
   ADDLIBLE RIPLIB
   RIPDLIBACG +F4
   

   Impostare i parametri corretti per le librerie.

                      Ripristino lib. ACG duplicate (RIPDLIBACG)                   
                                                                                   
    Immettere le scelte e premere Invio.                                           
                                                                                   
    Libreria aziendale nuova . . . .   NEWLIBDAT_    Nome                          
    Libreria comune nuova  . . . . .   NEWLIBCOM_    Nome                          
    Libreria di gruppo nuova . . . .   NEWLIBGRP_    Nome                          
    Libreria aziendale salvata . . .   PRODLIBDAT    Nome                          
    Libreria comune salvata  . . . .   PRODLIBCOM    Nome                          
    Libreria di gruppo salvata . . .   PRODLIBGRP    Nome                          
    Libreria dei SAVF  . . . . . . .   MYLIBSAVF_    Nome                          
                                                                                   
                                                                                   
                                                                                   
                                                                                   
                                                                                   
   
   

   Al termine del lavoro, verificare il corretto ripristino delle librerie dal JOBLOG.
   Verificare inoltre che i file logici presenti nelle librerie di prova, puntino tutti ai file fisici presenti nelle stesse librerie. 
   

   


4. Inserire i record necessari nelle tabelle KINST10F con la seguente istruzione SQL
   INSERT INTO ACGGAA/KINST10F SELECT STATUS, ACRON, CASE rtrim(INFSY) WHEN 'PRODSYSINF' THEN 'NEWSYSINF' ELSE rtrim(INFSY) END AS INFSY, VERSI, PTFID, OBJID, IINFO, CASE rtrim(OBJLB) WHEN 'PRODLIBDAT' THEN 'NEWLIBDAT' WHEN 'PRODLIBCOM' THEN 'NEWLIBCOM' WHEN 'PRODLIBGRP' THEN 'NEWLIBGRP' ELSE rtrim(OBJLB) END AS OBJLB, IDATE FROM ACGGAA/KINST10F WHERE INFSY='PRODSYSINF' AND OBJLB IN ('PRODLIBDAT', 'PRODLIBCOM', 'PRODLIBGRP')


5. Inserire i record necessari nelle tabelle KINST00F con la seguente istruzione SQL
   INSERT INTO ACGGAA/KINST00F SELECT STATUS, ACRON, CASE rtrim(INFSY) WHEN 'PRODSYSINF' THEN 'NEWSYSINF' ELSE rtrim(INFSY) END AS INFSY, VERSI, PTFID, IUSER, DATEI FROM ACGGAA/KINST00F WHERE INFSY='PRODSYSINF'


6. Aggiornare il file ANDI200F del nuovo sistema informativo con il seguente stmt SQL:
UPDATE NEWLIBGRP/ANDI200F SET SISIN='NEWSYSINF', LIBAZ='NEWLIBDAT', LIBCO='NEWLIBCOM', LIBRE='NEWLIBGRP' WHERE SISIN='PRODSYSINF' AND LIBAZ='PRODLIBDAT' AND LIBCO='PRODLIBCOM' AND LIBRE='PRODLIBGRP'


7. Utilizzare le funzioni di amministrazione ACG per creare il nuovo sistema informativo con la terna di librerie appena ripristinate.