M
Mike Fechner
Guest
(Please visit the site to view this file) Here's my repro (12.1).: BLOCK-LEVEL ON ERROR UNDO, THROW. DEFINE VARIABLE hDataset AS HANDLE NO-UNDO. DEFINE VARIABLE hBuffer AS HANDLE NO-UNDO. DEFINE VARIABLE i AS INTEGER NO-UNDO. /* *************************** Main Block *************************** */ CREATE DATASET hDataset . hDataset:READ-XML ("file", "Repository/Cache/Default/CustomerForm.xml", ?, ?, ?) . ASSIGN hBuffer = hDataset::MetaForm . DO i = 1 TO hBuffer:NUM-FIELDS: DISPLAY hBuffer:BUFFER-FIELD (i):NAME FORMAT "x(40)" WITH DOWN. DOWN 1 . END.
Continue reading...
Continue reading...