IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

Inexplicable LMINIT service error


IBM Mainframe Forums -> TSO/ISPF
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
prino

Senior Member


Joined: 07 Feb 2009
Posts: 1306
Location: Vilnius, Lithuania

PostPosted: Sat Jul 07, 2012 3:13 am
Reply with quote

I've got an old macro/TSO command that allows me to edit an ISPF edit clipboard completely under program control. It's doing its magic by an on-the-fly modification of the "ISRECUTL" panel, and to make this work, the macro contains the following code:

Code:
drop plib
"ispexec lminit dataid(plib) ddname(ispplib) enq(shr)"
"ispexec view dataid("plib") member(isrecutl) macro(amacro)"
"ispexec lmfree dataid("plib")"

This used to work, but now returns an RC=8 on the LMINIT service, and, according to the LMINIT ISPF model, that means:

Code:
/* Return codes
/*  8 - Data set or file not allocated
/*    - DDname not found
/*    - Data set or file organization not supported

And neither of these three makes any sense, I can code around the issue by trapping the output of a "LISTA ST" command or parsing the output of a QBASELIB, (done the latter) but can anyone tell me why this no longer works.
Back to top
View user's profile Send private message
Akatsukami

Global Moderator


Joined: 03 Oct 2009
Posts: 1788
Location: Bloomington, IL

PostPosted: Sat Jul 07, 2012 7:40 am
Reply with quote

What's allocated to ISPPLIB?
Back to top
View user's profile Send private message
prino

Senior Member


Joined: 07 Feb 2009
Posts: 1306
Location: Vilnius, Lithuania

PostPosted: Sat Jul 07, 2012 1:34 pm
Reply with quote

From ISRDDN - basically the set supplied by ISPFPROC with the addition of my own library:

Code:
ZSTOR1   SHR,KEEP   >    ISPPLIB  PRINO.RAHP.MENU
ZASYS1   SHR,KEEP   >             USER.ISPPLIB
ZARES2   SHR,KEEP   >             ISP.SISPPENU
ZARES1   SHR,KEEP   >             SYS1.DFQPLIB
ZARES1   SHR,KEEP   >             SYS1.DGTPLIB
ZARES1   SHR,KEEP   >             SYS1.HRFPANL
ZARES1   SHR,KEEP   >             SYS1.SBLSPNL0
ZARES1   SHR,KEEP   >             SYS1.SBPXPENU
ZARES1   SHR,KEEP   >             SYS1.SCBDPENU
ZAPRD2   SHR,KEEP   >             CSQ700.SCSQPNLE
ZARES1   SHR,KEEP   >             SYS1.SEDGPENU
ZARES2   SHR,KEEP   >             EUV.SEUVPNL
ZARES2   SHR,KEEP   >             TCPIP.SEZANPNL
ZARES2   SHR,KEEP   >             TCPIP.SEZAPENU
ZARES2   SHR,KEEP   >             GIM.SGIMPENU
ZARES2   SHR,KEEP   >             ISF.SISFPLIB
ZARES1   SHR,KEEP   >             SYS1.SERBPENU
ZARES2   SHR,KEEP   >             EOY.SEOYPENU
ZARES1   SHR,KEEP   >             FAN140.SFANPENU
ZARES2   SHR,KEEP   >             FMN810.SFMNPENU
ZARES2   SHR,KEEP   >             AUT320.SINGIPNL


Presence of my library doesn't affect the code, whether it is present or not, I still get an RC=8
Back to top
View user's profile Send private message
Pedro

Global Moderator


Joined: 01 Sep 2006
Posts: 2546
Location: Silicon Valley

PostPosted: Sat Jul 07, 2012 7:37 pm
Reply with quote

Unlikely, but check the RECFM of each of those datasets.
Back to top
View user's profile Send private message
prino

Senior Member


Joined: 07 Feb 2009
Posts: 1306
Location: Vilnius, Lithuania

PostPosted: Sat Jul 07, 2012 9:54 pm
Reply with quote

Pedro wrote:
Unlikely, but check the RECFM of each of those datasets.

All RECFM=FB,LRECL=80
Back to top
View user's profile Send private message
agkshirsagar

Active Member


Joined: 27 Feb 2007
Posts: 691
Location: Earth

PostPosted: Sat Jul 07, 2012 11:45 pm
Reply with quote

Prino,
Are you talking about EDITCLIP?
I think I never thanked you for that.. but works like a charm for me..no issues whatsoever. icon_cool.gif
Back to top
View user's profile Send private message
prino

Senior Member


Joined: 07 Feb 2009
Posts: 1306
Location: Vilnius, Lithuania

PostPosted: Sun Jul 08, 2012 2:02 am
Reply with quote

agkshirsagar wrote:
Prino,
Are you talking about EDITCLIP?
I think I never thanked you for that.. but works like a charm for me..no issues whatsoever. icon_cool.gif

It is indeed EDITCLIP and thanks for the thanks. Just curious, what are you using it for?
Back to top
View user's profile Send private message
prino

Senior Member


Joined: 07 Feb 2009
Posts: 1306
Location: Vilnius, Lithuania

PostPosted: Sun Jul 08, 2012 3:46 pm
Reply with quote

LMINIT allows up to 16 concatenated data sets - the ddname item. Would have been nice if this had been documented in the ISPF MODEL for LMINIT...
Back to top
View user's profile Send private message
dick scherrer

Moderator Emeritus


Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix

PostPosted: Mon Jul 09, 2012 5:00 am
Reply with quote

Thanks for the heads-up icon_smile.gif

Is this current or with an older release of things?

Wonder how many others have been "caught" by this . . .

d
Back to top
View user's profile Send private message
dbzTHEdinosauer

Global Moderator


Joined: 20 Oct 2006
Posts: 6966
Location: porcelain throne

PostPosted: Mon Jul 09, 2012 6:09 am
Reply with quote

prino wrote:
Would have been nice if this had been documented in the ISPF MODEL for LMINIT...


That is why IBM manuals are so much fun:
they only say something once,
and you are never sure where they are going to say it.
Back to top
View user's profile Send private message
prino

Senior Member


Joined: 07 Feb 2009
Posts: 1306
Location: Vilnius, Lithuania

PostPosted: Mon Jul 09, 2012 8:45 am
Reply with quote

dick scherrer wrote:
Is this current or with an older release of things?

Z/OS 1.10 + ISPF 6.0.0
Back to top
View user's profile Send private message
agkshirsagar

Active Member


Joined: 27 Feb 2007
Posts: 691
Location: Earth

PostPosted: Mon Jul 09, 2012 11:13 pm
Reply with quote

Quote:
It is indeed EDITCLIP and thanks for the thanks. Just curious, what are you using it for?

I use this for submitting steps out of production jobs. We have a inhouse macro that does the variable substitution for PROCs and adds a jobcard. So, I cut the step out of a proc, do the symbolic substitution and submit.

I will appreciate if you could share how do you use this script.. maybe it will spawn some new ideas.
Back to top
View user's profile Send private message
prino

Senior Member


Joined: 07 Feb 2009
Posts: 1306
Location: Vilnius, Lithuania

PostPosted: Tue Jul 10, 2012 1:27 am
Reply with quote

I originally wrote the macro because I wanted to manipulate data cut from one member without manual intervention, before pasting it. Doing a

CUT
CUT DISPLAY + edit
PASTE

where the "edit" depended on the member name of the member where the data was going to be pasted (for dozen's of members) was just too long-winded, so asked around at the long-deceased MVShelp and a well known ISPF expert gave me some hints.

In the end, using EDITCLIP, all I had to do was put the required data on a clipboard, and fire off an "ALLMBRS" edit macro to move customized data into every member.

Currently out of work, so while playing with my own system, I have been going through many of my edit macros to see if they could use a bit of tuning up, and EDITCLIP was one that fell flat on its face, just as the transfer to PC (via the WSA) part of the EHIxxxx's in File #769 of the CBTtape.org site.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> TSO/ISPF

 


Similar Topics
Topic Forum Replies
No new posts Error to read log with rexx CLIST & REXX 11
No new posts Error when install DB2 DB2 2
No new posts CLIST - Virtual storage allocation error CLIST & REXX 5
No new posts How to avoid duplicating a CICS Web S... CICS 0
No new posts Error while running web tool kit REXX... CLIST & REXX 5
Search our Forums:

Back to Top