/*-----------------------------------------------------------
  Determine Version of REXX Interpreter
-------------------------------------------------------------*/
XDETREXX: PROCEDURE
  parse version name level date1 date2 date3
  /*--- Use this section to display REXX Interpreter Info ---
      SAY name
      SAY level
      SAY date1
      SAY date2
      SAY date3
      EXIT                */
  /*--  Determine which REXX interpreter is being used ---*/
  TSPF = 0                                                 /* Using a stand-alone REXX Interpreter DOSREXX*/
  IF name = "REXXSAA" & date3 = "1994" THEN TSPF = 0       /* Using PCDOS REXX*/
  IF name = "REXX-r4" THEN TSPF = 1                        /* Using R4 */
  IF name = "REXXPC88" & date3 = "1987" THEN TSPF = 2      /* Using REXXIBM (1987)*/
  IF name = "REXX/Personal" & date3 = "1992" THEN TSPF = 3 /* Using Personal REXX v4*/
  IF name = "REXX/2" & date3 = "1995" THEN TSPF = 4        /* Using SPFPC v4 */
  IF name = "REXX/2" & date3 = "1996" THEN TSPF = 5        /* Using SPFPRO */
  IF name = "REXX-ooRexx_3.2.0(MT)" THEN TSPF = 6          /* Using OOREXX */
RETURN (TSPF)