ABL Reference

https://docs.progress.com/bundle/abl-reference/
Admin
A comprehensive reference guide for the Advanced Business Language (ABL), detailing its syntax,...
Tokens:1,326,936
Snippets:20,671
Trust Score:10
Update:3 months ago
Show doc for...
Tokens:
Raw
### Printer Setup Dialog Example

Source: https://docs.progress.com/bundle/abl-reference/page/SYSTEM-DIALOG-PRINTER-SETUP-statement.html

An example demonstrating how to trigger the printer setup dialog and print database records.

```ABL
DEFINE BUTTON bprintset   LABEL "Printer Setup".
DEFINE BUTTON bprintnames LABEL "Print Customer Names".
DEFINE BUTTON bcancel     LABEL "Cancel".

DEFINE FRAME PrintFrame 
  bprintset bprintnames bcancel
  WITH TITLE "Quick Printer" VIEW-AS DIALOG-BOX.

ON CHOOSE OF bprintset DO:
  SYSTEM-DIALOG PRINTER-SETUP.
END.

ON CHOOSE OF bprintnames DO:
  OUTPUT TO PRINTER.
  FOR EACH Customer NO-LOCK BY Customer.Name:
    DISPLAY Customer.Name WITH STREAM-IO.
  END.
  OUTPUT CLOSE.
END.

ENABLE ALL WITH FRAME PrintFrame.
WAIT-FOR CHOOSE OF bcancel IN FRAME PrintFrame.
```

--------------------------------

### CHOOSE Statement Setup Example (r-chs1.p)

Source: https://docs.progress.com/bundle/abl-reference/page/CHOOSE-statement.html

Initializes an array of character variables and displays them in a frame for use with a CHOOSE statement.

```ABL
DEFINE VARIABLE abc AS CHARACTER NO-UNDO FORMAT "x(3)" EXTENT 42.
DEFINE VARIABLE ix  AS INTEGER   NO-UNDO.
  
DO ix = 1 TO 42:
  abc[ix] = STRING(ix, ">9").
END.

DISPLAY abc NO-LABELS WITH CENTERED ROW 4
  TITLE " CHOOSE STATEMENT " FRAME f-choose WIDTH 36.
DISPLAY "Enter your selection " WITH CENTERED NO-BOX
  FRAME f-instruct.
PAUSE 1 BEFORE-HIDE NO-MESSAGE.
```

--------------------------------

### Initialize DECIMAL variable example

Source: https://docs.progress.com/bundle/abl-reference/page/Create-method-DECIMAL.html

Example demonstrating the initialization of a DECIMAL variable using the Create method.

```ABL
USING Progress.Util.* FROM ASSEMBLY.

DEFINE VARIABLE aDecimal AS DECIMAL NO-UNDO.

aDecimal = DecimalHelper:Create( 2345, 0, 0, FALSE, 2 ).

Display aDecimal.
```

--------------------------------

### QUOTER Output Example

Source: https://docs.progress.com/bundle/abl-reference/page/QUOTER-function.html

The resulting prepare-string generated by the QUOTER function example.

```text
FOR EACH Customer WHERE Customer.Name = "Lift Line Skiing".
```

--------------------------------

### PROVERSION Output Examples

Source: https://docs.progress.com/bundle/abl-reference/page/PROVERSION-function.html

Examples of version strings returned by PROVERSION under different mode configurations.

```text
11.2.0.0.1234
```

```text
11.2BETA
```

```text
11.2.0.0.1234.BETA
```

--------------------------------

### Create Database Alias Example

Source: https://docs.progress.com/bundle/abl-reference/page/CREATE-ALIAS-statement.html

A basic example demonstrating how to create an alias named 'myalias' for the database 'mydb'.

```ABL
CREATE ALIAS myalias FOR DATABASE mydb NO-ERROR
```

--------------------------------

### Initialize CHARACTER variable example

Source: https://docs.progress.com/bundle/abl-reference/page/Create-method-CHARACTER.html

Example demonstrating the initialization of a CHARACTER variable with a repeated string.

