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. 
           |