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
 

 

TSO EDIT to BOTTOM of PDS member

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

New User


Joined: 19 Aug 2005
Posts: 5

PostPosted: Tue Feb 19, 2013 5:48 pm    Post subject: TSO EDIT to BOTTOM of PDS member
Reply with quote

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
View user's profile Send private message

enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10203
Location: italy

PostPosted: Tue Feb 19, 2013 5:50 pm    Post subject: Reply to: M+F8 functionality using REXX
Reply with quote

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
View user's profile Send private message
Bill Woodger

DFSORT Moderator


Joined: 09 Mar 2011
Posts: 7236

PostPosted: Tue Feb 19, 2013 5:52 pm    Post subject: Reply to: M+F8 functionality using REXX
Reply with quote

Quote:
IKJ56500I COMMAND BOTTOM NOT FOUND


So much humour in so few words :-)
Back to top
View user's profile Send private message
ckvinay

New User


Joined: 19 Aug 2005
Posts: 5

PostPosted: Tue Feb 19, 2013 5:54 pm    Post subject: Reply to: M+F8 functionality using REXX
Reply with quote

Thanks for the quick reply/suggestion enrico icon_smile.gif , will investigate on the Edit facilities of ISPF
Back to top
View user's profile Send private message
superk

Moderator Team Head


Joined: 26 Apr 2004
Posts: 4648
Location: Raleigh, NC, USA

PostPosted: Tue Feb 19, 2013 6:39 pm    Post subject: Reply to: TSO EDIT to BOTTOM of PDS member
Reply with quote

What is "ED"? I get IKJ56500I COMMAND ED NOT FOUND. For TSO EDIT there is a BOTTOM command.
Back to top
View user's profile Send private message
Bill Woodger

DFSORT Moderator


Joined: 09 Mar 2011
Posts: 7236

PostPosted: Tue Feb 19, 2013 8:05 pm    Post subject: Reply to: TSO EDIT to BOTTOM of PDS member
Reply with quote

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
View user's profile Send private message
ckvinay

New User


Joined: 19 Aug 2005
Posts: 5

PostPosted: Wed Feb 20, 2013 5:03 pm    Post subject: Re: Reply to: TSO EDIT to BOTTOM of PDS member
Reply with quote

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
View user's profile Send private message
daveporcelan

Active Member


Joined: 01 Dec 2006
Posts: 645
Location: Pennsylvania

PostPosted: Wed Feb 20, 2013 6:57 pm    Post subject:
Reply with quote

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
View user's profile Send private message
ckvinay

New User


Joined: 19 Aug 2005
Posts: 5

PostPosted: Wed Feb 20, 2013 10:55 pm    Post subject:
Reply with quote

Hi Daveporcelan,

Thanks for your valuable suggestion icon_smile.gif

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!!!! icon_smile.gif
Back to top
View user's profile Send private message
daveporcelan

Active Member


Joined: 01 Dec 2006
Posts: 645
Location: Pennsylvania

PostPosted: Wed Feb 20, 2013 11:16 pm    Post subject:
Reply with quote

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
View user's profile Send private message
ckvinay

New User


Joined: 19 Aug 2005
Posts: 5

PostPosted: Thu Feb 21, 2013 1:43 am    Post subject:
Reply with quote

Quote:
Thanks everyone for their suggestions!!!! icon_smile.gif


Daveporcelan, everyone in the above statement includes your Crystal Ball too.. icon_arrow.gif I mean Enrico icon_wink.gif
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 What is the command to check MODE of ... rohanthengal CLIST & REXX 6 Fri Nov 18, 2016 1:48 pm
No new posts File Stauts 92 with member of PDS sandip_mainframe COBOL Programming 4 Fri Jun 10, 2016 12:06 pm
No new posts Use of Edit & FTOV migusd SYNCSORT 3 Wed Jun 08, 2016 1:49 am
No new posts How storage is calculated for AN-Edit... Raghu navaikulam COBOL Programming 2 Wed Mar 09, 2016 3:51 pm
No new posts how to extract the member name ? jackzhang75 CLIST & REXX 1 Wed Feb 17, 2016 9:21 pm


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