GET-COLLATIONS ( codepage )
|
DEFINE VARIABLE code-page-list AS CHARACTER NO-UNDO.
DEFINE VARIABLE collation-list AS CHARACTER NO-UNDO. DEFINE VARIABLE ix AS INTEGER NO-UNDO. DEFINE VARIABLE jx AS INTEGER NO-UNDO. code-page-list = GET-CODEPAGES. REPEAT ix = 1 TO NUM-ENTRIES(code-page-list): DISPLAY ENTRY(ix, code-page-list) FORMAT "x(19)" COLUMN-LABEL "Code Page" WITH DOWN FRAME a. collation-list = GET-COLLATIONS(ENTRY(ix, code-page-list)). REPEAT jx = 1 TO NUM-ENTRIES(collation-list): DISPLAY ENTRY(jx, collation-list) FORMAT "x(19)" COLUMN-LABEL "Collation" WITH DOWN FRAME a. DOWN WITH FRAME a. END. END. |