RXSUBCOM / ISPD117 / INSUFFICIENT VIRTUAL STORAGE TO EXECUTE COMMAND

[Van Daele Philip]

Dear all,

I'm a bit in a pickle and I hope the list can help me out.

I'm doing some experimenting with Rexx for DB/2 and during this tests I
encounter the following problem.

8 *-* ADDRESS TSO "SUBCOM DSNREXX"
>L> "SUBCOM DSNREXX"
+++ RC(1) +++
9 *-* IF RC <> 0
>V> "1"
>L> "0"
>O> "1"
*-* THEN
*-* S_RC = RXSUBCOM('ADD','DSNREXX','DSNREXX')
>L> "ADD"
>L> "DSNREXX"
>L> "DSNREXX"
INSUFFICIENT VIRTUAL STORAGE TO EXECUTE COMMAND
1 +++ RXSUBCOM(FUNCTION,NAME[,ROUTINE][,TOKEN][,DDNAME])
Error running RXSUBCOM, line 1: Incorrect call to routine
1 +++ RXSUBCOM(FUNCTION,NAME[,ROUTINE][,TOKEN][,DDNAME])

<<< continuing >>>

9 +++ S_RC = RXSUBCOM('ADD','DSNREXX','DSNREXX')

Error running TEST, line 9: Incorrect call to routine

ISPD117

The initially invoked CLIST ended with a return code = 20040

CACC074.REXXEXC.JOB28704.D0000102.? was preallocated (no free was
done).
READY

END

Using the archives of this list I started looking for a solution.
* INSUFFICIENT VIRTUAL STORAGE
--> I think there is a
way of encreasing Virtual Memory the job gets but can't
remember the correct
syntax to do so (can DYNAMNBR=20 do the trick ??).

* ISPFD117 Program is not a valid
compiled EXEC
--> Is RXSUBCOM badly
installed ?? Is there a way to check or to resolve this
situation ??
--> RELATED POSTS :
11620 / 11624

* CLIST
--> Did I envoke the
rexx exec incorrectly causing a wrong handling of the
process (see jcl at
the end of the mail)

* Return Code = 20040
-->

---------------------------
| JCL used to run the job |
---------------------------
//REXXEXC JOB (3,K820,2099301),'REXX EXEC',CLASS=T,
// MSGCLASS=X,NOTIFY=&SYSUID,MSGLEVEL=(1,1)
//**************************************************
//**************************************************
//REXXEXC EXEC PGM=IKJEFT01
//ISPPLIB DD DSN=SYS0.ISP.SISPPENU,DISP=SHR
//ISPMLIB DD DSN=SYS0.ISP.SISPMENU,DISP=SHR
//ISPSLIB DD DSN=SYS0.ISP.SISPSENU,DISP=SHR
//ISPTLIB DD DSN=SYS0.ISP.SISPTENU,DISP=SHR
//ISPTABL DD LIKE=SYS0.ISP.SISPTENU,UNIT=VIO
//ISPPROF DD LIKE=SYS0.ISP.SISPTENU,UNIT=VIO
//ISPLOG DD SYSOUT=*,RECFM=VA,LRECL=125
//SYSEXEC DD DSN=CACC074.ISPF.REXX,DISP=SHR
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD *
ISPSTART CMD(%TEST PARMS)
/*

----------------------------------------------------------------------
For TSO-REXX subscribe / signoff / archive access instructions,
send email to LIST...@VM.MARIST.EDU with the message: INFO TSO-REXX

[Hilton, Tina]

Try adding the REGION parameter on the job or exec card.

[Van Daele Philip]

I tried it :

//REXXEXC JOB (3,K820,2099301),'REXX EXEC',CLASS=T,

// MSGCLASS=X,NOTIFY=&SYSUID,MSGLEVEL=(1,1),REGION=8M
//**************************************************
//**************************************************
//REXXEXC EXEC PGM=IKJEFT01,DYNAMNBR=99

//ISPPLIB DD DSN=SYS0.ISP.SISPPENU,DISP=SHR
//ISPMLIB DD DSN=SYS0.ISP.SISPMENU,DISP=SHR
//ISPSLIB DD DSN=SYS0.ISP.SISPSENU,DISP=SHR
//ISPTLIB DD DSN=SYS0.ISP.SISPTENU,DISP=SHR
//ISPTABL DD LIKE=SYS0.ISP.SISPTENU,UNIT=VIO
//ISPPROF DD LIKE=SYS0.ISP.SISPTENU,UNIT=VIO
//ISPLOG DD SYSOUT=*,RECFM=VA,LRECL=125
//SYSEXEC DD DSN=CACC074.ISPF.REXX,DISP=SHR
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD *
ISPSTART CMD(%TEST PARMS)
/*

But it came out the same.

Thanks,
Grtz,
Philip Van Daele
Belgium

-----Oorspronkelijk bericht-----
Van: TSO REXX Discussion List [mailto:TSO-...@VM.MARIST.EDU] Namens
Hilton, Tina
Verzonden: maandag 8 november 2004 16:12
Aan: TSO-...@VM.MARIST.EDU
Onderwerp: Re: RXSUBCOM / ISPD117 / INSUFFICIENT VIRTUAL STORAGE TO

[Kremers, Dolly A, HRC-Alexandria/EDS]

Try: region=0M

[Van Daele Philip]

Sorry doesn't work.

-----Oorspronkelijk bericht-----
Van: TSO REXX Discussion List [mailto:TSO-...@VM.MARIST.EDU] Namens

Kremers, Dolly A, HRC-Alexandria/EDS
Verzonden: maandag 8 november 2004 16:16

[Seibert, Dave]

Hello Philip

Are you doing other work in the Rexx exec which consumes lots of resource?

For example, do you have any stem variable sets with large numbers of items?

The most common cause I have seen to the Insufficient Virtual Storage
problem has been great volumes of variables, usually stems.

Dave

The contents of this e-mail are intended for the named addressee only. It
contains information that may be confidential. Unless you are the named
addressee or an authorized designee, you may not copy or use it, or disclose
it to anyone else. If you received it in error please notify us immediately
and then destroy it.

[Stephen E. Bacher]

"Seibert, Dave" <Dave.S...@COMPUWARE.COM> wrote:

>The most common cause I have seen to the Insufficient Virtual Storage
>problem has been great volumes of variables, usually stems.

Or an infinite (recursive) loop in the logic.

- seb

[Van Daele Philip]

Hi Dave,

It's a very small rexx exec.

/* REXX : DB/2 TimeStamp
*/
/***********************************************************************
*******/
TRACE I

