/*REXX: Title:   SORTG Interface default SORTG 1 40 for col 1 lines*/
/*  Users:       TSO ispf EDIT users   | Script users              */
/*  Contributed: 1995/05/02 David McRitchie "The REXX Macros Toolbox" */
/*    "The REXX Macros Toolbox"                                    */
address "ISREDIT";"MACRO"
"bounds"
"bounds  1 255"
"x all"
"f 1 p'^' all"
arg args
if args = "" then args = "1 40"
"sortg" args
return 0