{
    "header": {
        "version": 1,
        "type": "record"
    },
    "body": {
        "record1": {
            "<1>": "declare subroutine forward_event\r\ndeclare function set_eventstatus, get_eventstatus\r\n$insert quote_equ\r\n\r\nVoid = set_eventstatus(0)\r\nforward_event( NextColumn, NextRow )\r\nStat= get_eventstatus()\r\nif Stat = 0 then\r\n\tarrayinfo = .order_detail->array\r\n\tQuotes_Id = arrayinfo<1,1> \r\n\tIf .Name_No->text = '' Then\r\n\t   * XLATE THE NAME_NO OUT OF THE QUOTE TABLE AND PUT IN .NAME_NO\r\n\t   .Name_No->text = xlate( 'QUOTE', Quotes_Id, quote_name_no$, 'X' )\r\n\t   .contact_name->text = xlate( 'QUOTE', Quotes_Id, 'CONTACT_NAME', 'X' )\r\n\tEnd\r\nend\r\nRETURN 0"
        }
    }
}