11 lines
648 B
JSON
11 lines
648 B
JSON
{
|
|
"header": {
|
|
"version": 1,
|
|
"type": "record"
|
|
},
|
|
"body": {
|
|
"record1": {
|
|
"<1>": "declare function entid, repository, mods_update_specific, key_sort\r\ndeclare subroutine make.list\r\n\r\nPopRec = entid( @appid<1>, 'POPUP', '', 'MODS_SELECT' )\t\r\nOverRide = ''\r\nKeys = repository( 'EXECUTE', PopRec, @window, OverRide )\r\nif Keys then\r\n @reccount = 0\r\n convert @vm to @fm in Keys\r\n Keys = key_sort( Keys, 'MODS', 'PRIORITY':@fm:'MOD_DATE':@fm:'MOD_TIME', 1 )\r\n make.list( 0, Keys, '', '' ) \r\n Void = mods_update_specific()\r\nend\r\nRETURN 0"
|
|
}
|
|
}
|
|
} |