Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
Silly question maybe - REPLACE member from member list panel

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

New User


Joined: 12 Sep 2018
Posts: 14
Location: UK

PostPosted: Thu Oct 25, 2018 6:38 pm    Post subject: Silly question maybe - REPLACE member from member list panel
Reply with quote

Hi,

I want to copy from one pds to another via a member listing (edit/view/browse, any, doesn't matter).

I want to replace the member in the target PDS.

I have already told it which PDS to copy to.

I always forget to /-select the 'Replace like named members' option.

It goes back to the member list panel with the prompt *NO-REPL because the target member exists.

Q1.
How do I now tell it that I blinking well want the target member replacing? Because now it knows the target pds and does not popup the panel where the 'Replace like named members' option appears!

While I'm here...

Q2.
I now want to copy to a different PDS - how do I force the popup panel to allow me to change the target?

Q3.
I want to copy to another member-name in the SAME pds, from the member listing panel - is that possible, or do I have to go in and edit/view a member and use the CRE command?

Thank you, Clark.
Back to top
View user's profile Send private message

expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8732
Location: Welsh Wales

PostPosted: Thu Oct 25, 2018 7:20 pm    Post subject:
Reply with quote

It all sounds possible using option 3.3

I think that replace is specified as an option on the first panel.

Unfortunately this is all from memory as I haven't seen a mainframe for about 4 years now icon_eyes.gif
Back to top
View user's profile Send private message
Cloink

New User


Joined: 12 Sep 2018
Posts: 14
Location: UK

PostPosted: Thu Oct 25, 2018 7:25 pm    Post subject:
Reply with quote

I'm not in 3.3, I'm in a member listing.
Back to top
View user's profile Send private message
Nic Clouston

Global Moderator


Joined: 10 May 2007
Posts: 2108
Location: UK

PostPosted: Fri Oct 26, 2018 10:10 am    Post subject: Reply to: Silly question maybe - REPLACE member from member list panel
Reply with quote

Then go to option 3.3, specify your options, press enter to get the member list and then select the members, specifying new-name where appropriate.
Back to top
View user's profile Send private message
Cloink

New User


Joined: 12 Sep 2018
Posts: 14
Location: UK

PostPosted: Fri Oct 26, 2018 12:52 pm    Post subject:
Reply with quote

I'm not in 3.3, I'm in a member listing. I don't want to go to 3.3 because I should be able to do it from a member listing.

I don't want alternatives, I know there are alternatives, I want the questions answered - even if it is to say "It can't be done.".

Thank you.
Back to top
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8732
Location: Welsh Wales

PostPosted: Fri Oct 26, 2018 12:55 pm    Post subject:
Reply with quote

It probably can be done if you really do want to reinvent the wheel and write you own set of macros and/or programs that emulate what can be done from 3.3

You say a member listing, from which ISPF option, or is it some home grown application that you are in. Please give us some useful information.
Back to top
View user's profile Send private message
Cloink

New User


Joined: 12 Sep 2018
Posts: 14
Location: UK

PostPosted: Fri Oct 26, 2018 1:16 pm    Post subject:
Reply with quote

DSLIST (3.4 if you like), then E/V/B against a PDS in the list.

Like going into 3.1 with these options:

Code:
Enter "/" to select option
/  Confirm Member Delete 
/  Enhanced Member List   


I also have these options set in my option Zero Settings:

Code:
Member list options                   
  Enter "/" to select option         
     Scroll member list               
  /  Allow empty member list         
     Allow empty member list (nomatch)
  /  Empty member list for edit only 
Back to top
View user's profile Send private message
Willy Jensen

Active User


Joined: 01 Sep 2015
Posts: 230
Location: Denmark

PostPosted: Fri Oct 26, 2018 2:31 pm    Post subject:
Reply with quote

I agree that the 'C' option in the member list is not very good, so I wrote a small program MCP to do member copy from the member list.
Program MCP
Code:
 /* Copy member from ISPF member list             rexx */   
                                                           
 parse value '' with indid outdid                           
 arg p                                                     
 parse var p mcpind'('mcpinm')'                             
 if left(mcpind,1)="'" then mcpind=mcpind"'"               
 address ispexec                                           
 "control errors return"                                   
                                                           
 "display panel(mcp#)"                                     
 if rc>8 then call close 'Display rc' rc                   
 if rc>0 then exit 0                                       
                                                           
 "lminit dataset("mcpind") enq(shr) dataid(indid)"         
 if rc<>0 then call close 'Lminit' mcpind 'rc' rc           
                                                           
 "lminit dataset("mcpoutd") enq(shr) dataid(outdid)"       
 if rc<>0 then call close 'Lminit' mcpind 'rc' rc           
                                                           
 p=''                                                       
 if mcprepl='Y' then p='REPLACE'                           
 "lmcopy fromid("indid")  frommem("mcpinm")",               
      "todataid("outdid")   tomem("mcpoutm")" p             
 if rc<>0 then call close 'Lmcopy' mcpind 'rc' rc zerrlm   
                                                           
 Call close 'Copy' mcpind mcpinm 'to' mcpoutd mcpoutm 'done'
Close:                                                     
 parse arg zedlmsg                                         
 if zedlmsg<>'' then do                                     
   "vput zedlmsg"                                           
   "setmsg msg(isrz000)"                                   
 end                                                       
 if indid<>''  then "lmfree dataid("indid")"               
 if outdid<>'' then "lmfree dataid("outdid")"               
 exit 0                                                     

Panel MCP#
Code:
)ATTR                                                                 
 @ type(input)  caps(on)  just(left) color(turq) hilite(uscore)       
 " type(text)   color(blue ) skip(on)                                 
 + type(text)   color(green) skip(on)                                 
)BODY expand(\\)                                                     
%\ \Member copy\ \+                                                   
%Cmd =>_zcmd \ \+                                                     
+                                                                     
+                                                                     
%Input                                                               
+ Dataset   @mcpind                                     +             
+ Membert   @mcpinm  +                                  +             
+                                                                     
%Output                                                               
+ Dataset   @mcpoutd                                    "name or '=' 
+ Membert   @mcpoutm +                                  "name or '=' 
+                                                                     
%Options                                                             
+ Replace   @z+                                                       
)INIT                                                                 
 .zvars = '(mcprepl)'                                                 
 if (&mcprepl EQ &Z) &mcprepl = N                                     
)PROC                                                                 
 ver (&mcpind,nb)                                                     
 ver (&mcpinm,nb)                                                     
 ver (&mcpoutd,nb)                                                   
 ver (&mcpoutm,nb)                                                   
 ver (&mcprepl,nb,list,N,Y)                                           
)END                                                                 

