{
    "header": {
        "version": 1,
        "type": "record"
    },
    "body": {
        "record1": {
            "<1>": "DECLARE Subroutine Send_Message\r\n\r\n\r\nCurrList = .TW_INFO->LIST\t\t;* Get data list from control\r\nCurrPos  = .TW_INFO->SELPOS\t\t;* Current position\r\n\r\nCurrRow = CurrPos<2>\r\n\r\nCurrLine = CurrList<CurrRow>\t;* This is the line to clone\r\n\r\nLineNo = 1\r\nLOOP\r\n\tFirstColData = CurrList<LineNo,1>\r\nWHILE FirstColData NE ''\r\n\tLineNo += 1\r\nREPEAT\r\n\r\n\r\nIF LineNo > 1 THEN\r\n\tSend_Message(@WINDOW:'.TW_INFO','INSERT',LineNo,CurrLine)\r\nEND\r\n\r\n\r\nRETURN 0"
        }
    }
}