/* REXX glvtest1.rex: Test OPSSETV() and OPSGETV() from the USS shell */
TRACE A
PARSE SOURCE env . filename . . . . env2 .
SAY filename 'running under' env env2

rc = OPSSETV("GLVTEMP0.TEST (Kilroy was here)") /* Set global variable*/
SAY 'OPSSETV RC='rc 'opsrc='opsrc

value = OPSGETV("GLVTEMP0.TEST")  /* get value of GLVTEMP0.TEST */
SAY 'OPSGETV() VALUE='value 'opsrc='opsrc

getvl.0 = 0
rc=OPSGETVL("GLVTEMP0.*")     /* list variables starting with GLVTEMP0*/
SAY 'OPSGETVL RC='rc 'opsrc='opsrc
  DO i = 1 TO getvl.0
  SAY getvl.i "=" OPSGETV(getvl.i)
  END i

rc=OPSDELV("GLVTEMP0.TEST")   /* Delete global variable */
SAY 'OPSDELV() RC='rc 'opsrc='opsrc
RETURN 0