Receving GETMAIN error while using LMDINIT

MFSubbu · New User Joined: 16 Feb 2008 Posts: 8 Location: Bangalore

In my rexx prog i am trying to give a dataset qualifier as input and finiding out how many datasets are there with that qualifier. if its more than a specified limit. I am splitting that further.

If i give a qualifier with less number of datasets, my program works fine.
If i give a qualifier which contains nearly 2000 datasets, it throwing the following error.

ISPT008

GETMAIN error
ISPDTSRS received return code 4 from GETMAIN.

Current dialog statement:
LMDLIST LISTID(ISR00382) OPTION(LIST) DATASET(FDsnlist)

Enter HELP command for further information regarding this error.
Press ENTER key to terminate the dialog.

I am confused whether some error in my program or something related to memory space.

Can any one help me to solve this.

dick scherrer · Posted: Wed Apr 30, 2008 12:00 am Post subject:

Hello MFSubbu and welcome to the forums,

MFSubbu · New User Joined: 16 Feb 2008 Posts: 8 Location: Bangalore

What can be the solution for this?

dick scherrer · Posted: Wed Apr 30, 2008 12:45 am Post subject:

Hello,

Have you tried to run this in batch? I suspect that you can easily get more memory in a batch execution. . .

MFSubbu · New User Joined: 16 Feb 2008 Posts: 8 Location: Bangalore

Can you provide me with a sample jcl to submit a REXX program.

dick scherrer · Posted: Wed Apr 30, 2008 11:07 am Post subject:

Hello,

Something that will be of great use to you is becoming familiar with the forum "SEARCH" feature (link near the top center). Using it, i found:

http://ibmmainframes.com/viewtopic.php?t=11083

There are others if you want more.

MFSubbu · New User Joined: 16 Feb 2008 Posts: 8 Location: Bangalore

I even tried submitting in Batch. But again failed.
Its in execution for a long time and if i check in spool, Its displaying as
"Estimated lines exceeded 1000000 lines"

Even i tried allocating virtual memory thru GETMAIN, Even that of no use

enrico-sorichetti

Did You bother to look at the spool to see what it was printing ?
it would be interesting for us to know

MFSubbu · New User Joined: 16 Feb 2008 Posts: 8 Location: Bangalore

Following is the message displayed in the spool:

+++ RC(-3) +++
*-* "LMDLIST LISTID("LisTID") OPTION(LIST) DATASET("'FDsnli
+++ RC(-3) +++
*-* "LMDLIST LISTID("LisTID") OPTION(LIST) DATASET("'FDsnli
+++ RC(-3) +++
*-* "LMDLIST LISTID("LisTID") OPTION(LIST) DATASET("'FDsnli
+++ RC(-3) +++
*-* "LMDLIST LISTID("LisTID") OPTION(LIST) DATASET("'FDsnli

JOB35989 �HASP375 TTOIJCL1 ESTIMATE EXCEEDED BY 1,800,000 L
JOB35989 �HASP375 TTOIJCL1 ESTIMATE EXCEEDED BY 1,820,000 L
JOB35989 �HASP375 TTOIJCL1 ESTIMATE EXCEEDED BY 1,840,000 L
JOB35989 �HASP375 TTOIJCL1 ESTIMATE EXCEEDED BY 1,860,000 L
JOB35989 �HASP375 TTOIJCL1 ESTIMATE EXCEEDED BY 1,880,000 L
JOB35989 �HASP375 TTOIJCL1 ESTIMATE EXCEEDED BY 1,900,000 L
JOB35989 �HASP375 TTOIJCL1 ESTIMATE EXCEEDED BY 1,920,000 L
JOB35989 �HASP375 TTOIJCL1 ESTIMATE EXCEEDED BY 1,940,000 L
JOB35989 �HASP375 TTOIJCL1 ESTIMATE EXCEEDED BY 1,960,000 L

dick scherrer · Posted: Mon May 05, 2008 12:09 pm Post subject:

Hello,

Those are messages telling you that you have printed too many lines.

What are the lines that are being printed (the actual output from the step)?

enrico-sorichetti

I dare to say that the script is in an endless loop due to not checking
the error
unless it is a chicken and egg issue

getmain error due to lack of error checking in the script

script error induced by getmain error

MFSubbu · New User Joined: 16 Feb 2008 Posts: 8 Location: Bangalore

Thanks for everyone for helping with this.

I have given the condition RC > 0 in my program, and since while executing LMDLIST command its giving a RC(-3) which is less than 0, its turning into the endless loop.

Rc(-3) will be due to not specifying the environment. But i have given "Address ISPEXEC" before executing LMDINIT.

Can any one list me the possible reasons for RC = -3 from LMDINIT or LMDLIST command.

expat · Posted: Tue May 06, 2008 11:33 am Post subject:

Because you do not have the required ISPF libraries allocated in your JCL ?

MFSubbu · New User Joined: 16 Feb 2008 Posts: 8 Location: Bangalore

The following is the jcl which i used to submit the program(which i got from a website). Kindly have a look and let me know if any changes to be made.

//TTOIJCL1 JOB 1,,
// CLASS=6,
// MSGCLASS=0,NOTIFY=&SYSUID,REGION=0M
//TSOBATCH EXEC PGM=IKJEFT1A,DYNAMNBR=200,REGION=4096K
//SYSPROC DD DISP=SHR,DSN=SYS1.SISPCLIB
// DD DISP=SHR,DSN=SYS1.SBPXEXEC
//SYSEXEC DD DISP=SHR,DSN=TTOI.THIAGAS.EXEC
// DD DISP=SHR,DSN=SYS1.SBPXEXEC
// DD DISP=SHR,DSN=SYS1.SISPEXEC
//ISPPLIB DD DISP=SHR,DSN=SYS1.SISPPENU
// DD DISP=SHR,DSN=SYS1.SBPXPENU
//ISPMLIB DD DISP=SHR,DSN=SYS1.SISPMENU
// DD DISP=SHR,DSN=SYS1.SBPXMENU
//ISPSLIB DD DISP=SHR,DSN=SYS1.SISPSLIB
// DD DISP=SHR,DSN=SYS1.SISPSENU
//ISPTLIB DD DISP=SHR,DSN=SYS1.SISPTENU
// DD DISP=SHR,DSN=SYS1.SBPXTENU
// DD DISP=SHR,DSN=SYS1.SISFTLIB
//ISPPROF DD UNIT=VIO,DISP=(NEW,DELETE),SPACE=(TRK,(1,5,5)),
// DCB=(LRECL=80,BLKSIZE=6160,DSORG=PO,RECFM=FB)
//ISPLOG DD SYSOUT=*,
// DCB=(LRECL=120,BLKSIZE=2400,DSORG=PS,RECFM=FB)
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUT2 DD SYSOUT=*
//SYSUADS DD DISP=SHR,DSN=SYS1.UADS
//DDOUT DD DISP=SHR,DSN=TTOI.THIAGAS.OUTPUT.JCL
//SYSTSIN DD *
%TEST1
//

expat · Posted: Tue May 06, 2008 12:05 pm Post subject:

Try

ISPSTART CMD(%TEST1)

Instead of

%TEST1