/* Delete note+cmd with space - Case 28-11-95 */
address OCTAMED_REXX
options results
'op_get space var space'
if space = 0 then do
'op_get advline var advline'
if advline = 0 then do
'ed_clearnotecmd note cmd'
exit
end
if advline = 2 then do
'ed_clearnotecmd note cmd'
exit
end
end
'op_set space off'
'op_get spaceval var spaceval'
'ed_clearnotecmd note cmd'
'op_set space on'
'ed_advanceline LINES' spaceval-1 'down'