SELSTMT = "select current timestamp" ,

"FROM SYSIBM.SYSdummy1"

ADDRESS TSO "SUBCOM DSNREXX"

S_RC = RXSUBCOM('ADD','DSNREXX','DSNREXX')

ADDRESS DSNREXX "CONNECT DB2O"

ADDRESS DSNREXX "EXECSQL DECLARE C1 CURSOR FOR S1"

ADDRESS DSNREXX "EXECSQL PREPARE S1 FROM :SELSTMT"

IF SQLCODE >< 0 THEN CALL PROC01

ADDRESS DSNREXX "EXECSQL OPEN C1"

say sqlcode

say sqlerrmc

ADDRESS DSNREXX "EXECSQL FETCH C1 INTO :RNAME"
do while SqlCode = 0
say RNAME
ADDRESS DSNREXX "EXECSQL FETCH C1 INTO :RNAME"
end

ADDRESS DSNREXX "DISCONNECT"
say sqlcode
say sqlerrmc

exit 0

PROC01:
say SqlCode
say SqlErrMc
exit 8
RETURN

I saw it on this list a time ago.

Greetz,
Philip Van Daele

-----Oorspronkelijk bericht-----
Van: TSO REXX Discussion List [mailto:TSO-...@VM.MARIST.EDU] Namens

Seibert, Dave
Verzonden: dinsdag 9 november 2004 12:15

Aan: TSO-...@VM.MARIST.EDU
Onderwerp: Re: RXSUBCOM / ISPD117 / INSUFFICIENT VIRTUAL STORAGE TO
EXECUTE COMMAND

Hello Philip

Are you doing other work in the Rexx exec which consumes lots of
resource?

For example, do you have any stem variable sets with large numbers of
items?

The most common cause I have seen to the Insufficient Virtual Storage

problem has been great volumes of variables, usually stems.

Dave

The contents of this e-mail are intended for the named addressee only.
It contains information that may be confidential. Unless you are the
named addressee or an authorized designee, you may not copy or use it,
or disclose it to anyone else. If you received it in error please notify
us immediately and then destroy it.

----------------------------------------------------------------------

[Seibert, Dave]

Hello again Philip.

I looked back to your original post and see that it's the RXSUBCOM that is
failing.

I wonder if there's a problem with the install of the DB2 Rexx support at
your facility.
Is any other program able to use the DB2-Rexx facility?

Your program runs fine at my place.

[Van Daele Philip]

Hi Dave,

