| 
       LIST-PROPERTY-NAMES( )
       | 
| 
       DEFINE VARIABLE hCP   AS HANDLE    NO-UNDO.
        DEFINE VARIABLE vProp AS CHARACTER NO-UNDO. . . . CREATE CLIENT-PRINCIPAL hCp. . . . vProp = hCP:LIST-PROPERTY-NAMES( ). DISPLAY vProp FORMAT "X(70)". |