{
    "header": {
        "version": 1,
        "type": "record"
    },
    "body": {
        "record1": {
            "<1>": "$insert msg_equates\r\ndeclare function msg, key_sort\r\ndeclare subroutine make.list\r\n\r\nCustNo = .cust_no->text\r\nNameKeys = xlate( 'COMPANY', CustNo, 'NAME_KEYS', 'X' )\r\nif NameKeys then\r\n   convert @vm to @fm in NameKeys\r\n   NameKeys = key_sort( NameKeys, 'NAMES', 'LAST_FIRST', 1, '', '' )\r\n   make.list( 0, NameKeys, '', '' )\r\n   return 1\r\nend else\r\n   MsgText = ''\r\n   MsgText<mtext$> = 'There are no names defined for ':oconv( CustNo, '[XLATE_CONV,COMPANY*CO_NAME]' )   \r\n   MsgText<micon$> = '!'\t\r\n   Void = msg( '', MsgText )          \r\n   return 0\r\nend\r\n"
        }
    }
}