```ABL
USING Progress.Util.* FROM ASSEMBLY.

DEFINE VARIABLE aString AS CHARACTER NO-UNDO.

aString = StringHelper:Create( "A", 7 ).

Display aString.
```

--------------------------------

### Example of parameter file list format

Source: https://docs.progress.com/bundle/abl-reference/page/STARTUP-PARAMETERS-attribute.html

Shows how parameter files are represented in the startup parameter list.

```text
-pf dbconnect.pf,-db sports2020,-H pclsmith,-S 5000,(end .pf)
```

--------------------------------

### Retrieving Data via DDE GET

Source: https://docs.progress.com/bundle/abl-reference/page/DDE-GET-statement.html

This example demonstrates setting up a DDE conversation with Excel, advising on a specific cell, and using DDE GET to retrieve the value when a DDE-NOTIFY event occurs.

```ABL
DEFINE VARIABLE Sheet1     AS INTEGER NO-UNDO.   /* DDE-ID to worksheet */
DEFINE VARIABLE ChangeRate AS DECIMAL NO-UNDO     /* Rate of change... */
   INITIAL 0.0.                                   /* ...starting at 0 */
DEFINE VARIABLE CellData   AS CHARACTER NO-UNDO. /* Worksheet cell output */
DEFINE VARIABLE DDEframe   AS HANDLE    NO-UNDO. /* DDE frame handle */

CREATE FRAME DDEframe
TRIGGERS:           /* DDE frame and code to receive  */
  ON DDE-NOTIFY DO: /* Rate of change data from Excel */
    **DDE GET Sheet1 TARGET CellData ITEM "R4C2".**    
    ChangeRate = DECIMAL(CellData).
  END.
END TRIGGERS.
. . .
/* Open conversation with Sheet1 and link to rate-of-change value. */
DDE INITIATE Sheet1 FRAME DDEframe APPLICATION "Excel" TOPIC "Sheet1".
DDE ADVISE Sheet1 START ITEM "R4C2".

/* Do some processing while the rate-of-change is within 7.5% */
REPEAT WHILE ChangeRate <= 7.5:
. . .
END. /* 7.5% processing */

/* Go on to other things once the rate of change goes above 7.5%. */
DDE ADVISE Sheet1 STOP ITEM "R4C2".
. . .
```

--------------------------------

### STARTUP-PARAMETERS attribute usage examples

Source: https://docs.progress.com/bundle/abl-reference/page/STARTUP-PARAMETERS-attribute.html

Comparison of command line inputs and their resulting STARTUP-PARAMETERS attribute values.

```text
-pf c:\dlc\startup.pf,(end .pf),-db sports2020,-T c:\temp,-H pclsmith,-S 5000
```

```text
-pf c:\dlc\startup.pf,-db sports2020,-H pclsmith,-S 5000,(end .pf),-T c:\temp
```

```text
-pf c:\dlc\startup.pf,(end .pf),-pf dbconnect.pf,-db sports2020,-H pclsmith,-S 5000,(end .pf),-T c:\temp
```

```text
-pf c:\dlc\startup.pf,-T c:\temp,(end .pf),-T d:\work100a,-db mystore,-1,-db corporate,-H corpmachine,-S 5000
```

--------------------------------

### Defining a .NET Property Signature

Source: https://docs.progress.com/bundle/abl-reference/page/Class-based-property-access.html

Example of a .NET property signature showing both get and set accessors.

```C#
public bool HelpButton { get; set; }
```

--------------------------------

### Demonstrating SYSTEM-HELP Options in ABL

Source: https://docs.progress.com/bundle/abl-reference/page/SYSTEM-HELP-statement.html

This procedure demonstrates various SYSTEM-HELP options including CONTEXT, KEY, ALTERNATE-KEY, POSITION, and QUIT using a sample help file.

