/*
 *  -----------------------------------------------------------------
 *  Execution of this macro requires a license for uni-XEDIT Extended
 *  for each concurrent user of the macro.
 *  -----------------------------------------------------------------
 *
 *
 *
 * ENDING.XEDIT
 *
 * The ENDING.XEDIT macro moves the cursor to the end of the data line
 * you are editing.
 *
 * Ideally this macro should be assigned to a PF key or CTL_key
 * combination by adding ONE of the following lines to your
 * .profile.xedit file.
 *
 *  'set pf# only macro ending'
 *
 * where # is the number of the PF key assignment.
 *
 *  'set keyb ? command ending'
 *
 * where ? is the CTL sequence desired for the key.
 *
 * Use the ENDING.XEDIT macro by leaving the cursor somewhere in the line
 * you want to go to the end of and press the appropriate key as
 * discussed above.
 *
 */
"extract /cursor /curline"    /* location of cursor and current line # */
if cursor.3=-1                        /* if cursor is not on a line... */
then "msg cursor not in a data line"     /* then give an error message */
else do
     restore=curline.2-cursor.1      /* how far cursor is from current */
     ":"||cursor.3                         /* make cursor line current */
     "extract /curline"                            /* get current line */
     'cursor f 'cursor.3 length(curline.3)+1  /* cursor to end of line */
     restore                               /* restore old current line */
     end