/* REXX    STRLEN   based upon COLS2 (by Manjit Nagra).  This macro
                    inserts a COLS line at the position of the first
                    quoted character on the cursor-line.
*/
address ISREDIT
"MACRO"
"(LINENUM1,COLNUM) = CURSOR"
"(DATARECW)        = DATA_WIDTH"
"(text) = LINE .zcsr"                  /* acquire the text           */
start = Pos("'",text)+1                /* first character            */
end   = Pos("'",text,start)-1          /* last character             */
rulelen = end + 1 - start
collin   = '----+----1----+----2----+----3----+----4' ||,
           '----+----5----+----6----+----7----+'
datlin   = Copies(' ',start-1)Left(collin,rulelen)
"ISREDIT LINE_BEFORE" LINENUM1 "  = NOTELINE (datlin)"