Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

Inexplicable LMINIT service error

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> TSO/ISPF
View previous topic :: :: View next topic  
Author Message
prino

Active Member


Joined: 07 Feb 2009
Posts: 985
Location: Oostende, Belgium

PostPosted: Sat Jul 07, 2012 3:13 am    Post subject: Inexplicable LMINIT service error
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: 1738
Location: Bloomington, IL

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

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

Active Member


Joined: 07 Feb 2009
Posts: 985
Location: Oostende, Belgium

PostPosted: Sat Jul 07, 2012 1:34 pm    Post subject:
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

Senior Member


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

PostPosted: Sat Jul 07, 2012 7:37 pm    Post subject: Reply to: Inexplicable LMINIT service error
Reply with quote

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

Active Member


Joined: 07 Feb 2009
Posts: 985
Location: Oostende, Belgium

PostPosted: Sat Jul 07, 2012 9:54 pm    Post subject: Re: Reply to: Inexplicable LMINIT service error
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: 685
Location: Earth

PostPosted: Sat Jul 07, 2012 11:45 pm    Post subject:
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

Active Member


Joined: 07 Feb 2009
Posts: 985
Location: Oostende, Belgium

PostPosted: Sun Jul 08, 2012 2:02 am    Post subject:
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

Active Member


Joined: 07 Feb 2009
Posts: 985
Location: Oostende, Belgium

PostPosted: Sun Jul 08, 2012 3:46 pm    Post subject:
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

Site Director


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

PostPosted: Mon Jul 09, 2012 5:00 am    Post subject: Reply to: Inexplicable LMINIT service error
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    Post subject:
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

Active Member


Joined: 07 Feb 2009
Posts: 985
Location: Oostende, Belgium

PostPosted: Mon Jul 09, 2012 8:45 am    Post subject: Re: Reply to: Inexplicable LMINIT service error
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: 685
Location: Earth

PostPosted: Mon Jul 09, 2012 11:13 pm    Post subject:
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

Active Member


Joined: 07 Feb 2009
Posts: 985
Location: Oostende, Belgium

PostPosted: Tue Jul 10, 2012 1:27 am    Post subject:
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    IBMMAINFRAMES.com Support Forums -> TSO/ISPF All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts S922 Error yuvan ABENDS & Debugging 3 Fri Dec 02, 2016 6:58 pm
No new posts Invoke Webservice Fails with DFHPI100... divated CICS 2 Thu Nov 24, 2016 5:57 pm
No new posts Error during restore rename archanamuthukrishnan All Other Mainframe Topics 2 Fri Oct 14, 2016 3:30 pm
No new posts Error IEC161I 052(009,XXXRS00)-084 wh... amitc23 JCL & VSAM 10 Wed Oct 12, 2016 5:00 pm
No new posts IDMS/DC-COBOL program - SNAP error wh... rakeshsekar1987 IDMS/ADSO 5 Tue Sep 13, 2016 8:28 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us