```ABL
DEFINE VARIABLE helpfile AS CHARACTER NO-UNDO.

DEFINE BUTTON b_context LABEL "CONTEXT Call".
DEFINE BUTTON b_blank   LABEL "KEY Call-''".
DEFINE BUTTON b_single  LABEL "KEY Call-'Tools'".
DEFINE BUTTON b_full    LABEL "KEY Call- Tools;Menu".
DEFINE BUTTON b_max     LABEL "POSITION MAXIMIZE Call".
DEFINE BUTTON b_pos     LABEL "POSITION Call".
DEFINE BUTTON b_alt     LABEL "ALTERNATE-KEY Call".
DEFINE BUTTON b_quit    LABEL "QUIT Call".

FORM 
  SKIP(1) SPACE(1) b_context SPACE(1)
  SKIP(1) SPACE(1) b_blank SPACE(1)
  SKIP(1) SPACE(1) b_single SPACE(1)
  SKIP(1) SPACE(1) b_full SPACE(1)
  SKIP(1) SPACE(1) b_max SPACE(1)
  SKIP(1) SPACE(1) b_pos SPACE(1)
  SKIP(1) SPACE(1) b_alt SPACE(1)
  SKIP(1) SPACE(1) b_quit SPACE(1)
  SKIP(1) WITH FRAME x.
ENABLE ALL WITH FRAME x.

helpfile = "editeng.chm".

/* The CONTEXT call displays the help topic associated with the specified
   context number of a help topic (in this case, 49256, for the Using Editor
   Buffers topic). */
ON CHOOSE OF b_context IN FRAME x DO:
  SYSTEM-HELP helpfile CONTEXT 49256.
END.

/* The KEY call brings up the topic matching the string found in the keyword
   index. If the string parameter is empty or is omitted altogether, the help
   viewer displays with the Index tab on top.*/
ON CHOOSE OF b_blank IN FRAME x DO:
  SYSTEM-HELP helpfile KEY "".
END.

/* In a KEY call where the string parameter does not exactly match an index
   keyword of any help topic, the fill-in at the top of the Index tab is
   populated with the string that is passed in, and the default help topic 
   is displayed. */
ON CHOOSE OF b_single IN FRAME x DO:
  SYSTEM-HELP helpfile KEY "Tools".
END.

/* In a KEY call where the string parameter exactly matches a unique index
   keyword of a help topic, the help engine automatically launches a help
   viewer window and displays the matching topic. Use semicolons to delimit
   multiple keywords.*/
ON CHOOSE OF b_full IN FRAME x DO:
  SYSTEM-HELP helpfile KEY "Tools;Menu".
END.

/* In an ALTERNATE-KEY call works like the KEY call but it uses the alternate
   keyword (Alink) index, if one is provided. */
ON CHOOSE OF b_alt IN FRAME x DO:
  SYSTEM-HELP helpfile ALTERNATE-KEY "Tools Menu".
END.

/* The POSITION X x Y y WIDTH dx HEIGHT dy call positions the open help window
   as specified */
ON CHOOSE OF b_pos IN FRAME x DO:
  SYSTEM-HELP helpfile POSITION X 2 Y 2 WIDTH 450 HEIGHT 450.
END.

/* The POSITION MAXIMIZE call maximizes the open help window as specified*/
ON CHOOSE OF b_max IN FRAME x DO:
  SYSTEM-HELP helpfile POSITION MAXIMIZE.
END.

/* The QUIT call causes the help engine to terminate, unless another
   application is using help. */
ON CHOOSE OF b_quit IN FRAME x DO:
  SYSTEM-HELP helpfile QUIT.
  RETURN.
END.

WAIT-FOR GO OF FRAME x.
```

--------------------------------

### Extracting bytes with RAW

Source: https://docs.progress.com/bundle/abl-reference/page/RAW-function.html

Example demonstrating the extraction of 4 bytes from the Name field of a Customer record starting at the 8th byte.

```ABL
/*You must connect to a non-OpenEdge demo database to run this procedure*/
DEFINE VARIABLE r1 AS RAW NO-UNDO.

FIND FIRST Customer NO-LOCK.
r1 = **RAW(Customer.Name,8,4).**
```

--------------------------------

### Define startup parameters in a comma-separated list

Source: https://docs.progress.com/bundle/abl-reference/page/STARTUP-PARAMETERS-attribute.html

Example of providing startup parameters as a comma-separated string.

```text
-pf c:\commonarea\db.pf,-db sports2020,-H pclsmith,-S 5000,(end .pf),-U lsmith,-P ******
```

