tasks a-s

Task/Program-name/REXX/program-name-5.rexx

@@ -0,0 +1,15 @@
+/*REXX pgm displays the name (& possible path) of the REXX program name.*/
+parse version _version
+parse source _system _howInvoked _path
+
+say right(_version '◄──►' space(arg(1) arg(2)), 79, '─')   /*show title.*/
+say "     REXX's name of system being used:"  _system
+say '     how the REXX program was invoked:'  _howInvoked
+say '    name of the REXX program and path:'  _path
+
+if arg()>1  then return 0              /*don't let this program recurse.*/
+                                       /*Mama said that cursing is a sin*/
+                                       /*invoke ourself with a  2nd arg.*/
+call prog_nam  , 'subroutine'          /*call ourself as a  subroutine. */
+zz = prog_nam( , 'function')           /*  "     "     " "  function.   */
+                                       /*stick a fork in it, we're done.*/