Portal | IBM Manuals | Downloads | Products | Refer | Info | Programs | JCLs | Forum Rules*| Site Map | Mainframe CD 
IBMMAINFRAMES.com - IBM Mainframe Support Forums Index
 
Register
 
IBMMAINFRAMES.com - IBM Mainframe Support Forums Index FAQ Search Memberlist Usergroups Profile Log in to check your private messages Log in
 
How to save in view Mode

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> SMS & VSAM
Author Message
richie

New User


Joined: 11 Jun 2005
Posts: 24

PostPosted: Tue Nov 22, 2005 12:00 pm    Post subject: How to save in view Mode
Reply with quote

Please tell me the command to save the changes in View Mode.
I remember it vaguely liek zf zl replace but its not working.

Please help if someone knows it.Thanks.
Back to top
View user's profile Send private message
References
sridevi2005

New User


Joined: 15 Sep 2005
Posts: 45

PostPosted: Tue Nov 22, 2005 3:02 pm    Post subject: Re: save in view Mode
Reply with quote

Hi,

To save the data in view mode use the following command.

Rep .zf .zl member name

OR
replace .zf .zl member name.

Thanks,
Sridevi
Back to top
View user's profile Send private message
Phantom

New User


Joined: 04 Sep 2005
Posts: 28

PostPosted: Tue Nov 22, 2005 3:47 pm    Post subject:
Reply with quote

Richie,

Lazy Guys like Me! don't have the patience to type "REPL .ZF .ZL xxxxx". Instead I have coded a small REXX Macro with the Name "VSAVE" as shown below. This will take care of both PS as well as PDS-Member.

Now, I just have to use VSAVE instead of the ISPF Save command to save the code in View mode.

Code:

/* EDIT MACRO */                                             
/* This macro can be used to save a member/PS in VIEW mode */
"ISREDIT MACRO"                                             
"ISREDIT (DataSet) = DATASET"                               
"ISREDIT (Member)  = MEMBER"                                 

DataSet="'"||DataSet||"'"                                   
IF Member = '' THEN                                         
   "ISREDIT replace .zf .zl "DataSet                         
ELSE                                                         
   "ISREDIT replace .zf .zl "Member                         


Hope this helps,

Thanks,
Phantom
Back to top
View user's profile Send private message
guptae

Moderator


Joined: 14 Oct 2005
Posts: 1024
Location: Bangalore,India

PostPosted: Tue Nov 22, 2005 6:29 pm    Post subject:
Reply with quote

Hi Phantom,

It may be very silly question.
Could u please tell me ..do i need to run this code .
In which pDS i need to save & compile in order to use VSAVe
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> SMS & VSAM All times are GMT + 6 Hours
Page 1 of 1