{
    "header": {
        "version": 1,
        "type": "record"
    },
    "body": {
        "record1": {
            "<1>": "declare function msg, post_event, get_eventstatus, msg, fieldcount\r\ndeclare subroutine forward_event, rlist\r\n\r\n$insert logical\r\n$insert msg_equates\r\n$insert rlist_equates\r\n\r\nTtable = Trim(.table_name->text)\r\nIf Ttable Then\r\n   Open Ttable To DataTable Else\r\n      Void = msg( '', Ttable: ' is in use somewhere else...' )\r\n      Void = post_event( @window:'.TABLENAME', 'GOTFOCUS' )\t   \r\n   End\r\n   Columns = ''\r\n   DictTable = 'DICT.':Ttable\r\n   Cmd = \"SELECT \":DictTable:\" BY @ID WITH F1 = 'F' 'S'\"\r\n   rlist( Cmd, target_activelist$, '', '', '' )\r\n   if @reccount then\r\n      Eof = false$\r\n      loop\r\n         readnext DictId else Eof = true$\r\n      until Eof\r\n          Columns := DictId:@vm\r\n      repeat\r\n      Columns[-1,1] = ''\r\n      Void = set_property( @window, '@Columns', Columns )\r\n   end else\r\n      MsgInfo = ''\r\n      MsgInfo<mtext$> = 'Error while selecting from ':DictTable\r\n      MsgInfo<micon$> = 'H'\r\n      Void = msg( '', MsgInfo )\r\n   end\r\nend\r\n\r\nRETURN 0\r\n"
        }
    }
}