/* REXX
 |
 | Name: REXXVer
 |
 | Author: David Alcock
 |
 | Purpose: Show the Rexx version and environment information
 |
 | Written: 26 January 1998
 |
 | Change History:
 | - 09-FEB-1998 David Alcock
 |   - Removed special code for TSO formatting of PARSE SOURCE
 |   - Print execution date
 |
 */
say "ADDRESS() returns '"address()"'"
say " "
PARSE VERSION lang ver dated datem datey
say "VERSION: Lang("lang") Version("ver") Date("dated datem datey")"
say " "
PARSE SOURCE s1 s2 s3 s4 s5 s6 s7 s8 s9
say "SOURCE: Env("s1")"
say "        source2("s2") source3("s3") source4("s4")"
say "        source5("s5") source6("s6") source7("s7")"
say "        source8("s8") source9("s9")"
say " "
say "RexxVer executed on "translate(date(),'-',' ')
exit 0