--------------------------------

### Verify Schema in a Static ProDataSet

Source: https://docs.progress.com/bundle/abl-reference/page/READ-XMLSCHEMA-method.html

Example demonstrating the setup of variables and temp-tables required to verify a schema in a static ProDataSet using STRICT mode.

```ABL
DEFINE VARIABLE lRetOK                  AS LOGICAL   NO-UNDO.
DEFINE VARIABLE cSourceType             AS CHARACTER NO-UNDO.
DEFINE VARIABLE cFile                   AS CHARACTER NO-UNDO.
DEFINE VARIABLE lOverrideDefaultMapping AS LOGICAL   NO-UNDO.
DEFINE VARIABLE cFieldTypeMapping       AS CHARACTER NO-UNDO.
DEFINE VARIABLE cVerifySchemaMode       AS CHARACTER NO-UNDO.

DEFINE TEMP-TABLE ttCustomer LIKE Customer NO-UNDO.
DEFINE TEMP-TABLE ttOrder    LIKE Order    NO-UNDO.
DEFINE TEMP-TABLE ttInvoive  LIKE Invoice  NO-UNDO.
```

--------------------------------

### Configuring ADD-SUPER-PROCEDURE with SEARCH-TARGET

Source: https://docs.progress.com/bundle/abl-reference/page/ADD-SUPER-PROCEDURE-method.html

Demonstrates the setup of super procedures in main.p, comparing the default behavior with the use of the SEARCH-TARGET parameter.

```ABL
/* main.p */
DEFINE VARIABLE h AS HANDLE NO-UNDO.

RUN s1.p PERSISTENT SET h.
THIS-PROCEDURE:ADD-SUPER-PROC(h).

RUN s2.p PERSISTENT SET h.
/* **Instance 1**
THIS-PROCEDURE:ADD-SUPER-PROC(h). */
/* **Instance 2** */
**THIS-PROCEDURE:ADD-SUPER-PROC(h, SEARCH-TARGET).**

RUN s3.p PERSISTENT SET h.
THIS-PROCEDURE:ADD-SUPER-PROC(h).

RUN add-record.
```

--------------------------------

### Manage DDE ADVISE links in ABL

Source: https://docs.progress.com/bundle/abl-reference/page/DDE-ADVISE-statement.html

This example demonstrates initiating a DDE conversation, starting an advise link to a cell, and stopping the link once a specific condition is met.

```ABL
DEFINE VARIABLE Sheet1     AS INTEGER.   NO-UNDO. /* DDE-ID to worksheet */
DEFINE VARIABLE ChangeRate AS DECIMAL   NO-UNDO  /* Rate of change... */
  INITIAL 0.0.                                   /* ...starting at zero */
DEFINE VARIABLE CellData   AS CHARACTER NO-UNDO. /* Worksheet cell output */
DEFINE VARIABLE DDEframe   AS HANDLE    NO-UNDO. /* DDE frame handle */

CREATE FRAME DDEframe 
TRIGGERS:           /* DDE frame and code to receive  */
  ON DDE-NOTIFY DO: /* Rate of change data from Excel */
    DDE GET Sheet1 TARGET CellData ITEM "R4C2".
    ChangeRate = DECIMAL(CellData).
  END.
END TRIGGERS.
. . .
/* Open conversation with "Sheet1" and link to rate-of-change value. */
DDE INITIATE Sheet1 FRAME DDEframe APPLICATION "Excel" TOPIC "Sheet1".
**DDE ADVISE Sheet1 START ITEM "R4C2".**

/* Do some processing while the rate-of-change is within 7.5% */
REPEAT WHILE ChangeRate <= 7.5:
. . . 
END. /* 7.5% processing */

/* Go on to other things once the rate of change goes above 7.5%. */
**DDE ADVISE Sheet1 STOP ITEM "R4C2".**
. . .
```

--------------------------------

### General startup parameter format

Source: https://docs.progress.com/bundle/abl-reference/page/STARTUP-PARAMETERS-attribute.html

The standard format for individual startup parameters in the returned list.

