11 lines
388 B
JSON
11 lines
388 B
JSON
{
|
|
"header": {
|
|
"version": 1,
|
|
"type": "record"
|
|
},
|
|
"body": {
|
|
"record1": {
|
|
"<1>": "declare function set_property\r\ndeclare subroutine yield\r\n$insert company_equ\r\n\r\n.terms->text = xlate( 'COMPANY', .cust_no->text, company_terms$, 'X' )\r\nVoid = set_property( @window, '@CUST_NO', .cust_no->text )\r\nRETURN 0"
|
|
}
|
|
}
|
|
} |