COGUA1 - Struttura raggruppamenti¶
Posizione nel menu Programma non a menu Linkage section
| Tipo | Dato | Formato | Contenuto |
|---|---|---|---|
| INPUT | COGUA1-CLASSE | x(02) | Classe di raggruppamento da elaborare |
| COGUA1-NOME-TRANSITO | x(256) | Nome file di transito da generare | |
| FILLER | x(500) |
Logica generale Lo scopo principale del programma è di produrre un file di transito che contiene la struttura esplosa di una classe di raggruppamenti Elaborazione Le sezioni principali del programma sono (in quest'ordine): * A - Preparazione struttura A - Preparazione struttura Preparare il file di transito COGUA1-T-STRUTTURA, il cui nome potrà essere passato in input dal programma chiamante. Se non passato per default dovrà essere sulla EXT-TMP-DIR e dovrà chiamarsi: "COGUA1_wo-oper Scorrere il contenuto di COGANRAG per la classe passata in input usando la chiave 2, per tutti i record aventi la classe configurata, con ARAG-ID-PADRE = " "; questa ricerca restituirà tutti i record di livello 1, * Il record letto deve essere aggiunto al file di transito con livello = 1 * Memorizzare la chiave di COGANRAG corrente su una tabella in memoria, dove l'indice è dato dal livello * Scendere di livello: per il record memorizzato ripetere la ricerca su COGANRAG; in questo caso ARAG-ID-PADRE = chiave corrente -> questa ricerca restituirà tutti i raggruppamenti figli di quello in esame * Ciascun record letto deve essere aggiunto al file di transito con livello = (attuale + 1) * Memorizzare la chiave di COGANRAG corrente sull'indice = livello * Al termine dell'esame di questo "ID padre", si risale di un livello; quindi si effettua la ricerca del record successivo a quello memorizzato in tabella * L'iterazione continua finchè non abbiamo raggiunto la fine dei record di livello 1 (quelli con padre = " ") Ciascun record dovrà essere inserito con i seguenti dati:
| Dato | Contenuto |
|---|---|
| T-COGUA1-T-CLASSE | Classe elaborata |
| T-COGUA1-T-ID | Id raggruppamento |
| T-COGUA1-T-ID-PADRE | Codice padre in elaborazione |
| T-COGUA1-T-LIVELLO | Livello calcolato |
| T-COGUA1-T-ORD | +1 |
| T-COGUA1-T-FL-DA-ESAMINARE | "N" |
COGUA1-T-STRUTTURA¶
Tabella che conterrà la struttura della classe di raggruppamento Per questa tabella è necessario creare delle copy riutilizzabili in altri programmi.
| Tabella: COGUA1-T-STRUTTURA |
|---|
| Nome campo |
| T-COGUA1-T-REC |
| FILLER |
| Chiavi necessarie: T-COGUA1-T-CHIA2: ricerca per livello raggruppamento T-COGUA1-T-CHIA3: ricerca per indice di ordinamento T-COGUA1-T-CHIA4: Ricerca elementi ancora da esaminare |
Estratto da documentazione interna ClickUp