View previous topic :: View next topic
|
Author |
Message |
prino
Senior Member
Joined: 07 Feb 2009 Posts: 1306 Location: Vilnius, Lithuania
|
|
|
|
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 |
|
|
Akatsukami
Global Moderator
Joined: 03 Oct 2009 Posts: 1788 Location: Bloomington, IL
|
|
|
|
What's allocated to ISPPLIB? |
|
Back to top |
|
|
prino
Senior Member
Joined: 07 Feb 2009 Posts: 1306 Location: Vilnius, Lithuania
|
|
|
|
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 |
|
|
Pedro
Global Moderator
Joined: 01 Sep 2006 Posts: 2546 Location: Silicon Valley
|
|
|
|
Unlikely, but check the RECFM of each of those datasets. |
|
Back to top |
|
|
prino
Senior Member
Joined: 07 Feb 2009 Posts: 1306 Location: Vilnius, Lithuania
|
|
|
|
Pedro wrote: |
Unlikely, but check the RECFM of each of those datasets. |
All RECFM=FB,LRECL=80 |
|
Back to top |
|
|
agkshirsagar
Active Member
Joined: 27 Feb 2007 Posts: 691 Location: Earth
|
|
|
|
Prino,
Are you talking about EDITCLIP?
I think I never thanked you for that.. but works like a charm for me..no issues whatsoever. |
|
Back to top |
|
|
prino
Senior Member
Joined: 07 Feb 2009 Posts: 1306 Location: Vilnius, Lithuania
|
|
|
|
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. |
It is indeed EDITCLIP and thanks for the thanks. Just curious, what are you using it for? |
|
Back to top |
|
|
prino
Senior Member
Joined: 07 Feb 2009 Posts: 1306 Location: Vilnius, Lithuania
|
|
Back to top |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006 Posts: 19244 Location: Inside the Matrix
|
|
|
|
Thanks for the heads-up
Is this current or with an older release of things?
Wonder how many others have been "caught" by this . . .
d |
|
Back to top |
|
|
dbzTHEdinosauer
Global Moderator
Joined: 20 Oct 2006 Posts: 6966 Location: porcelain throne
|
|
|
|
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 |
|
|
prino
Senior Member
Joined: 07 Feb 2009 Posts: 1306 Location: Vilnius, Lithuania
|
|
|
|
dick scherrer wrote: |
Is this current or with an older release of things?
|
Z/OS 1.10 + ISPF 6.0.0 |
|
Back to top |
|
|
agkshirsagar
Active Member
Joined: 27 Feb 2007 Posts: 691 Location: Earth
|
|
|
|
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 |
|
|
prino
Senior Member
Joined: 07 Feb 2009 Posts: 1306 Location: Vilnius, Lithuania
|
|
|
|
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 |
|
|
|