progress-4gl
variabili
Ricerca…
introduzione
Progress ABL è staticamente digitato. Le variabili devono essere dichiarate e il tipo di dati non può essere modificato durante il tempo di esecuzione.
Sintassi
DEFINE VARIABLE i COME INT64 INITIAL -200 NO-UNDO. // Un intero a 64 bit inizializzato a -200
DEFINIRE VARIABILE come LOGICO NO-UNDO. // Una variabile logica denominata l
DEFINIRE VARIABILE c COME CARATTERE NO-UNDO CASE-SENSITIVE. // Variabile con distinzione tra maiuscole e minuscole ('a' <> 'A').
DEFINIRE VARIABILE dt COME DATA INIZIALE OGGI NO-UNDO. // Una variabile data impostata su data odierna.
DEFINIRE A VARIABILE A SECONDO CARATTERE 5 NO-UNDO. // Un array di caratteri con lunghezza = 5
DEFINIRE VARIABILE j COME ESTINZIONE INTERNA NO-UNDO. // Un'estensione senza una lunghezza impostata
DEFINIZIONE VARIABILE b COME ETICHETTA DATETIME "Ora di partenza". // Una variabile con un'etichetta
Dichiarazioni variabili di base
/*
These variables are declared with `NO-UNDO`.
That states that no undo handling is wanted for this specific variable
in case of a transactional roll-back.
This should always be the default unless transactional control over
this variable is a requirement.
*/
/* Strings. A character longer than 32K should be a longchar */
DEFINE VARIABLE c AS CHARACTER NO-UNDO.
DEFINE VARIABLE cl AS LONGCHAR NO-UNDO.
/* Integers and decimals. INTEGER = 32 bit. INT64 = 64 bits */
DEFINE VARIABLE i AS INTEGER NO-UNDO.
DEFINE VARIABLE j AS INT64 NO-UNDO.
DEFINE VARIABLE k AS DECIMAL NO-UNDO.
/* Date and datetimez. Unset variables have the unknown value ? */
DEFINE VARIABLE d AS DATE NO-UNDO.
DEFINE VARIABLE dt AS DATETIME NO-UNDO.
DEFINE VARIABLE dtz AS DATETIME-TZ NO-UNDO.
/* LOGICAL = Boolean data. True or false (or ?) */
DEFINE VARIABLE l AS LOGICAL NO-UNDO.
/* Rowids and recids are internal identifiers to database records */
DEFINE VARIABLE rid AS ROWID NO-UNDO.
DEFINE VARIABLE rec AS RECID NO-UNDO.
/* A handle is a handle to anything: a session, an on screen widget etc */
/* A Com-handle is used for ActiveX Com-automation */
DEFINE VARIABLE h AS HANDLE NO-UNDO.
DEFINE VARIABLE hc AS COM-HANDLE NO-UNDO.
/* A raw variable can contain any data. Binary, strings etc */
DEFINE VARIABLE rw AS RAW NO-UNDO.
/* A mempointer contains a sequence of bytes in memory. */
DEFINE VARIABLE m AS MEMPTR NO-UNDO.
Array: definizione e accesso
I progressi supportano matrici unidimensionali, ma sono chiamati EXTENTS .
/* Define a character array with the length 5, and display it's length */
DEFINE VARIABLE a AS CHARACTER EXTENT 5 NO-UNDO.
DISPLAY EXTENT(a).
Posizioni individuali a cui si accede alla matrice utilizzando staffe in stile c "standard". Ma l'indice inizia a 1. La dimensione massima è 28000.
a[1] = "A".
a[2] = "B".
a[3] = "C".
a[4] = "D".
a[5] = "E".
DISPLAY a[5].
Risultato:
L'indice 0 genererà un errore:
DISPLAY a[0].
Risultato:
È anche possibile definire una matrice indeterminata senza una lunghezza impostata. La lunghezza (estensione) può essere impostata in fase di esecuzione. Ma solo una volta!
DEFINE VARIABLE a AS CHARACTER EXTENT NO-UNDO.
EXTENT(a) = 10.
EXTENT(a) = 1.
La terza riga genererà il seguente errore: 
È possibile utilizzare l'opzione INITIAL DEFINE VARIABLE per impostare i valori iniziali.
DEFINE VARIABLE a AS CHARACTER EXTENT 3 INITIAL ["one","two","three"] NO-UNDO.
/* Some statements (like DISPLAY) can handle a whole array: */
DISPLAY a.
Risultato:
Se non imposti tutte le estensioni, il rimanente otterrà l'ultimo valore impostato:
DEFINE VARIABLE a AS CHARACTER EXTENT 10 INITIAL ["one","two","three"] NO-UNDO.
DISPLAY a.
Risultato:
Utilizzo della parola chiave LIKE
Usando LIKE puoi basare la definizione della tua variabile su un'altra variabile o un campo in un database o in una tabella temporanea.
Definire una variabile LIKE un campo di database richiede al database di essere sempre connesso. Questo potrebbe non essere sempre quello che vuoi.
DEFINE VARIABLE i AS INTEGER NO-UNDO LABEL "Nr" FORMAT "99999".
/* Define a variable with the same properties as "i" */
DEFINE VARIABLE j LIKE i.
/* Define a variable based on Customer.Custnum from the sports2000 database but
override the label-definition */
DEFINE VARIABLE k LIKE Customer.Custnum LABEL "Client".