```text
-parameter-name[parameter-value][,-parameter-name[parameter-value]]...
```

--------------------------------

### GUID(UUID)

Source: https://docs.progress.com/bundle/abl-reference/page/GUID-function.html

Converts a 16-byte raw UUID value into a globally unique identifier (GUID) string. If the input is omitted, a new GUID is generated.

```APIDOC
## GUID(UUID)

### Description
Converts a universally unique identifier (UUID) value into a globally unique identifier (GUID) value. Returns a 36-character string formatted as XXXXXXXX-XXXX-XXXX-XXXX-XXXXXXXXXXXX.

### Syntax
GUID(UUID)

### Parameters
- **UUID** (RAW) - Optional - A 16-byte raw UUID value. If not specified, the function generates a new UUID.

### Returns
- **CHARACTER** - A 36-character string representing the GUID, or the Unknown value (?) if the input is not 16 bytes.
```

--------------------------------

### Retrieve Customer and Order records using GET

Source: https://docs.progress.com/bundle/abl-reference/page/GET-statement.html

This procedure demonstrates using GET FIRST and GET NEXT to iterate through a joined query of Customer and Order records.

```ABL
DEFINE QUERY cust-order FOR Customer, Order.

OPEN QUERY cust-order FOR EACH Customer, EACH Order OF Customer.

GET FIRST cust-order.

DO WHILE AVAILABLE Customer:
  DISPLAY Customer.CustNum Customer.Name 
    WITH FRAME cust-info.
  DISPLAY Order WITH FRAME order-info SIDE-LABELS.
  PAUSE.

  GET NEXT cust-order.
END.
```

--------------------------------

### CHOOSE Statement Syntax Example

Source: https://docs.progress.com/bundle/abl-reference/page/CHOOSE-statement.html

Demonstrates a basic menu loop using the CHOOSE statement with GO-ON and AUTO-RETURN options.

```ABL
REPEAT:
  VIEW FRAME instruc.
  DISPLAY menu WITH NO-LABELS ROW 21 NO-BOX
    FRAME f-menu CENTERED.
  HIDE MESSAGE.
  CHOOSE FIELD menu GO-ON (F5) AUTO-RETURN 
    WITH FRAME f-menu.
  IF SEARCH(proglist[FRAME-INDEX]) = ? THEN DO:
    MESSAGE "The program" proglist[FRAME-INDEX] "does not exist.".
    MESSAGE "Please make another choice.".
  END.
  ELSE RUN VALUE(proglist[FRAME-INDEX]).
END.
```

--------------------------------

### WEB-NOTIFY Event Example

Source: https://docs.progress.com/bundle/abl-reference/page/ON-statement.html

Example of defining a trigger for the WEB-NOTIFY event.

```ABL
ON "WEB-NOTIFY" ANYWHERE  {trigger-block}
```

--------------------------------

### Applying environment settings with USE

Source: https://docs.progress.com/bundle/abl-reference/page/USE-statement.html

Demonstrates loading two different environments and applying them to separate windows using the USE statement.

```ABL
DEFINE VARIABLE w1      AS CHARACTER NO-UNDO VIEW-AS TEXT FONT 0 
  FORMAT "x(34)" INITIAL "This is font 0 in the first window".
DEFINE VARIABLE w2      AS CHARACTER NO-UNDO VIEW-AS TEXT FONT 0 
  FORMAT "x(35)" INITIAL "This is font 0 in the second window".
DEFINE VARIABLE new_win AS HANDLE    NO-UNDO.

LOAD "env1".
LOAD "env2".

**USE "env1".**
DISPLAY w1 WITH NO-LABELS WITH FRAME a.
PAUSE.

**USE "env2".**
CREATE WINDOW new_win.
CURRENT-WINDOW = new_win.
DISPLAY w2 in WINDOW new_win WITH NO-LABELS WITH FRAME b.
PAUSE.

DELETE WIDGET new_win.
```

--------------------------------

### Generic Type Example

Source: https://docs.progress.com/bundle/abl-reference/page/ToString-method-Object.html

An example of a .NET generic type string representation.

```text
"System.Collection.Generic.List<CHARACTER>"
```

