How to refer to an extent field with LABEL Attribute of a bu

Hi everyone,

I am new to Progress OpenEdge.

I'm trying to get sortof like caption of the field from an array fields, in this case it was the LABEL or; COLUMN-LABEL from a field.

here is my code:

DEFINE VARIABLE i AS INTEGER NO-UNDO.
DEFINE VARIABLE j AS INTEGER NO-UNDO.
DEFINE VARIABLE hFld AS HANDLE NO-UNDO.
DEFINE VARIABLE bfHandle AS HANDLE NO-UNDO.
DEFINE VARIABLE qrHandle AS HANDLE NO-UNDO.

CREATE BUFFER bfHandle FOR TABLE "tt-table".
CREATE QUERY qrHandle.
qrHandle:SET-BUFFERS( bfHandle ).

qrHandle:QUERY-PREPARE( "FOR EACH tt-table" ).
qrHandle:QUERY-OPEN().
  
qrHandle:GET-FIRST( NO-LOCK ).

DO i = 1 TO ( bfHandle:NUM-FIELDS ):
    hFld = bfHandle:BUFFER-FIELD(i). /* handle the field */
    IF ( hFld:EXTENT > 0 ) THEN /* field is an array */
    DO:
      DO j = 1 TO hFld:EXTENT:

        MESSAGE hFld:BUFFER-VALUE(j) VIEW-AS ALERT-BOX INFO. /* this is the field value of an array field */
        --> MESSAGE hFld:COLUMN-LABEL(j) VIEW-AS ALERT-BOX INFO. /* this is what i am trying to get for */

      END.
    END.
END.

Is it possible for me to get the LABEL or COLUMN-LABEL or NAME of an Array field?

Any help and answer would be appreciated.

Thank you.