Suitescript code to apply invoice to credit memo

let objRecord = record.load({
    type: record.Type.CREDIT_MEMO,
    id: "1234567",
    isDynamic: true
});
let lineNumber = objRecord.findSublistLineWithValue({
    sublistId: 'apply',
    fieldId: 'internalid',
    value: "1234563"//invoice internal id
});
log.debug("lineNumber", lineNumber);
objRecord.selectLine({
    sublistId: 'apply',
    line: lineNumber
});
objRecord.setCurrentSublistValue({
    sublistId: 'apply',
    fieldId: 'apply',
    value: true
});
objRecord.commitLine({
    sublistId: "apply"
})
let recordId = objRecord.save();