```text
System.Collections.Generic.List`1[System.String]
```

--------------------------------

### Retrieve and set database client-principal

Source: https://docs.progress.com/bundle/abl-reference/page/GET-DB-CLIENT-function.html

This example demonstrates connecting to a database, retrieving the client-principal handle with GET-DB-CLIENT, and setting the session identity.

```ABL
DEFINE INPUT PARAMETER cUserID AS CHARACTER NO-UNDO.
DEFINE INPUT PARAMETER cPasswd AS CHARACTER NO-UNDO.

DEFINE VARIABLE hCP AS HANDLE NO-UNDO.

CONNECT C:\OpenEdge\WRK\db\Sports2020 
  VALUE( "**-U** " + **cUserID** +
        " **-P** " + SECURITY-POLICY:ENCODE-PASSWORD(**cPasswd**,"ae2h6"))
  -H dbserver -S 1900 NO-ERROR.
ASSIGN **hCP = GET-DB-CLIENT("Sports2020")**.

SECURITY-POLICY:LOAD-DOMAINS("Sports2020").
SECURITY-POLICY:SET-CLIENT(hCP).

**DELETE OBJECT hCP.**
ASSIGN hCP = ?.
```

--------------------------------

### Get() method syntax

Source: https://docs.progress.com/bundle/abl-reference/page/Get-method-Set-Collections.html

The standard syntax for invoking the Get method on a set collection.

```ABL
Get(element AS T)
```

--------------------------------

### Example of empty parameter file format

Source: https://docs.progress.com/bundle/abl-reference/page/STARTUP-PARAMETERS-attribute.html

Shows how a parameter file appears when it contains no startup parameters.

```text
-pf filename,(end .pf)
```

--------------------------------

### DBRESTRICTIONS usage examples

Source: https://docs.progress.com/bundle/abl-reference/page/DBRESTRICTIONS-function.html

Examples of using sequence numbers to query database restrictions.

```ABL
DBRESTRICTIONS(1)
```

```ABL
DBRESTRICTIONS(2)
```

--------------------------------

### Implementing the SEAL Method

Source: https://docs.progress.com/bundle/abl-reference/page/SEAL-method.html

Example demonstrating the initialization and sealing of a client-principal object using the SEAL method.

```ABL
DEFINE VARIABLE hCP     AS HANDLE   NO-UNDO
DEFINE VARIABLE key     AS CHARACTER NO-UNDO.
DEFINE VARIABLE lResult AS LOGICAL   NO-UNDO.
. . .
CREATE CLIENT-PRINCIPAL hCp.
. . .
lResult = hCP:SEAL(key).
```

--------------------------------

### Creating and Populating a Dynamic TEMP-TABLE

Source: https://docs.progress.com/bundle/abl-reference/page/CREATE-TEMP-TABLE-statement.html

Example demonstrating how to create a temp-table based on an existing database table, add fields, populate it, and query the results.

```ABL
DEFINE VARIABLE tth          AS HANDLE NO-UNDO.
DEFINE VARIABLE bh           AS HANDLE NO-UNDO.
DEFINE VARIABLE qh           AS HANDLE NO-UNDO.
DEFINE VARIABLE buf-ord-hndl AS HANDLE NO-UNDO.
DEFINE VARIABLE buf-rep-hndl AS HANDLE NO-UNDO.
DEFINE VARIABLE fld1         AS HANDLE NO-UNDO.
DEFINE VARIABLE fld2         AS HANDLE NO-UNDO.

/* Get database table handles */
buf-ord-hndl = BUFFER Order:HANDLE.
buf-rep-hndl = BUFFER SalesRep:HANDLE.

/* Create an empty, undefined TEMP-TABLE */
CREATE TEMP-TABLE tth.
/* Give it Order table's fields & indexes */
tth:CREATE-LIKE(buf-ord-hndl).
/* Add field like SalesRep.RepName */
tth:ADD-LIKE-FIELD("RepName","SalesRep.RepName").
/* No more fields will be added */
tth:TEMP-TABLE-PREPARE("ordx").

/* Get the buffer handle for the temp-table */
bh = tth:DEFAULT-BUFFER-HANDLE.

