/*REXX*/
       'ISREDIT MACRO(PARMS)'
/*-------------------------------------------------------------------*/
/* This macro changes all upper case to Propper case where the first */
/* letter of a sentence is made upper case and the rest is lower.    */
/* Use this when you unintentionally use UC or UCC                   */
/* By Mark McDonald                                                  */
/*    mark@manmrk.net                                                */
/*-------------------------------------------------------------------*/
/*     TRACE R  */
/*--- Make Sure Caps Lock is OFF ---*/
       'ISREDIT CAPS OFF'
/*--- If source has not been saved, save it ---*/
       'ISREDIT (MODIFIED) = DATA_CHANGED'
       IF (MODIFIED=YES) THEN
         'ISREDIT SAVE'
/*--- Get Positional Data ---*/
       'isredit (line, column) = cursor'
       'isredit (text)         = line .zcsr'
    say text
    parse pull z
  exit 0
/*------------------------------------------------------------------*/