Gestione dei file video bloccati su IBM i: una soluzione efficace

Riceviamo e pubblichiamo ben volentieri questo “tip & trick” di Patrick Rizzi che presenta una tecnica che permette di intervenire (modificare e compilare) eventuali file video (DSPF) in uso. Sappiamo tutti che se un Display File è in uso da uno o più utenti non possiamo ricompilarlo perché risulta “bloccato”.

Con questa tecnica presentata da Patrick possiamo tranquillamente modificare e ricompilare un DSPF anche con l’applicazione aperta in running. A tutti gli effetti il programma RPG lavora con il DSPF in QTEMP e continua a lavora con la “vecchia versione” fino al suo riavvio.

Se pensiamo ad alcuni programmi usati da decine o centinaia di utenti oppure a programmi che per loro natura sono attivi tutto il giorno questa tecnica ci può essere veramente di aiuto.

Ecco i consigli di Patrick Rizzi:

Index

Toggle

Problema:

Quanti di voi hanno mai incontrato il fastidioso problema di un file video bloccato su IBM i, impedendo così la sua compilazione? Questo inconveniente può rallentare significativamente il processo di sviluppo e manutenzione delle applicazioni.

Soluzione:

Una soluzione pratica e efficace consiste nell’utilizzare una combinazione di tecniche RPG e CL per gestire attivamente il ciclo di vita dei file video nella QTEMP.
Ecco come procedere:

Dichiarazione del file video come USROPN:
○ Nel programma RPG, dichiara il file video con la keyword USROPN. Questo significa che la gestione dell’apertura e della chiusura del file sarà sotto il
tuo diretto controllo.
Creazione di un programma CL che:
- Elimina, se già esiste, il file video dalla QTEMP del JOB.
- Copia il file video dalla sua libreria originale nella QTEMP.
Apertura del file video:
- Nel tuo programma RPG, apri il file video nella QTEMP utilizzando il comando OPEN.

Vantaggi di questa soluzione:
● Flessibilità: Ti permette di controllare completamente il ciclo di vita del file video.
● Efficienza: Evita blocchi e conflitti, garantendo una ricompilazione rapida e senza intoppi.
● Scalabilità: Si adatta facilmente a diversi scenari e ambienti.

Esempio di codice RPG:

dcl-pr dupdspftmp extpgm('DUPDSPFTMP');
lib char(10) const;
file char(10) const;
end-pr;
dcl-f mydspfile workstn usropn;
dupdspftmp('*LIBL':’MYDSPFILE’);
open mydspfile;

Esempio di programma CL (DUPDSPFTMP):

PGM PARM(&LIB &DSPF)
DCL VAR(&LIB) TYPE(*CHAR) LEN(10)
DCL VAR(&dspf) TYPE(*CHAR) LEN(10)
DLTOBJ OBJ(QTEMP/&DSPF) OBJTYPE(*FILE)
MONMSG MSGID(CPF2105)
CRTDUPOBJ OBJ(&DSPF) FROMLIB(&LIB) OBJTYPE(*FILE) TOLIB(QTEMP)
ENDPGM

Ringraziamo Patrick Rizzi per aver condiviso con la Community questa tecnica e invitiamo altri lettori del Blog.Faq400 a fare altrettanto con materiale e/o tecniche che possono essere condivise.

Grazie Patrick.

Roberto

--- Roberto De Pedrini Faq400.com

Display file DDS Edit per VsCode, nuova preview.

RPG – FAQ & Howtos (IT Part.4)

RPG – FAQ & Howtos (IT Part.1)

Tags: Display FilesDSPFrpg

1 anno ago

Next Aggiornamento Certificati CA per BCE: Guida Pratica »

Previous « Monitoraggio Messaggi QSYSOPR: SQL per Ottenere Messaggi e Reply

View Comments

Francesco says:

29 Settembre 2025 at 20:17

Buonasera, ottimo suggerimento, solo una nota tecnica, a volte presso i clienti può succedere
che non vogliono avere la QTEMP in lista di librerie, (lo so che ha poco senso, ma presso
una azienda cliente mi è capitato di vederlo) in tal caso credo che l'unica soluzione sia di
fare una OVRDSPF del file video (dopo averlo duplicato in QTEMP) facendogli puntare
all'oggetto in QTEMP questo dovrebbe coprire anche questa (strana) casistica .......
Saluti
Francesco