11 lines
799 B
JSON
11 lines
799 B
JSON
{
|
|
"header": {
|
|
"version": 1,
|
|
"type": "record"
|
|
},
|
|
"body": {
|
|
"record1": {
|
|
"<1>": "$insert reactor_pm_equ\r\n$insert react_servs_equ\r\n\r\nReactor = field( CreateParam, char(245), 2 )\r\nTitle = @@window->text\r\nTitle:= ' ':Reactor\r\n@@window->text = Title\r\nCreateParam = field( CreateParam, char(245), 1 )\r\nconvert @fm to @vm in CreateParam\r\nServIds = xlate( 'REACTOR_PM', CreateParam, reactor_pm_react_serv_id$, 'X' )\r\nNextDone = xlate( 'REACTOR_PM', CreateParam, reactor_pm_next_done$, 'X' )\r\nServDescs = xlate( 'REACT_SERVS', ServIds, react_servs_description$, 'X' )\r\nArray = ''\r\nArray<1> = oconv( NextDone, 'D2/' )\r\nArray<2> = ServIds\r\nArray<3> = ServDescs\r\n.serv_info->array = Array\r\nRETURN 0"
|
|
}
|
|
}
|
|
} |