Evitare l’avvio automatico del sottosistema di controllo al termine del salvataggio dell’intero sistema sui sistemi operativi più vecchi di IBM i V7R4

Last Updated on 24 Settembre 2021 by Roberto De Pedrini

In IBM i V7R4, i menu SAVE e RESTORE sono stati migliorati con la nuova opzione Start controlling subsystem. In precedenza, il sottosistema di controllo si avviava sempre in automatico al termine dell’operazione di salvataggio o di ripristino. In IBM i V7R4, è ora possibile lasciare il sistema in stato limitato dopo l’operazione di salvataggio o ripristino, non avviando il sottosistema di controllo. Questo può essere utile se si desidera installare PTF, eseguire la manutenzione del sistema o l’IPL del sistema.

In questo post vedremo come poter fare altrettanto sulle precedenti versioni di sistema operativo (io uso questo metodo da i5/OS V5R4) focalizzandoci sul salvataggio dell’intero sistema, opzione 21 del menu SAVE.

---

Target operating system: da i5/OS V5R4 aIBM i V7R3.

---

Iniziamo creando un’area dati chiamata STRCTLSBS, dove scriveremo l’informazione se avviare (*YES) o meno (*NO) il sottosistema di controllo al termine del salvataggio dell’intero sistema:

CRTDTAARA DTAARA(library/STRCTLSBS) TYPE(*CHAR) LEN(4) AUT(*USE)

Modifichiamo il contenuto dell’area dati STRCTLSBS in questo modo:

• se vogliamo che il sistema resti in modalità limitata al termine del salvataggio:

CHGDTAARA DTAARA(library/STRCTLSBS *ALL) VALUE('*NO')

• se vogliamo che il sistema vada in modalità normale al temine del salvataggio (comportamento di default di IBM):

CHGDTAARA DTAARA(library/STRCTLSBS *ALL) VALUE('*YES')

Creiamo un file sorgente che supporti i caratteri a doppio byte (DBCS) dove memorizzare i sorgenti delle varie versioni dei programmi QMNSRBND:

CRTSRCPF FILE(srclib/QCLSRCDBCS) CCSID(937)

Nota. E’ necessario utilizzare un file sorgente che supporti i caratteri a doppio byte perché per creare il programma CL QMNSRBND è stato usato un file di quel tipo (diversamente il comando termina con il messaggio d’errore CPF0565). Nella mia esperienza, il CCSID 937, che combina un set di caratteri EBCDIC a byte singolo con un set di caratteri multibyte cinese tradizionale, sembra andare bene.

Estraiamo il sorgente del programma CL QMNSRBND nel membro QMNSRBND del file sorgente appena creato:

RTVCLSRC PGM(QSYS/QMNSRBND) SRCFILE(srclib/QCLSRCDBCS) SRCMBR(*PGM)

Facciamo una copia di sicurezza del membro QMNSRBND nel membro QMNSRBND_I:

CPYSRCF FROMFILE(srclib/QCLSRCDBCS) TOFILE(srclib/QCLSRCDBCS) FROMMBR(QMNSRBND) TOMBR(QMNSRBND_I)

Modifichiamo il sorgente del programma CL QMNSRBND in modo da utilizzare l’informazione contenuta nell’area dati STRCTLSBS (vedi gli statement in rosso nell’estratto del sorgente qui sotto):

• inseriamo la dichiarazione della variabile &STRCTLSBS che memorizzerà il contenuto dell’area dati STRCTLSBS immediatamente dopo la dichiarazione della variabile &CPYR;

• inseriamo le istruzioni per leggere l’area dati STRCTLSBS, per definire un valore di default per la variabile &STRCTLSBS in caso di anomalia nella lettura dell’area dati stessa ed un’istruzione IF che condizioni l’avvio del sottosistema di controllo in base al valore della variabile &STRCTLSBS.

STRSEU SRCFILE(srclib/QCLSRCDBCS) SRCMBR(QMNSRBND) TYPE(CLP) OPTION(2) TEXT('My QMNSRBND')

[...]
     DCL VAR(&CPYR) TYPE(*CHAR) LEN(90) VALUE('5761-SS1 (C) COPYRIGHT-
 IBM CORP 1980, 2007. LICENSED MATERIAL - PROGRAM PROPERTY OF IBM')   
     DCL VAR(&STRCTLSBS) TYPE(*CHAR) LEN(4)
[...]
END:
[...]
     IF COND(&CANCEL *EQ N) THEN(DO)              
     RTVDTAARA DTAARA(library/STRCTLSBS *ALL) RTNVAR(&STRCTLSBS)
     MONMSG MSGID(CPF0000) EXEC(CHGVAR VAR(&STRCTLSBS) VALUE('*YES'))
     IF COND(&STRCTLSBS *NE '*NO') THEN(DO)
     IF COND(&PROMPT *EQ 'Y') THEN(DO)
     ? *SYSTEM/STRSBS SBSD(&CTLSBSLIB/&CTLSBSD)
[...]
     ENDDO
     ELSE CMD(DO)
     *SYSTEM/STRSBS SBSD(&CTLSBSLIB/&CTLSBSD)
[...]
     ENDDO
     ENDDO
     ENDDO
[...]

Rinominiamo il programma CL originale IBM per conservarlo:

RNMOBJ OBJ(QMNSRBND) OBJTYPE(*PGM) NEWOBJ(QMNSRBND_I)

Infine, creiamo il programma CL:

CRTCLPGM PGM(QSYS/QMNSRBND) SRCFILE(objlib/QCLSRCDBCS) SRCMBR(*PGM)

Abbiamo finito! Ora, impostando la data area a *NO, possiamo finalmente eseguire il backup dell’intero sistema e poi installare le PTF o spegnere il sistema senza dover riportare il sistema in modalità limitata al temine del salvataggio.

---

Importante. Dopo ogni installazione di PTF (soprattutto in caso di installazione di un cumulativo) occorre verificare se il programma QMNSRBND è stato sostituito. In caso di sostituzione, è necessario estrarre il nuovo sorgente CL (per non perdere eventuali variazioni introdotte), modificarlo, come appena descritto e ricompilarlo. Prima, però, rimuoviamo il backup della precedente versione del programma:

DLTPGM PGM(QSYS/QMNSRBND_I)