MVSFORUMS.com

anu_kannu · Beginner Joined: 16 May 2007 Posts: 10 Topics: 5

A VGET command is issued in a PLI-DB2. The program is a part of online module, called from REXX. The variable is VPUT into the PROFILE pool in the CLIST that invokes the application.

The REXX which calls the PLI also runs another PLI pgm (similar in logic). But the second program has no issues with VGET for the same variable.

The commnd issued was

CALL ISPLINK('VGET ', CCTY, ' PROFILE');

CCTY is the variable name. The programs try to retrieve this value from the profile pool.

Error message received was:
ISPV021

Invalid GET request
Variable name ' 0' is not a valid REXX variable name.

Can someone help?

superk · Advanced Joined: 19 Dec 2002 Posts: 684 Topics: 5

Did you VDEFINE CCTY first?

anu_kannu · Beginner Joined: 16 May 2007 Posts: 10 Topics: 5

semigeezer · Posted: Thu Sep 20, 2007 10:25 am Post subject:

I suspect that you are simply calling the PL/I program either as a command, with the TSO CALL statement or using something like Address LINKMVS. These will not work if you are going to use ISPF services within the program because ISPF still thinks it is running in a Rexx environment and so it tries to call Rexx (actually TSO) services to get the variable values.

You need to invoke your program using the ISPEXEC SELECT PGM() or CMD() service. This will establish a new 'select level' in which variable services are assumed to be directly handled by ISPF as opposed to TSO.

anu_kannu · Beginner Joined: 16 May 2007 Posts: 10 Topics: 5

The program is called like this:

"DSN SYS(DB2 Subsystem)"
DROPBUF
QUEUE "RUN PROGRAM(PGMNAME) PLAN(PGMNAME) ",
"LIB ('Load library name') ",
QUEUE "END"

The point is the pgm was working fine 2 months back. Its giving this error all of a sudden. And only this program is giving error while the other one with the similar logic is working fine. Both these pgms are called in the same REXX and in the same way.

semigeezer · Posted: Fri Sep 21, 2007 2:44 am Post subject:

I don't know anything about DB2 but something is different, related to my last post. One program is running with ISPF thinking it is in Rexx mode and the other is not. Maybe something about nesting within Rexx and the handling of the buffer. Is stack management (queue, makebuf, drobpuf, etc) and rexx program call structure the same in both?

arnold57 · Beginner Joined: 01 Oct 2004 Posts: 30 Topics: 0

If CCTY is the variable name, then you need to put it in quotes with a blank to terminate it: