11 lines
715 B
JSON
11 lines
715 B
JSON
{
|
|
"header": {
|
|
"version": 1,
|
|
"type": "record"
|
|
},
|
|
"body": {
|
|
"record1": {
|
|
"<1>": "declare subroutine forward_event\r\ndeclare function editcell, rds_comm, msg\r\n\r\nVoid = rds_comm( \"TW_ACCT_ROW_VAL\" )\r\nforward_event( NextColumn, NextRow )\r\nCurRow = .tw_info->rowdata\r\nCurRow<3,1> = oconv( CurRow<2,1>, '[XLATE_CONV,TW_CODES*DESC]' )\r\n.tw_info->rowdata = CurRow\r\nif NextColumn = 3 then\r\n NextColumn = 4\r\n .tw_info->selpos = NextColumn:@fm:NextRow\r\nend\r\nif get_property( @window, '@JustClicked' ) then\r\n Void = editcell( CtrlEntId, '' )\r\n Void = set_property( @window, '@JustClicked' )\r\nend\r\nreturn 0\r\n"
|
|
}
|
|
}
|
|
} |