Variabili globali

Variabili globali

Ci sono delle variabili efinite globalmente che permettono di gestire le diverse condizioni che sovvengono nelle varie fasi di esecuzione del codice.

• GREP:
  1. vuoto,"", quando l'utente sta visualizzando i dati
  2. vale "C" se siamo in creazione (quando viene premuto il pulsante Crea)
  3. vale "M" se siamo in visualizzazione/modifica (quando è attivo e viene premuto il pulsante Registra)
  4. vale "D" se siamo in duplicazione (quando viene premuto il pulsante Duplica)
  5. vale "A" se siamo in annullamento (quando viene premuto il pulsante Annulla)
• GIMPORT: variabile utilizzata per gestire la fase di importazione/esportazione; se vale 1 vuol dire che si è in fase di importazione/esportazione
• GIMP(): vedi Programmazione per Import/Export
• GSILENCE: se vale 0 indica che sono abilitati i messaggi popup; quando viene impostata a 1 l'utente non vedrà più tali messaggi; utile in programmi non interattivi, va poi rimessa a 0
• GERR: indica/imposta se c'è un messaggio d'errore
  1. 1: messaggio d'errore
  2. 2: messaggio informativo
  3. 3: messaggio di avviso
  4. 4: messaggio in fondo alla videata
• GMESSAGE: contiene un eventuale messaggio di errore
• GSERVEUR: indica se l'esecuzione è in modalità interattiva o batch (0 interattivo, 1 batch); se in batch non si creano file di log
• GTRACE: indica il nome del file traccia attivo, vuoto se non c'è un file di traccia attivo
• GFONCTION: indica la funzione corrente
• GFONCTION1: indica la funzione chiamante solo in caso di tunnel o chiamante da un oggetto all'altro, come la precedente (o vuota?) altrimenti
• GFONC1: indica sempre la funzione precedente, in ogni caso (quindi anche quando una funzione viene aperta tramite F7)
• GLANGUE: lingua della sessione corrente
• GFLAG: transazione corrente
• GREPORT1 e GREPORT2: contengono il codice stampa scheda e il codice stampa liste, vedi Help funzione da GESAFC (campi Stampa RPT1 e Liste RPT2)

Esempi:

If GREP = "C" and !GIMPORT
   # azione da eseguire se siamo in fase di creazione ma non in fase di importazione
Endif

If !GSERVEUR          
    #siamo in modalità interattiva: posso chiedere conferma all'utente
    Local Integer YESNO : Raz YESNO
    Call OUINON('Import ODA/ODV da AS400?',YESNO) From GESECRAN
    If YESNO=1 : Infbox 'Elaborazione bloccata!' : Return : Endif  
Endif

# Far eseguire in modalità batch del codice (e non generare log)
GSERVEUR = 1
  Call ...
  Call ...
  Call ...
GSERVEUR = 0

Variabili speciali

• zc contiene il valore del campo corrente, o il valore di una formula corrente o altro in base al contesto
  da non confondere con
  • CZ, variabile attiva in base all'azione, per es. in APRES_MODIF
• zoncou contiene il nome del campo corrente in inserimento nella videata
  da non confondere con
  • COUZON, variabile attiva in base all'azione, per es. in APRES_MODIF
  • ZONSUI, variabile che permette di indicare il prossimo campo su cui mettere il focus (per es.:zonsui = "[M:PTH1]YNUMPEZZI("+num$(nolign-1)+")")
• zonsor è una variabile alfanumerica in cui si trova il nome dell'ultimo campo in inserimento nella videata
• maskcou contiene il nome della videata corrente
• trtcou contiene il nome del programma corrente
• adxpno restituisce i nomi dei programmi accodati (il livello 0 è il livello corrente, il livello 1 è quello del programma chiamante, ecc)
• datesyst data di sistema (pag.30 di Linguaggio.pdf)