GeMIS_WEB/adressen/Erstellen_JSON_Mapping.p

OUTPUT TO 'C:\TEMP\Felder.json' NO-MAP NO-CONVERT.
PUT CONTROL CHR(123) CHR(10).

FIND _File WHERE _File._File-name = 'Adresse'.
FOR EACH _Field OF _File :
    PUT CONTROL '  "' _Field._Field-Name '": ' CHR(123) CHR(10)
        '     "name": "' _Field._Field-Name '",' CHR(10)
        '     "id": "' _Field._Field-Name '",' CHR(10)
        '     "label": "' _Field._Field-Name '",' CHR(10)
        '     "type": "Text", ' CHR(10)
        '     "width": "100px" ' CHR(10)
        CHR(125) ',' CHR(10).
END.
OUTPUT CLOSE.