progress-4gl
variabler
Sök…
Introduktion
Framsteg ABL är statiskt skrivna. Variablerna måste deklareras och datatypen kan inte ändras under körtid.
Syntax
DEFINERA VARIABLE i AS INT64 INITIAL -200 NO-UNDO. // Ett 64-bitars heltal initialiserat till -200
DEFINERA VARIABLE l SOM LOGISK INTE-UNDO. // En logisk variabel med namnet l
DEFINERA VARIABLE c SOM KARAKTER INTE-UNDO FALLSENSITIV. // En skiftlägeskänslig ('a' <> 'A') variabel.
DEFINERA VARIABLE dt SOM DATUM INTAL I DAG INGEN-UNDO. // En datumvariabel inställd på dagens datum.
DEFINERA VARIABLE EN SOM KARAKTER EXTENT 5 NO-UNDO. // En teckenuppsättning med längd = 5
DEFINERA VARIABLE J SOM INTEGERA OMFATTANDE INTE-UNDO. // En utsträckning utan en viss längd
DEFINERA VARIABLE b SOM DATETIME-etiketten "Avgångstid". // En variabel med en etikett
Grundläggande variabla deklarationer
/*
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.
Arrays - definiera och komma åt
Framsteg stöder endimensionella matriser, men de kallas 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).
Enskilda positioner i matrisen nås med hjälp av "standard" -konsoler. Men indexet börjar på 1. Den maximala storleken är 28000.
a[1] = "A".
a[2] = "B".
a[3] = "C".
a[4] = "D".
a[5] = "E".
DISPLAY a[5].
Resultat:
Index 0 genererar ett fel:
DISPLAY a[0].
Resultat:
Du kan också definiera en obestämd matris utan en viss längd. Längden (omfattningen) kan ställas in i körtid. Men bara en gång!
DEFINE VARIABLE a AS CHARACTER EXTENT NO-UNDO.
EXTENT(a) = 10.
EXTENT(a) = 1.
Den tredje raden berättar följande fel: 
Du kan använda INITIAL alternativet i DEFINE VARIABLE satsen för att ställa in initialvärden.
DEFINE VARIABLE a AS CHARACTER EXTENT 3 INITIAL ["one","two","three"] NO-UNDO.
/* Some statements (like DISPLAY) can handle a whole array: */
DISPLAY a.
Resultat:
Om du inte ställer in alla extenser får de återstående värdena det senaste:
DEFINE VARIABLE a AS CHARACTER EXTENT 10 INITIAL ["one","two","three"] NO-UNDO.
DISPLAY a.
Resultat:
Använd LIKE-nyckelordet
Med LIKE du basera definitionen på din variabel på en annan variabel eller ett fält i en databas eller temp-tabell.
Definiera en variabel LIKE ett databasfält som kräver att databasen alltid ska vara ansluten. Det kanske inte alltid är det du vill ha.
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".