|
View previous topic :: View next topic
|
| Author |
Message |
Ed Goodman
Active Member
Joined: 08 Jun 2011
Posts: 556
Location: USA
|
|
|
|
Running a REXX in batch, it is using ISPF library services. I have the dataset in the JCL and am using the DDNAME parm for the services (see below).
| Code: |
/* REXX */
/* TRACE ALL */
ADDRESS ISPEXEC
"LMINIT DATAID(PDSIN) DDNAME(PDSIN)"
"LMINIT DATAID(MEMLIST) DDNAME(MEMLIST)"
"LMOPEN DATAID("PDSIN")"
"LMOPEN DATAID("MEMLIST") OPTION(OUTPUT)"
DO FOREVER
"LMMLIST DATAID("PDSIN") OPTION(LIST) MEMBER(MEM) STATS(YES)"
IF RC <> 0 THEN LEAVE
"LMPUT DATAID("MEMLIST") MODE(INVAR) DATALOC(MEM) DATALEN(80)"
END
"LMMLIST DATAID("PDSIN") OPTION(FREE)"
"LMCLOSE DATAID("PDSIN")"
"LMCLOSE DATAID("MEMLIST")"
EXIT 0
|
I'm not boxed in to using the ISPF library services or anything. So I can change this to whatever works.
If I remember correctly, if this were CLIST-type commands, the fix would be to not have the ALLOC/FREE statements. However, the DATAID value needs to be determined, so I need the LMINIT.
Also, the process actually works fine, I just want to know what is causing the message and try to get rid of it.
So... why is it popping up? |
|
| Back to top |
|
 |
Ed Goodman
Active Member
Joined: 08 Jun 2011
Posts: 556
Location: USA
|
|
|
|
Here is the JCL I used:
| Code: |
//JS010 EXEC PGM=IKJEFT01
//PDSIN DD DSN=WTSO.WNEG.COPYBOOK,DISP=SHR
//MEMLIST DD DSN=&&MEMLIST,DISP=(,PASS),
// UNIT=SYSDA,SPACE=(TRK,1),LRECL=80,RECFM=FB,
// BLKSIZE=80,DSORG=PS
//SYSEXEC DD DSN=WTSO.WNEG.JCL,DISP=SHR
//SYSPROC DD DSN=WTSO.WNEG.JCL,DISP=SHR
//ISPPLIB DD DSN=ISP.SISPPENU.NONTECH,DISP=SHR
// DD DSN=ISP.SISPPENU,DISP=SHR
//ISPMLIB DD DSN=ISP.SISPMENU,DISP=SHR
//ISPSLIB DD DSN=ISP.SISPSENU,DISP=SHR
// DD DSN=ISP.SISPSLIB,DISP=SHR
//ISPTLIB DD DSN=ISP.SISPTENU,DISP=SHR
//ISPLIST DD SYSOUT=*
//ISPLOG DD DUMMY
//ISPPROF DD DISP=(NEW,PASS),DSN=&&ISPPROF,
// SPACE=(TRK,(10,10,5)),UNIT=SYSDA,
// DCB=(LRECL=80,BLKSIZE=0,DSORG=PO,RECFM=FB)
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD *
ISPSTART CMD(%MEMLISTR) NEWAPPL(ISP) BDISPMAX(9999)
/*
//SYSPRINT DD SYSOUT=*
//SYSTERM DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SDSFDUMP DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//AMSDUMP DD SYSOUT=*
//SYSDBOUT DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//SYSIN DD *
/*
|
I also had
|
|
| Back to top |
|
|
Akatsukami
Global Moderator
Joined: 03 Oct 2009
Posts: 1788
Location: Bloomington, IL
|
|
| Back to top |
|
|
Pedro
Global Moderator
Joined: 01 Sep 2006
Posts: 2547
Location: Silicon Valley
|
|
|
|
| Quote: |
| So I can change this to whatever works. |
There is a defect in your code... it has no comments to describe what you are trying to do.
Suggestion- instead of getting them one-by-one, with OPTION(LIST), get them all at once by using OPTION(SAVE). |
|
| Back to top |
|
|
Ed Goodman
Active Member
Joined: 08 Jun 2011
Posts: 556
Location: USA
|
|
|
|
Oh I did search the web, but that link did NOT come up because I was too literal.
I used quotes:
"NULLFILE was preallocated (no free was done)"
in the google search box, and it filtered out that result.
A big difference when it's "NULLFILE" too. There isn't a way to track it back to a DD like there is when you get the temp name. |
|
| Back to top |
|
|
Mickeydusaor
Active User
Joined: 24 May 2006
Posts: 258
Location: Salem, Oregon
|
|
|
|
if you just want to get rid of the message add the following to you Rexx.
XMSG = MSG('OFF') at the start of your Rexx.
XMSG = MSG('ON') at the end of your Rexx. |
|
| Back to top |
|
|
Akatsukami
Global Moderator
Joined: 03 Oct 2009
Posts: 1788
Location: Bloomington, IL
|
|
|
|
| Mickeydusaor wrote: |
if you just want to get rid of the message add the following to you Rexx.
XMSG = MSG('OFF') at the start of your Rexx.
XMSG = MSG('ON') at the end of your Rexx. |
No, that message is generated after the exec is exited.[/list] |
|
| Back to top |
|
|
Ed Goodman
Active Member
Joined: 08 Jun 2011
Posts: 556
Location: USA
|
|
|
|
I experimented a bit after reading the provided link. When I changed the ISPLOG file not not be 'DUMMY', the message changed from "NULLFILE" to the temp file name.
If I take it out, I get the message that the normal log file name was kept.
Since I know what it is, I'll just live with it and put some comment in there to remind me later why that warning message is appearing.
I also went back and checked to see why the CLIST stuff didn't get the message. Say it with me...I WASN'T RUNNING ISPF!
Thanks for the link though, it did the trick. |
|
| Back to top |
|
|
|
|
