{
    "header": {
        "version": 1,
        "type": "record"
    },
    "body": {
        "record1": {
            "<1>": "declare subroutine forward_event, rlist\r\ndeclare function msg, rowexists, post_event, fieldcount\r\n$insert rlist_equates\r\n$insert msg_equates\r\n$insert logical\r\n$insert exports_equ\r\n\r\nEid = .export_name->text\r\nif rowexists( 'EXPORTS', Eid ) then\r\n   * ok now did this user enter it or is Heather trying to snoop\r\n   Erec = xlate( 'EXPORTS', Eid, '', '' )\r\n   ReadOk = false$\r\n   if Erec<exports_sharable$> or get_property( @window, '@SystemGenerated' ) then\r\n       ReadOk = true$\r\n   end else\r\n       if @user4 = xlate( 'EXPORTS', Eid, exports_entry_id$, '' ) then\r\n           ReadOk = true$\r\n       end\r\n   end\r\n   if ReadOk then\r\n        forward_event()   \r\n       if .exporttablenames->text = 'REACT_UTIL' then\r\n          .UTIL_START->VISIBLE = 1\r\n          .UTIL_END->VISIBLE = 1\r\n          .UTIL_START_LABEL->VISIBLE = 1\r\n          .UTIL_END_LABEL->VISIBLE = 1\r\n       end else\r\n          .UTIL_START->VISIBLE = 0\r\n          .UTIL_END->VISIBLE = 0\r\n          .UTIL_START_LABEL->VISIBLE = 0\r\n          .UTIL_END_LABEL->VISIBLE = 0\r\n       end       \r\n\t\tTtable = .exporttablenames->text\r\n    \tColumns = ''\t\t\r\n\t\tif Ttable then\r\n\t\t\tDictTable = 'DICT.':Ttable\r\n\t\t\tVoid = utility( 'CURSOR', 'H' )\r\n\t\t\tCmd = \"SELECT \":DictTable:\" BY @ID WITH F1 = 'F' 'S'\"\r\n\t\t\trlist( Cmd, target_activelist$, '', '', '' )\r\n\t\t\tif @reccount then\r\n\t\t\t    Eof = false$\r\n\t\t\t    loop\r\n\t\t\t        readnext DictId else Eof = true$\r\n\t\t\t      until Eof\r\n\t\t\t        Columns := DictId:@vm\r\n\t\t\t    repeat\r\n\t\t\t    Columns[-1,1] = ''\r\n\t\t\t    Void = set_property( @window, '@Columns', Columns )\r\n\t\t\tend \r\n\t\t\tCmd = \"SELECT \":DictTable:\" USING EXPORTS BY @ID WITH F6 = 1\"\r\n\t\t\trlist( Cmd, target_activelist$, '', '', '' )\r\n\t\t\tBtreeColumns = ''\r\n\t\t\tif @reccount then\r\n\t\t\t    Eof = false$\r\n\t\t\t\tloop\r\n\t\t\t\t    readnext DictId else Eof = true$\r\n\t\t\t\t  until Eof\r\n\t\t\t\t    BtreeColumns := DictId:@vm\r\n\t\t\t\trepeat\r\n\t\t\t\tBtreeColumns[-1,1] = ''\r\n\t\t\t\tVoid = set_property( @window, '@BtreeColumns', BtreeColumns )\r\n\t\t\tend else\r\n\t\t\t    * no btree columns\r\n\t\t\tend\r\n\t\t\tVoid = utility( 'CURSOR', 'A' )\r\n\t\tend\r\n        QColumns = Columns\r\n        BcCnt = fieldcount( BtreeColumns, @vm )\r\n        for i = 1 to BcCnt\r\n            locate BtreeColumns<1,i> in QColumns using @vm setting Rpos then\r\n                QColumns = delete( QColumns, 1, Rpos, 0 )\r\n            end\r\n        next i\r\n        Void = set_property( @window, '@QColumns', QColumns )\r\n   end else\r\n      Message = 'You are only allowed to view sharable or your own Export Templates...' \r\n      Message<micon$> = 'H'\r\n      Void = msg( '', Message )\r\n      .export_name->text = ''\r\n      void = post_event( @window:'.EXPORT_NAME', 'GOTFOCUS', '' )\r\n      void = set_property( @window:'.EXPORT_NAME', 'FOCUS', 1 )\r\n   end\r\nend else\r\n   forward_event( CtrlEntID, CtrlClassID )\r\n   .entry_id->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n   .entry_date->text = oconv( date(), 'D2/' )\r\nend\r\nRETURN 0"
        }
    }
}