|
View previous topic :: View next topic
|
| Author |
Message |
ckvinay
New User
Joined: 19 Aug 2005
Posts: 5
|
|
|
|
Following is my req:
To be at the bottom of the dataset when the member of a PDS is opened in Edit mode
The code below will only open the PDS member in Edit mode but will be at the TOP of data.....
| Code: |
HLQ = 'TEST1.TEST2.TEST3'
MEM ='MEMBER01'
ADDRESS TSO
"ED '"HLQ"("MEM")'" |
I tried QUEUE "BOTTOM", but getting the following error :
IKJ56500I COMMAND BOTTOM NOT FOUND
| Code: |
HLQ = 'TEST1.TEST2.TEST3'
MEM ='MEMBER01'
ADDRESS TSO
QUEUE "BOTTOM"
"ED '"HLQ"("MEM")'" |
Can anyone suggest on how to be at the bottom when the member is opened in Edit mode |
|
| Back to top |
|
 |
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007
Posts: 10873
Location: italy
|
|
|
|
the chances of getting help on scripting TSO EDIT are pretty slim,
why not investigate the use of ISPF and it' s pretty powerful EDIT macro facilities ? |
|
| Back to top |
|
|
Bill Woodger
Moderator Emeritus
Joined: 09 Mar 2011
Posts: 7309
Location: Inside the Matrix
|
|
|
|
| Quote: |
| IKJ56500I COMMAND BOTTOM NOT FOUND |
So much humour in so few words :-) |
|
| Back to top |
|
|
ckvinay
New User
Joined: 19 Aug 2005
Posts: 5
|
|
|
|
Thanks for the quick reply/suggestion enrico  , will investigate on the Edit facilities of ISPF |
|
| Back to top |
|
|
superk
Global Moderator
Joined: 26 Apr 2004
Posts: 4652
Location: Raleigh, NC, USA
|
|
|
|
| What is "ED"? I get IKJ56500I COMMAND ED NOT FOUND. For TSO EDIT there is a BOTTOM command. |
|
| Back to top |
|
|
Bill Woodger
Moderator Emeritus
Joined: 09 Mar 2011
Posts: 7309
Location: Inside the Matrix
|
|
|
|
Inspired by the topic, I decided to write a capabilities analyser.
It takes a parameter for minimal, average, and maximum resources.
I tried it first with minimal resources, but it was not giving me the answer.
I tried then with maximum resources, and still not giving me the answer.
I searched the forum and found suggestions to post with Trace, but that still doesn't give me the answer.
My code is fine (I use INITIALIZE) so can someone suggest me what is wrong with the system please. I'm running z/OS and it says DELL on the front of my mainframe, if that is a help.
Here are the outputs with the wrong answer.
[screen images deleted]
And here I have pastoed them so I don't make no misstakes.
With the setting for minimal resources:
| Code: |
FINDBUTT NOHANDS
IKJ56500I COMMAND BOTTOM NOT FOUND |
With the setting for average resources:
| Code: |
FINDBUTT ONEHAND
IKJ56500I COMMAND BOTTOM NOT FOUND |
With the setting for maximum resources:
| Code: |
FINDBUTT TWOHANDS
IKJ56500I COMMAND BOTTOM NOT FOUND |
With the Trace
| Code: |
FINDBUTT TRACE
IKJ56500I COMMAND BOTTOM NOT FOUND |
If I have not provided enough information I can provide more information.
TIA
Code'd |
|
| Back to top |
|
|
ckvinay
New User
Joined: 19 Aug 2005
Posts: 5
|
|
|
|
| superk wrote: |
| What is "ED"? I get IKJ56500I COMMAND ED NOT FOUND. For TSO EDIT there is a BOTTOM command. |
Kevin, ED is for EDIT and i did try using the BOTTOM command of TSO...but i wasn't successful in getting the result... |
|
| Back to top |
|
|
daveporcelan
Active Member
Joined: 01 Dec 2006
Posts: 792
Location: Pennsylvania
|
|
|
|
ckvinay,
Your code is out of context, and your description of your requirement is very sparse.
My crystal ball tells me that you do not really want to use the TSO EDIT functionality.
I am guessing this because in 25 years of experience, I have NEVER used it.
I looked in the manual, tried it out and I do not think it is what you want.
I think you want to use the ISPEXEC EDIT function. That is what I would do.
Here is an example of how I would accomplish your vague requirement.
You need two Rexx execs. The first one issues the ISPEXEC EDIT command invoking the second one as an initial macro.
Here is ED1 Rexx exec:
| Code: |
/* REXX EXEC TO EDIT A DATASET */
DS1 = 'QUAL1.QUAL2.QUAL3'
MEM1 = 'MEMBER1'
"ISPEXEC EDIT DATASET('"DS1"("MEM1")') MACRO(ED2)"
EXIT |
Here is ED2 macrro:
| Code: |
/* REXX EXEC TO START AT THE BOTTOM OF A DATASET */
"ISREDIT MACRO"
"ISREDIT CURSOR = .ZL 0"
/* USE .ZL 0 TO POSITION CURSOR ON LAST LINE NUMBER */
/* USE .ZL 1 TO POSITION CURSOR IN COLUMN 1 OF DATA */
EXIT |
Try this out and see if it works for you. |
|
| Back to top |
|
|
ckvinay
New User
Joined: 19 Aug 2005
Posts: 5
|
|
|
|
Hi Daveporcelan,
Thanks for your valuable suggestion
I tried your code & that is what i was looking for with minor change which is as below:
| Code: |
/* REXX EXEC TO EDIT A DATASET */
DS1 = 'QUAL1.QUAL2.QUAL3'
MEM1 = 'MEMBER1'
"ISPEXEC EDIT DATASET('"DS1"("MEM1")') MACRO(ED2)"
EXIT |
For ED2 macro
| Code: |
"ISREDIT MACRO"
"ISREDIT (LLINE) = LINENUM .ZL"
LLINE = LLINE - 16
"ISREDIT CURSOR ="LLINE" 0"
EXIT |
Thanks everyone for their suggestions!!!! |
|
| Back to top |
|
|
daveporcelan
Active Member
Joined: 01 Dec 2006
Posts: 792
Location: Pennsylvania
|
|
|
|
Good to hear.
It wasn't really my idea.
While I claimed my crystall ball told me, it was really Enrico you drew on the ball with the answer. |
|
| Back to top |
|
|
ckvinay
New User
Joined: 19 Aug 2005
Posts: 5
|
|
|
|
| Quote: |
Thanks everyone for their suggestions!!!!
|
Daveporcelan, everyone in the above statement includes your Crystal Ball too..  I mean Enrico  |
|
| Back to top |
|
|
|
|
