Data commit

Task/Include-a-file/REXX/include-a-file-1.rexx

@@ -0,0 +1 @@
+/*%INCLUDE member */

Task/Include-a-file/REXX/include-a-file-2.rexx

@@ -0,0 +1,14 @@
+/* Include a file and INTERPRET it; this code uses ARexx file IO BIFs */
+say 'This is a program running.'
+if Open(other,'SYS:Rexxc/otherprogram.rexx','READ') then do
+   say "Now we opened a file with another chunk of code. Let's read it into a variable."
+   othercode=''
+   do until EOF(other)
+      othercode=othercode || ReadLn(other) || ';'
+      end
+   call Close(other)
+   say 'Now we run it as part of our program.'
+   interpret othercode
+   end
+say 'The usual program resumes here.'
+exit 0

Task/Include-a-file/REXX/include-a-file-3.rexx

@@ -0,0 +1,5 @@
+/* This is program 1 */
+say 'This is program 1 writing on standard output.'
+call Program2
+say 'Thank you, program 1 is now ending.'
+exit 0

Task/Include-a-file/REXX/include-a-file-4.rexx

@@ -0,0 +1,4 @@
+/* This is program 2 */
+say 'This is program 2 writing on standard output.'
+say 'We now return to the caller.'
+return