/* NetRexx
 |
 | Name: RexxVerS (Simple NetRexx: Java application)
 |
 | 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
 | - 24-FEB-1998 David Alcock
 |   - New variant of REXXVER rexx exec created as name REXXVERS
 |     as NetRexx version so it can be used on as a JAVA application
 |   - ADDRESS() not implemented in NetRexx
 |   - TRANSLATE(Date(... eliminated because of Java Date format
 |   - Added Java environment display
 */
say "ADDRESS() not available in NetRexx"
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 "RexxVerN executed on "date()

/* Non-Netrexx (JAVA) environment information from executing system */

say " "
say "Java System properties for executing system:"
say "java.version....."System.getProperty("java.version")
say "java.vendor......"System.getProperty("java.vendor")
say "os.name.........."System.getProperty("os.name")
say "os.version......."System.getProperty("os.version")

exit 0