/* Populate the temp-table from order */
FOR EACH Order NO-LOCK:
  bh:BUFFER-CREATE.
  bh:BUFFER-COPY(buf-ord-hndl).
  /* Add the corresponding salesrep name */
  FIND SalesRep NO-LOCK WHERE SalesRep.SalesRep = Order.SalesRep NO-ERROR.
  IF AVAILABLE SalesRep THEN
    bh:BUFFER-COPY(buf-rep-hndl,?,"RepName,repname").
END. 

/* Run a query to access the TEMP-TABLE */
CREATE QUERY qh.
qh:SET-BUFFERS(bh).
qh:QUERY-PREPARE("FOR EACH ordx WHERE ordx.OrderNum < 50 BY ordx.RepName").
qh:QUERY-OPEN().

fld1 = bh:BUFFER-FIELD("OrderNum").
fld2 = bh:BUFFER-FIELD("RepName").

/* Display the order number and the salesrep name */
REPEAT:
  qh:GET-NEXT().
  IF qh:QUERY-OFF-END THEN LEAVE.
  DISPLAY fld1:BUFFER-VALUE() FORMAT "X(10)".
  DISPLAY fld2:BUFFER-VALUE() FORMAT "X(20)".
END.

qh:QUERY-CLOSE().
bh:BUFFER-RELEASE().
DELETE OBJECT tth.
DELETE OBJECT qh.
```

--------------------------------

### Enumeration member example

Source: https://docs.progress.com/bundle/abl-reference/page/Add-method-Progress.Util.EnumHelper.html

Example of referencing a specific member within a .NET enumeration.

```ABL
System.Windows.Forms.AnchorStyles:Bottom
```

--------------------------------

### GET statement syntax

Source: https://docs.progress.com/bundle/abl-reference/page/GET-statement.html

The syntax for the GET statement, including navigation options and locking modifiers.

```ABL
GET **{** FIRST **|** NEXT **|** PREV **|** LAST **|** CURRENT **}** query
    **[** SHARE-LOCK **|** EXCLUSIVE-LOCK **|** NO-LOCK **]**
    **[** NO-WAIT **]**
```

--------------------------------

### Using GET-FIRST() in a Query

Source: https://docs.progress.com/bundle/abl-reference/page/GET-FIRST-method.html

Example demonstrating the initialization of a query and the use of GET-FIRST() to begin iterating through records.

```ABL
DEFINE VARIABLE hQuery AS HANDLE  NO-UNDO.
DEFINE VARIABLE iCount AS INTEGER INITIAL 0 NO-UNDO.

CREATE QUERY hQuery.

hQuery:SET-BUFFERS(BUFFER Customer:HANDLE).
hQuery:QUERY-PREPARE("FOR EACH Customer").
hQuery:QUERY-OPEN.

hQuery:GET-FIRST().
MESSAGE "First Customer is" NAME.

DO WHILE NOT hQuery:QUERY-OFF-END:
  iCount = iCount + 1.
  hQuery:GET-NEXT().
END.
MESSAGE "Total number of Customer is" iCount.

hQuery:QUERY-CLOSE().
DELETE OBJECT hQuery.
```

--------------------------------

### Define GET Accessor Variants

Source: https://docs.progress.com/bundle/abl-reference/page/DEFINE-PROPERTY-statement.html

Basic syntax forms for defining a property GET accessor.

```ABL
GET.
```

```ABL
GET SUPER.
```

```ABL
GET ( [array-index-parameter] ) : get-logic
END [ GET ].
```

--------------------------------

### SET-DB-CLIENT Usage Examples

Source: https://docs.progress.com/bundle/abl-reference/page/SET-DB-CLIENT-function.html

Examples demonstrating how to set user identity for specific database connections using sequence numbers.

```ABL
SET-DB-CLIENT(hCP, 1)
```

```ABL
SET-DB-CLIENT(hCP, 2)
```

--------------------------------

### Initializing an X-DOCUMENT with DTD and Namespace

Source: https://docs.progress.com/bundle/abl-reference/page/INITIALIZE-DOCUMENT-TYPE-method.html

Example demonstrating how to initialize an X-DOCUMENT, handle DTD references, and manually add namespace declarations.

```ABL
DEFINE INPUT  PARAMETER namespaceURI AS CHARACTER NO-UNDO.
DEFINE INPUT  PARAMETER rootNodeName AS CHARACTER NO-UNDO.
DEFINE INPUT  PARAMETER publicId   AS CHARACTER NO-UNDO.
DEFINE INPUT  PARAMETER systemId    AS CHARACTER NO-UNDO.
DEFINE OUTPUT PARAMETER hDocument    AS HANDLE    NO-UNDO.

