Rexx - Portability
Portability is an important aspect in any programming language. As one knows, Rexx is available in a variety of operating systems such as Windows and Linux. So it need to be ensured that when one develops a program on the Windows platform, that it has the necessary precautions taken if the same programs runs on a Linux platform.
Rexx has the ability to run system level commands. There are commands which can be used to understand what is the operating system on which it is running on. Based on the output it can then take the appropriate actions to see what are the commands that can be run on this operating system.
The following example shows how the parse functions are used to get the details of the operating system on which the program is running.
/* Main program */ parse version language level date month year. parse source system invocation filename. language = translate(language) if pos('REGINA',language) = 0 then say 'Error , the default interpreter is not Regina' language say 'The Interpreter version/release date is:' date month year say 'The Language level is: ' level say 'The Operating System is' select when system = 'WIN32' then 'ver' when system = 'UNIX' | system = 'LINUX' then 'uname -a' otherwise say 'Unknown System:' system end if rc <> 0 then say 'Error :' rc
The output will vary depending on operating system. A sample output is given below.
The Interpreter version/release date: 5 Apr 2015 The Language level is: 5.00 The Operating System is Unknown System: WIN64 Bad return code: RC