Well I'm realy the first to use this.
I'm new to this company (setup of a Acceptation Validation Env.) and I'm afraid you're right.
I will have to check with the DBA's to hear what's wrong.

Any good tips are welcome.

Greetz,
Philip Van Daele
°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°
°° Something to worry about tomorrow °°
°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°

-----Oorspronkelijk bericht-----
Van: TSO REXX Discussion List [mailto:TSO-...@VM.MARIST.EDU] Namens Seibert, Dave

Verzonden: dinsdag 9 november 2004 16:28

Aan: TSO-...@VM.MARIST.EDU
Onderwerp: Re: RXSUBCOM / ISPD117 / INSUFFICIENT VIRTUAL STORAGE TO EXECUTE COMMAND

Hello again Philip.

[Hilton, Tina]

Have you tried running it foreground from TSO? Of course, your SDSNLOAD
would need to be in the linklist or in your steplib.

[Van Daele Philip]

Dear Tina,

Doing so I get the following error :

8 *-* ADDRESS TSO "SUBCOM DSNREXX"
>L> "SUBCOM DSNREXX"
+++ RC(1) +++

9 *-* /* CALL RXSUBCOM 'ADD', 'REXXTOOL', 'RXTARXT' */
10 *-* /* CALL RXSUBCOM 'ADD', 'DSNREXX', 'DSNREXX' */
11 *-* S_RC = RXSUBCOM('ADD','DSNREXX','DSNREXX')

>L> "ADD"
>L> "DSNREXX"
>L> "DSNREXX"

System abend code 80A, reason code 00000016.
Recovery retry to module IRXEEXEC failed.
Abend in external function RXSUBCOM.
IEA995I SYMPTOM DUMP OUTPUT
SYSTEM COMPLETION CODE=80A REASON CODE=00000010
TIME=16.38.48 SEQ=15835 CPU=0040 ASID=01D1
PSW AT TIME OF ERROR 070C1000 812634B2 ILC 2 INTC 0D
NO ACTIVE MODULE FOUND
NAME=UNKNOWN
DATA AT PSW 012634AC - 00181610 0A0D18CE 18FB180C
AR/GR 0: 009FB01F/84000000 1: 00000000/8480A000
2: 00000000/7F34F800 3: 00000000/00FCAC98
4: 00000000/009CA118 5: 00000000/0014B868
6: 00000000/81437430 7: 00000000/00F64100
8: 00000000/00000000 9: 00000000/E6005000
A: 00000000/85944068 B: 00000000/7F34F840
C: 00000000/00000040 D: 00000000/189F8780
E: 00000000/00FE4980 F: 01000002/00000010
END OF SYMPTOM DUMP
Unable to delete the specified REXX exec. It cannot be found.

1 +++ RXSUBCOM(FUNCTION,NAME[,ROUTINE][,TOKEN][,DDNAME])
Error running RXSUBCOM, line 1: Incorrect call to routine
1 +++ RXSUBCOM(FUNCTION,NAME[,ROUTINE][,TOKEN][,DDNAME])
Error running RXSUBCOM, line 1: Incorrect call to routine
1 +++ RXSUBCOM(FUNCTION,NAME[,ROUTINE][,TOKEN][,DDNAME])
Error running RXSUBCOM, line 1: Incorrect call to routine
1 +++ RXSUBCOM(FUNCTION,NAME[,ROUTINE][,TOKEN][,DDNAME])
Error running RXSUBCOM, line 1: Incorrect call to routine
1 +++ RXSUBCOM(FUNCTION,NAME[,ROUTINE][,TOKEN][,DDNAME])
Error running RXSUBCOM, line 1: Incorrect call to routine
1 +++ RXSUBCOM(FUNCTION,NAME[,ROUTINE][,TOKEN][,DDNAME])
Error running RXSUBCOM, line 1: Incorrect call to routine
1 +++ RXSUBCOM(FUNCTION,NAME[,ROUTINE][,TOKEN][,DDNAME])
Error running RXSUBCOM, line 1: Incorrect call to routine
1 +++ RXSUBCOM(FUNCTION,NAME[,ROUTINE][,TOKEN][,DDNAME])
Error running RXSUBCOM, line 1: Incorrect call to routine
1 +++ RXSUBCOM(FUNCTION,NAME[,ROUTINE][,TOKEN][,DDNAME])
Error running RXSUBCOM, line 1: Incorrect call to routine
1 +++ RXSUBCOM(FUNCTION,NAME[,ROUTINE][,TOKEN][,DDNAME])
Error running RXSUBCOM, line 1: Incorrect call to routine
1 +++ RXSUBCOM(FUNCTION,NAME[,ROUTINE][,TOKEN][,DDNAME])

