Qualche trucco con le DS #2

Ieri vi ho raccontato cosa sono le DS qualificate, lasciandovi con la promessa di un altro trucchetto divertente. Siccome sono una persona di parola, eccomi qui :-)

Riprendiamo l'esempio con le due DS dell'esempio di ieri:

DDataGMA           DS               Qualified
D Giorno                       2S 0
D Mese                         2S 0
D Anno                         4S 0
DDataAMG           DS               Qualified
D Anno                         4S 0
D Mese                         2S 0
D Giorno                       2S 0

Essendo entrambe qualificate, i nomi dei campi possono essere duplicati.
Vi avevo anche messo un semplice esempio di come possono essere utilizzati: rivediamolo.

//free
    DataAMG = DataDaInvertire;
    DataGMA.Anno = DataAMG.Anno;
    DataGMA.Mese = DataAMG.Mese;
    DataGMA.Giorno = DataAMG.Giorno;
    DataInvertita = DataGMA;
//end-free

Ma qui scatta il giochino interessante.
Nel linguaggio COBOL esiste un codice operativo chiamato MOVE CORR che sposta tra due strutture dati i campi che hanno lo stesso nome. Cominciate a intravedere la possibilità?
Bene, nel linguaggio RPG non esisteva un codice operativo simile, fino a quando non è arrivato l'ILE. Grazie al codice EVAL-CORR diventa possibile scrivere l'istruzione sopra in un modo ancora più semplice:


//free
    DataAMG = DataDaInvertire;
    Eval-corr DataGMA = DataAMG;
    DataInvertita = DataGMA;
//end-free

Non male, vero?
Il fatto è che, a differenza di uno spostamento tra due DS generiche, questo comando permette di spostare SOLO i campi che esistono in entrambe le DS: se ci sono delle differenze, i campi o non vengono spostati perché mancanti nella DS di arrivo, oppure rimangono vuoti per ché mancanti nella DS di partenza.
Occorre prestare attenzione ai campi presenti nella DS di arrivo e non in quella di partenza, perché in quel caso vengono inizializzati a "NULL", valore che potrebbe non essere voluto. Eventualmente potete far precedere il EVAL-CORR da un RESET della DS.

Qui ho usato la codifica in formato free, ma si può usare anche con la solita forma a tracciato fisso.

Provateci e divertitevi :-)

Qualche trucco con le DS #1

Tutti i programmatori RPG conoscono e usano con profitto le Strutture Dati.
Queste infatti danno la possibilità di impostare i dati in modo organizzato, e di accedere alle informazioni con semplicità, riferendosi o al singolo campo, o all'intera struttura.

Vediamo un esempio piuttosto semplice

DDataGMA           DS              
D Giorno                       2S 0
D Mese                         2S 0
D Anno                         4S 0

Qui possiamo fare riferimento ala DS "DataGMA" per passarla come parametro a un altro programma (che ovviamente dovrà riceverla e avere una DS uguale), oppure riferirci ai suoi campi interni, o sottocampi.

Una cosa da tenere presente è che nell'RPG ILE, i campi devono essere univoci, per cui in un'altra DS non potremo avere un altro campo che si chiama "ANNO".

A meno che non usiamo un trucchetto simpatico e, a mio avviso, molto utile, che ci permetterà per prima cosa di rendere più comprensibili i nostri programmi, e per seconda di utilizzare un codice operativo nuovo (nell'RPG) che arriva direttamente dal cugino COBOL.

Ma andiamo con ordine: come facciamo a definire gli stessi campi in due DS diverse?
Semplicemente mettendo, a livello della definizione della DS, nell'area dedicata alle parole chiave, il comando QUALIFIED.
Questa istruzione ha l'unico difetto di obbligarci di riferirci ai vari campi indicando anche di quale DS fanno parte.

Quindi supponiamo di avere, oltre alla DS indicata prima, quest'altra:

DDataAMG           DS               Qualified
D Anno                         4S 0
D Mese                         2S 0
D Giorno                       2S 0

Entrambe devono avere la dicitura "qualified", ovviamente.
Bene, e ora?

Ora possiamo scrivere questo:

//free
    DataAMG = DataDaInvertire;
    DataGMA.Anno = DataAMG.Anno;
    DataGMA.Mese = DataAMG.Mese;
    DataGMA.Giorno = DataAMG.Giorno;
    DataInvertita = DataGMA;
//end-free

Mi sembra molto chiaro cosa stiamo facendo, no?

Se invece di una data trattiamo con dati anagrafici, per esempio, potremmo avere una DS come questa:

DCliente           DS               Qualified  
D Cognome                     50A 
D Nome                        30A
D DataDiNascita               8S 0  

A questo punto, nel nostro programma potremo riferirci (dovremo, n realtà), riferirci ai vari campi come

Cliente.cognome
Cliente.nome
Cliente.DataDiNascita  

Già questo è piuttosto interessante, ma c'è una cosetta che può tornarci molto utile: il fatto che i campi di una DS possono riferirsi a un'altra DS.
Detta così sempra una fesseria, ma provate a pensare alla DS del Cliente in questo nuovo modo:

DCliente           DS               Qualified  
D Cognome                     50A 
D Nome                        30A
D DataDiNascita                     LikeDs(DataAMG)
 Uhm, mi sembra di vedere la perplessità sui vostri volti, e una domanda sul vostro crapino: "Bello, ma a cosa serve?".
Diciamo che, anche se non indispensabile, permette di riferirsi ai vari campi in questo modo:

Cliente.Cognome
Cliente.Nome
Cliente.DataDiNascita.Anno
Cliente.DataDiNascita.Mese
Cliente.DataDiNascita.Giorno

Ridondante? Forse, anzi probabilmente lo è. Ma sfido chiunque a NON capire a cosa si riferisca un campo che si chiama Cliente.DataDiNascita.Anno!
Sempre meglio di CLDNA, tanto per dire :-)

Naturalmente qui potrete sbizzarrirvi come preferite.
 Giocateci un po' e vedrete quante belle cose si possono fare.

Domani vi racconto di quello che si può fare con due DS qualificate.