{
    "header": {
        "version": 1,
        "type": "record"
    },
    "body": {
        "record1": {
            "<1>": "declare function msg,send_event\r\ndeclare subroutine end_dialog\r\n$insert msg_equates\r\n$insert rpt_cfg_equ\r\n\r\nopen 'CONFIG' to ConfigTable else\r\n   Void = msg( '', 'Unable to open CONFIG table' )\r\n   end_dialog( @window, '' )\r\n   return 0\r\nend\r\nReportID = Trim(.report_id->text)\r\n\r\nReportRecord = ''\r\n\r\nIf ReportID > '' Then\r\n   * SET RECORD TO ALL CONTROLS\r\n   TempVar = .Table_Name->Text\r\n   Convert @Lower_Case To @Upper_Case In TempVar\r\n   ReportRecord<TableName$>            = TempVar\r\n   ReportRecord<Width$>                = .Width->Text              \r\n   ReportRecord<Title$>                = .Title->Text\r\n   ReportRecord<Title2$>               = .Title_2->Text\r\n   ReportRecord<Title3$>               = .Title_3->Text\r\n   ReportRecord<Title4$>               = .Title_4->Text   \r\n   ReportRecord<TitleFontType$>        = .Title_Font_Type->Text    \r\n   ReportRecord<TitleFontSize$>        = .Title_Font_Size->Text    \r\n   ReportRecord<TitleFontBold$>        = .Title_Font_Bold->Check    \r\n   ReportRecord<TitleFontItalic$>      = .Title_Font_Italic->Check  \r\n   ReportRecord<TitleFontUnderline$>   = .Title_Font_Underline->Check  \r\n   ReportRecord<ColHeadFontType$>      = .Col_Hed_Font_Type->Text  \r\n   ReportRecord<ColHeadFontSize$>      = .Col_Hed_Font_Size->Text  \r\n   ReportRecord<ColHeadFontBold$>      = .Col_Hed_Font_Bold->Check  \r\n   ReportRecord<ColHeadFontItalic$>    = .Col_Hed_Font_Italic->Check\r\n   ReportRecord<ColHeadFontUnderline$> = .Col_Hed_Font_Underline->Check\r\n   ReportRecord<DefFontType$>          = .Def_Font_Type->Text  \r\n   ReportRecord<DefFontSize$>          = .Def_Font_Size->Text  \r\n   ReportRecord<DefFontBold$>          = .Def_Font_Bold->Check  \r\n   ReportRecord<DefFontItalic$>        = .Def_Font_Italic->Check\r\n   ReportRecord<DefFontUnderline$>     = .Def_Font_Underline->Check\r\n   ReportRecord<ByStmt$>               = .OrderBy->text\r\n   ReportRecord<Landscape$>            = .Landscape_Chk->Check\r\n   ReportRecord<Grid$>                 = .Grid_Chk->Check     \r\n   ReportRecord<NoPage$>               = .No_Page_Chk->Check  \r\n   ReportRecord<DoubleSpace$>          = .Dbl_Spc_Chk->Check \r\n   ReportRecord<IdSupp$>               = .Id_Supp_Chk->Check  \r\n   ReportRecord<DetailSupp$>           = .Det_Supp_Chk->Check \r\n   ReportRecord<ColumnHeaderSupp$>     = .Col_Hdr_Supp->Check \r\n   ReportRecord<HeaderSupp$>           = .Hdr_Supp->Check     \r\n   ReportRecord<WithStmt$>             = .With_Statement->Text         \r\n   ReportRecord<Footer$>               = .Footer->Text\r\n   ReportRecord<PageNumber$>           = .PageNumber->Check\r\n\r\n   ReportRecord<ReportProcedure$>      = .Report_Procedure->text\r\n\r\n   arrayinfo = .COLUMN_INFO->array\r\n   TempVar                       = arrayinfo<1>\r\n   Convert @Lower_Case To @Upper_Case In TempVar\r\n   ReportRecord<Field$>          = TempVar \r\n   ReportRecord<Header$>         = arrayinfo<2> \r\n   TempVar                        = arrayinfo<3> \r\n   Convert @Lower_Case To @Upper_Case In TempVar     \r\n   ReportRecord<ColLength$>      = TempVar \r\n   ReportRecord<DataFontType$>   = arrayinfo<4> \r\n   ReportRecord<DataFontSize$>   = arrayinfo<5>\r\n   TempVar = arrayinfo<6>\r\n   Convert @Lower_Case To @Upper_Case In TempVar          \r\n   ReportRecord<DataFontBold$>   = TempVar \r\n   TempVar = arrayinfo<7>\r\n   Convert @Lower_Case To @Upper_Case In TempVar          \r\n   ReportRecord<DataFontItalic$> = TempVar\r\n   TempVar = arrayinfo<8>\r\n   Convert @Lower_Case To @Upper_Case In TempVar          \r\n   ReportRecord<DataFontUnderline$> = TempVar\r\n   TempVar = arrayinfo<9>\r\n   Convert @Lower_Case To @Upper_Case In TempVar          \r\n   ReportRecord<BreakOn$>        = TempVar \r\n   TempVar = arrayinfo<10>\r\n   Convert @Lower_Case To @Upper_Case In TempVar          \r\n   ReportRecord<BreakOnValue$>   = TempVar \r\n   TempVar = arrayinfo<11>\r\n   Convert @Lower_Case To @Upper_Case In TempVar          \r\n   ReportRecord<Total$>          = TempVar \r\n   TempVar = arrayinfo<12>\r\n   Convert @Lower_Case To @Upper_Case In TempVar          \r\n   ReportRecord<Limit$>          = TempVar    \r\n   \r\n   void = send_event(@window:\".SLIST_SCRIPT_BUTTON\", \"CLICK\" )\r\n   ReportRecord<SlistScript$>        = .Slist_Script->text         \r\n        \r\n   write ReportRecord on ConfigTable, ReportID Then\r\n      Void = msg( '', 'Record ':ReportID:' has been written to CONFIG table' )\r\n   end else\r\n      Void = msg( '', 'Unable to write ':ReportID:' in CONFIG table' )\r\n   end\r\nend\r\n\r\nreturn 0\r\n"
        }
    }
}