array fisso

• dichiarazione array fisso
per gli array si usa la seguente sintassi per definire le quantià di valori

sintassi:
DIM Nome_Array(x)
DIM Nome_Array(x,y) multidimensionale




• assegnazione array fisso
da accertare se i valori inziano per 0 o da 1 (credo da 0)

sintassi:
Nome_Array(x) = valore
Nome_Array(x,y) = valore

array dimanico

• il simbolo ^ vene rappresentato come FM nei comandi
1^^^^^2 ...


• il simbolo ] vene rappresentato come VM nei comandi
1]2]3 ...


• il simbolo \ vene rappresentato come SM nei comandi
1\2\3 ...

• creazione/aggiunta
un array dinamico che non esiste si crea semplicemente aggiungendo un elemento alla fine
Nome_array<-1> = valore
non c'é bisogno di dichiarare nulla

per inserire un valore in una certa posizione si usa INS
INS valore BEFORE Nome_array<posizione>




• estrazione
per accedere ad uno dei dati dell'array vanno usati < >

sintassi:
Variabile = Nome_array<x>




esempio: registro l MNEMONIC dell'array CUSTOMER
Y.MNEMONIC = R.CUSTOMER<1>





file elenco posizioni array I_F
per trovare facilmente le posizioni dei campi nei file si possono usare i file I_F
ogni tabella/file in GLOBUS.BP ha un file con nome che inizia per I_F (ex. I_F.CUSTOMER) con l'elenco dei campi associato il numero di posizone

per esempio in CUSTOMER i campi si trovano inserendo iniziando il nome con EB.CUS.

esempio:
Y.MNEMONIC = R.CUSTOMER<EB.CUS.MNEMONIC>
Y.NATIONALITY = R.CUSTOMER<EB.CUS.NATIONALITY>





• modifica
é possibile modificare il valore di un elemento di un array dinamico
attento sovrascrive senza avvisare

sintassi:
Nome_array<x> = Variabile




esempio:
R.CUSTOMER<3> = Y.MNEMONIC
R.CUSTOMER<4> = Y.NATIONALITY






• aggiunta elementi array dinamico
in un array dinamico é possibile aggiungere degli elementi alla fine in qualsiasi momento



sintassi:
dipende dal livello che vuoi aggiungere
Nome_array<-1> = Valore valore al livello 1 (FM)
Nome_array<nome/numero campo,-1> = Valore valore al livello 2 (VM)
Nome_array<nome/numero campo,x,-1> = Valore valore al livello 3 (SM)





esempio:

• estrazione dei valori nei campi MENMONIC e NATIONALITY
• concatenazione con : separandano con *
• salvataggio stringa concatenata in un array dinamico

REMOVE Y.CUS.ID FROM SEL.LIST SETTING POS estrazione ID
CALL F.READ(FN.CUS,Y.CUS.ID,R.CUSTOMER,F.CUS,CUS.ERR1) leggi file utilizzanod ID
Y.MNEMONIC = R.CUSTOMER<EB.CUS.MNEMONIC> estrazione del MNEMONIC dall'array del file letto
Y.NATIONALITY = R.CUSTOMER<EB.CUS.NATIONALITY>
CUS.DETAILS.ARRAY<-1> = Y.CUS.ID:'*':Y.MNEMONIC:'*':Y.NATIONALITY archiviazione nell'array CUS.DETAILS.ARRAY della stringa concatenata




esempio: creo record array con multilivello finale
R.ARRAY = ''
Y.NAME = 'MARIO'
Y.COGNOME = 'ROSSI'
Y.INDIRIZZO = 'VIA CIAO 99,00100 ROMA,ITALIA' stringa con dati multilivello con separatore ,

inserisci dati livello 1 FM
R.ARRAY<-1> = Y.NAME
R.ARRAY<-1> = Y.COGNOME

inserisci dati livello 2 VM
Y.COUNT = DCOUNT(Y.INDIRIZZO ,',') conta multilivelli nella stringa Y.INDIRIZZO
FOR Y.INDIRIZZO.COUNT = 1 to Y.COUNT

Y.CD = FILED(Y.INDIRIZZO,',',Y.INDIRIZZO.COUNT,1) estrazione del valore del multilivello separatro da ,
R.ARRAY<3,-1> = Y.CD aggiunto ad array valore ma in livello 2 VM

NEXT Y.INDIRIZZO.COUNT