Still work in progress, feel free to modify.
Back to top
View user's profile Send private message
Cloink

New User


Joined: 12 Sep 2018
Posts: 14
Location: UK

PostPosted: Fri Oct 26, 2018 3:09 pm    Post subject:
Reply with quote

Thanks Willy. I also have my own MEMLIST rexx which facilitates some better member-line-cmds, but I'm not always in 'my' MEMLIST and it also has its own shortcomings, hence I often end up in standard member listing.

I have specifically avoided mentioning my rexx because I don't want it to muddy the water. I am in TSO/ISPF "proper", no personal rexx or customised environment in effect, just pure and simple TSO/ISPF environment.

3.4 > list of datasets > E/V/B against a PDS in the list - that member list panel, with the "Enhanced member list" in effect.

I can't help feeling there is a way to accomplish my aims if I spent a day reading the ISPF documentation to find out. I thought they were simple questions somebody could give me quick, simple answers to...
Back to top
View user's profile Send private message
Cloink

New User


Joined: 12 Sep 2018
Posts: 14
Location: UK

PostPosted: Tue Nov 06, 2018 10:27 pm    Post subject:
Reply with quote

Tch!

The answer is that once you have set the "Replace like-named members" option on the "COPY Entry Panel", this option remains selected for good. (Providing you have a clean exit from TSO/ISPF.)
Back to top
View user's profile Send private message
steve-myers