Seems to be the same as in batch except WITH the abendcodes.

Greetz,
Philip Van Daele.

-----Oorspronkelijk bericht-----
Van: TSO REXX Discussion List [mailto:TSO-...@VM.MARIST.EDU] Namens
Hilton, Tina
Verzonden: dinsdag 9 november 2004 16:35
Aan: TSO-...@VM.MARIST.EDU
Onderwerp: Re: RXSUBCOM / ISPD117 / INSUFFICIENT VIRTUAL STORAGE TO

[Seibert, Dave]

I'm not a sysprog so I don't know for sure, but there ought to be an
IVP(Install verification progra) to prove that the install/config are
complete and correct.

Ask the installer to run the IVP if one exists.
You might check to see if there are any (unreasonable) installation exits
limiting the region size.

Dave

-----Original Message-----
From: TSO REXX Discussion List [mailto:TSO-...@VM.MARIST.EDU] On Behalf Of
Van Daele Philip
Sent: Tuesday, November 09, 2004 10:39 AM
To: TSO-...@VM.MARIST.EDU
Subject: Re: RXSUBCOM / ISPD117 / INSUFFICIENT VIRTUAL STORAGE TO EXECUTE
COMMAND

Hi Dave,

Well I'm realy the first to use this.
I'm new to this company (setup of a Acceptation Validation Env.) and I'm
afraid you're right. I will have to check with the DBA's to hear what's
wrong.

Any good tips are welcome.

Greetz,
Philip Van Daele
°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°
°° Something to worry about tomorrow °°
°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°

-----Oorspronkelijk bericht-----

Van: TSO REXX Discussion List [mailto:TSO-...@VM.MARIST.EDU] Namens

Seibert, Dave
Verzonden: dinsdag 9 november 2004 16:28

Aan: TSO-...@VM.MARIST.EDU
Onderwerp: Re: RXSUBCOM / ISPD117 / INSUFFICIENT VIRTUAL STORAGE TO EXECUTE
COMMAND

Hello again Philip.

[Roberto Halais Kareh]

Check yout TSO logon screen for SIZE parameter. I have 2096128 specified.

-----Original Message-----
From: TSO REXX Discussion List [mailto:TSO-...@VM.MARIST.EDU]On Behalf
Of Van Daele Philip
Sent: Tuesday, November 09, 2004 11:01 AM
To: TSO-...@VM.MARIST.EDU
Subject: Re: RXSUBCOM / ISPD117 / INSUFFICIENT VIRTUAL STORAGE TO
EXECUTE COMMAND

Hi Dave,

It's a very small rexx exec.

/* REXX : DB/2 TimeStamp
*/
/***********************************************************************
*******/
TRACE I

SELSTMT = "select current timestamp" ,

"FROM SYSIBM.SYSdummy1"

ADDRESS TSO "SUBCOM DSNREXX"

S_RC = RXSUBCOM('ADD','DSNREXX','DSNREXX')

ADDRESS DSNREXX "CONNECT DB2O"

ADDRESS DSNREXX "EXECSQL DECLARE C1 CURSOR FOR S1"

ADDRESS DSNREXX "EXECSQL PREPARE S1 FROM :SELSTMT"

IF SQLCODE >< 0 THEN CALL PROC01

ADDRESS DSNREXX "EXECSQL OPEN C1"

say sqlcode

say sqlerrmc

ADDRESS DSNREXX "EXECSQL FETCH C1 INTO :RNAME"
do while SqlCode = 0
say RNAME
ADDRESS DSNREXX "EXECSQL FETCH C1 INTO :RNAME"
end

ADDRESS DSNREXX "DISCONNECT"
say sqlcode
say sqlerrmc

exit 0

PROC01:
say SqlCode
say SqlErrMc
exit 8
RETURN

I saw it on this list a time ago.

Greetz,
Philip Van Daele

-----Oorspronkelijk bericht-----

Van: TSO REXX Discussion List [mailto:TSO-...@VM.MARIST.EDU] Namens
Seibert, Dave

Verzonden: dinsdag 9 november 2004 12:15

Aan: TSO-...@VM.MARIST.EDU
Onderwerp: Re: RXSUBCOM / ISPD117 / INSUFFICIENT VIRTUAL STORAGE TO
EXECUTE COMMAND

Hello Philip

Are you doing other work in the Rexx exec which consumes lots of
resource?

For example, do you have any stem variable sets with large numbers of
items?

The most common cause I have seen to the Insufficient Virtual Storage
problem has been great volumes of variables, usually stems.

Dave