DEFINE VARIABLE hNsDecl   AS HANDLE  NO-UNDO.
DEFINE VARIABLE hRootNode AS HANDLE  NO-UNDO.
DEFINE VARIABLE errStat   AS LOGICAL NO-UNDO.
DEFINE VARIABLE found     AS INTEGER NO-UNDO.

/* Create X-DOCUMENT and intialize it. */
CREATE X-DOCUMENT hDocument.
errStat = hDocument:INITIALIZE-DOCUMENT-TYPE
  (namespaceURI, rootNodeName, publicId, systemId).
IF NOT errStat THEN DO:
  DELETE OBJECT hDocument.
  LEAVE.
END.

/* If using namespaces, create X-NODEREF for namespace declaration. */
IF LENGTH(namespaceURI) > 0 THEN DO:
  CREATE X-NODEREF hNsDecl.
  CREATE X-NODEREF hRootNode.

  /* Look for a colonized name in rootNodeName. */
  found = INDEX(rootNodeName, ":").
 IF found > 0 THEN DO:
  /* Namespace declarations are special kinds of attributes that belong in
        the http://www.w3.org/2000/xmlns/ namespace.*/
  errStat = hDocument:CREATE-NODE-NAMESPACE(hNsDecl,
   "http://www.w3.org/2000/xmlns/", "xmlns:" + 
   SUBSTRING(rootNodeName, 1, found - 1), "attribute").
 END.
 ELSE DO:
    /* Use the default namespace, which does not need a namespace declaration
       prefix, assign it to the http://www.w3.org/2000/xmlns/ namespace.*/
    errStat = hDocument:CREATE-NODE-NAMESPACE(hNsDecl,
     "http://www.w3.org/2000/xmlns/", "xmlns", "attribute").
  END.
  IF NOT errStat THEN LEAVE.

  /* Set the value of the namespace attribute to the namespace URI. */
  hNsDecl:NODE-VALUE = namespaceURI.

  /* Retrieve the root node and add the namespace declaration to it. */
  errStat = hDocument:GET-DOCUMENT-ELEMENT(hRootNode).
  IF NOT errStat THEN LEAVE.
  errStat = hRootNode:SET-ATTRIBUTE-NODE(hNsDecl).
END.

/* Free up the temporary X-NODEREFS. */
IF VALID-HANDLE(hNsDecl) THEN
 DELETE OBJECT hNsDecl.
IF VALID-HANDLE(hRootNode) THEN
 DELETE OBJECT hRootNode.

/* If an error occurred, free up the X-DOCUMENT. */
IF NOT errStat THEN
 DELETE OBJECT hDocument.
```

--------------------------------

### XML Processing Instruction Example

Source: https://docs.progress.com/bundle/abl-reference/page/WRITE-PROCESSING-INSTRUCTION-method.html

An example of the output format generated by the processing instruction method.

```XML
<?xml version="1.0"?>
```

--------------------------------

### Create a join temp-table using ADD-FIELDS-FROM

Source: https://docs.progress.com/bundle/abl-reference/page/ADD-FIELDS-FROM-method.html

Demonstrates initializing a temp-table handle and populating it with fields from two different tables before preparation.

```ABL
DEFINE VARIABLE tth AS HANDLE NO-UNDO.

CREATE TEMP-TABLE tth.
tth:ADD-FIELDS-FROM("Customer").
tth:ADD-FIELDS-FROM("Order").
tth:TEMP-TABLE-PREPARE("cust-ord").
. . .
```
Tokens:
Raw