tasks a-s

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

@@ -0,0 +1,4 @@
+/* Rexx */
+
+Parse source . . pgmPath
+Say pgmPath

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

@@ -0,0 +1,2 @@
+#!/bin/sh
+rexxbit.rexx $0 $*

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

@@ -0,0 +1 @@
+say "The program is called " arg(1)

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

@@ -0,0 +1,5 @@
+/*REXX program RANG1 in PDS N561985.PRIV.CLIST W. Pachl */
+Parse Source a b c
+Say 'a='a
+Say 'b='!!b
+Say 'c='c

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.*/