Active Member


Joined: 30 Nov 2013
Posts: 669
Location: The Universe

PostPosted: Tue Nov 06, 2018 11:01 pm    Post subject:
Reply with quote

Yes, you can copy from a PDS to the same PDS using 3.3. You specify a new name. For example -
Code:

  Menu  Functions  Utilities  Help                                             
------------------------------------------------------------------------------
COPY        XXXXXX.ASM            TO XXXXXX.ASM             Row 00001 of 00182
Command ===>                                                  Scroll ===> PAGE
   Name     Prompt          Size    Created           Changed            ID   
. ADDSTATS aaaaaaaa          299   2013/09/01   2013/09/01 11:33:41    XXXXXX 
. ALLOCVOL                   557   2010/12/06   2010/12/06 01:00:12    XXXXXX 
. ALTDIR                     384   2015/08/04   2015/08/04 18:13:32    XXXXXX 

This will copy member ADDSTATS to new member AAAAAAAA when you press your Enter key.
Back to top
View user's profile Send private message
Cloink

New User


Joined: 12 Sep 2018
Posts: 14
Location: UK

PostPosted: Wed Nov 07, 2018 5:29 pm    Post subject:
Reply with quote

I repeat: "I'm not in 3.3, I'm in a member listing."

And: "I'm not in 3.3, I'm in a member listing. I don't want to go to 3.3 because I should be able to do it from a member listing."

I answered my own question (essentially) 2 posts up...
Back to top
View user's profile Send private message
Marso

REXX Moderator


Joined: 13 Mar 2006
Posts: 1303
Location: Israel

PostPosted: Thu Nov 08, 2018 3:59 pm    Post subject:
Reply with quote

In the member listing, you type 'C' on the left of the member and a '/' on the right ("Prompt" or newname field).
This will cause the COPY Entry Panel to appear, even if it has already been displayed before.

This, I guess, answers the original questions.
Back to top
View user's profile Send private message
enrico-sorichetti

Senior Member


Joined: 14 Mar 2007
Posts: 10534
Location: italy

PostPosted: Thu Nov 08, 2018 4:30 pm    Post subject: Reply to: Silly question maybe - REPLACE member from member list panel
Reply with quote

Quote:
In the member listing, you type 'C' on the left of the member and a '/' on the right ("Prompt" or newname field).


only if You get to the MSL from 3.4
and you have the extended member list panel

I do not remember if it is possible to have the same from option 2
Back to top
View user's profile Send private message
Nic Clouston

Global Moderator


Joined: 10 May 2007
Posts: 2108
Location: UK

PostPosted: Thu Nov 08, 2018 5:42 pm    Post subject: Reply to: Silly question maybe - REPLACE member from member list panel
Reply with quote

Only from 3.4 (on my system which is not up-to-date).
Back to top
View user's profile Send private message
Marso

REXX Moderator


Joined: 13 Mar 2006
Posts: 1303
Location: Israel

PostPosted: Thu Nov 08, 2018 9:09 pm    Post subject:
Reply with quote

Yes, apparently only from 3.4
But it should be OK:
Cloink wrote:
DSLIST (3.4 if you like), then E/V/B against a PDS in the list.
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 Replace comp-3 field value to comp-3 ... dharmaraok DFSORT/ICETOOL 5 Fri Sep 14, 2018 3:46 pm
No new posts SOAP Message Handler Application Inte... John Poulakos CICS 1 Fri Aug 24, 2018 1:05 am
No new posts USS: Find and replace string within a... vasanthz All Other Mainframe Topics 5 Thu Aug 02, 2018 4:01 am
No new posts Utility to list Data Set Information Auryn JCL & VSAM 6 Tue Jul 17, 2018 5:03 pm
No new posts LIST NODE DIRECTORY - db2 clp - tryin... elixir1986 IBM Tools 1 Sat Jul 07, 2018 6:15 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us