MVSFORUMS.com Forum Index MVSFORUMS.com
A Community of and for MVS Professionals
 
 FAQFAQ   SearchSearch   Quick Manuals   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Expand the copy book in the program

 
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> TSO and ISPF
View previous topic :: View next topic  
Author Message
madhuroyus
Beginner


Joined: 09 Jan 2006
Posts: 45
Topics: 14
Location: Bangalore

PostPosted: Thu Aug 17, 2006 7:11 am    Post subject: Expand the copy book in the program Reply with quote

Hi,

I am new to the REXX programming. I wanted to write a REXX program to expand the copy books in a PDS member when it is opened in view/edit mode. we have many options including EXECIO, Edit-Macro commands, ISPF services and much more.

Please give me a solution with better approach.

Thanks
Madhu
_________________
Self confidence is something that says U will do it, when the rest of the world has exactly opposite view.
Back to top
View user's profile Send private message Send e-mail Yahoo Messenger
ofer71
Intermediate


Joined: 12 Feb 2003
Posts: 358
Topics: 4
Location: Israel

PostPosted: Thu Aug 17, 2006 8:18 am    Post subject: Reply with quote

If I had to do this, edit-macro would be my first choice (using either COPY or LINE_AFTER).

O.
________
Mazda B-Series specifications


Last edited by ofer71 on Sat Feb 05, 2011 11:41 am; edited 1 time in total
Back to top
View user's profile Send private message Send e-mail
Bill Dennis
Advanced


Joined: 03 Dec 2002
Posts: 579
Topics: 1
Location: Iowa, USA

PostPosted: Thu Aug 17, 2006 8:27 am    Post subject: Reply with quote

Yes, read the copybook and present the records as MSGLINEs using LINE_AFTER. User can convert the msgs to data lines using MD (makedata), if desired or remove them with RESET.

Did you search the forum for COPYBOOK? Seems like this has been covered before???
_________________
Regards,
Bill Dennis

Disclaimer: My comments on this foorum are my own and do not represent the opinions or suggestions of any other person or business entity.
Back to top
View user's profile Send private message
madhuroyus
Beginner


Joined: 09 Jan 2006
Posts: 45
Topics: 14
Location: Bangalore

PostPosted: Fri Aug 18, 2006 12:37 am    Post subject: Reply with quote

Thanks for your response. As I told you I am very new to REXX. If you can give me complete REXX program with possible explanation it will be great.

I could not go ahead with the above explanations.

I am reading manuals and the topics available on this board also to accomplish this task.

Thanks
Madhu
_________________
Self confidence is something that says U will do it, when the rest of the world has exactly opposite view.
Back to top
View user's profile Send private message Send e-mail Yahoo Messenger
ofer71
Intermediate


Joined: 12 Feb 2003
Posts: 358
Topics: 4
Location: Israel

PostPosted: Fri Aug 18, 2006 1:50 am    Post subject: Reply with quote

Sure I can write you the REXX. The cost is $80 per work hour + tax.

Let me know if you want it.

O.
________
Toyota KD engine history


Last edited by ofer71 on Sat Feb 05, 2011 11:41 am; edited 1 time in total
Back to top
View user's profile Send private message Send e-mail
madhuroyus
Beginner


Joined: 09 Jan 2006
Posts: 45
Topics: 14
Location: Bangalore

PostPosted: Fri Aug 18, 2006 2:15 am    Post subject: Reply with quote

8)

Sure Mr. ofer71. Go ahead and write a REXX program.

Eagerly waiting for your reply.

Thanks
Madhu
_________________
Self confidence is something that says U will do it, when the rest of the world has exactly opposite view.
Back to top
View user's profile Send private message Send e-mail Yahoo Messenger
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12375
Topics: 75
Location: San Jose

PostPosted: Fri Aug 18, 2006 5:50 am    Post subject: Reply with quote

madhuroyus,

If you are really serious about paying the money then provide Mr.ofer the specifications. Remember that a Minimum of 2 hours of pay and maximum of 8 hours pay will be taken from you. So why don't you send me a chek for $160 dollars and I will secure that as deposit and once ofer gives the solution I will pass it over to him and you need to pay the rest upon delivery.


Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu
Back to top
View user's profile Send private message Send e-mail Visit poster's website
madhuroyus
Beginner


Joined: 09 Jan 2006
Posts: 45
Topics: 14
Location: Bangalore

PostPosted: Fri Aug 18, 2006 6:57 am    Post subject: Reply with quote

Thats nice Mr.Kolusu. But how can I believe this deal? Did ofer has any brand name assosicated with him? Any successfull deals like this in the past?

Build confidentiality abt the delivery solutions you provided, then hope for the best.

Hope this makes clear abt the deal.

Thanks
Madhu
_________________
Self confidence is something that says U will do it, when the rest of the world has exactly opposite view.
Back to top
View user's profile Send private message Send e-mail Yahoo Messenger
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12375
Topics: 75
Location: San Jose

PostPosted: Fri Aug 18, 2006 7:02 am    Post subject: Reply with quote

Quote:

Thats nice Mr.Kolusu. But how can I believe this deal? Did ofer has any brand name assosicated with him? Any successfull deals like this in the past?

Build confidentiality abt the delivery solutions you provided, then hope for the best.


Dude let me remind you that YOU are the one who is looking for help. I/Ofer DON'T have to build confidentiality or TRUST. If you DON't like the deal you are free to walk away, but those are terms of this site. Take it or leave it

PS: Next time you try to post a snappy comment , trust me that will be your last post on this board.
_________________
Kolusu
www.linkedin.com/in/kolusu
Back to top
View user's profile Send private message Send e-mail Visit poster's website
Steve Coalbran
Beginner


Joined: 09 Mar 2005
Posts: 22
Topics: 0
Location: Stockholm, Sweden

PostPosted: Fri Aug 18, 2006 9:45 am    Post subject: Reply with quote

I tried this as an exercise (well I am bored and in between projects this week!Smile).
I did it in about 70 lines and it didn't take me long perhaps because I wrote my first ISPF dialog in 1980 and I've been using TSO/ISPF off+on ever since.
To write this sort of EditMacro Rexx is just the starting material - it's easy to learn the basics in a day or two.
The hard bit is learning what you can do with TSO/ISPF:

  • TSO Commands
  • EditMacros
  • Dialog Management Services
  • Services
  • ... need I go on ...

Each of these has at least one manual - well worth reading cover-cover.

I work in IBM and I, like many others, provide solutions for dollars (or sometimes krona in my case).
I have also given a lot of complete solutions as examples when I have the time - like just now.
But for you to learn how to do these things you have to first read! and then (most importantly) play!.
Then you really start to understand how things work.

As it's Friday and I'm going home soon (and I'm such a nice guy! Wink) here is COPYLITE...
Code:

/*REXX*/                               
ADDRESS ISREDIT                       
"MACRO NOPROCESS"                     
ADDRESS ISPEXEC "CONTROL ERRORS RETURN"
TRACE "C"                             
"RECOVERY ON"                         
"SEEK 'COPY' FIRST WORD"               
DO WHILE( RC=0 )                       
   "(LINE) = LINE .ZCSR"               
   line = OVERLAY("*",line,1)         
   "LINE .ZCSR = (LINE)"               
   PARSE VAR line . 'COPY' mbr .       
   mbr = STRIP(mbr,"T",".")           
   "COPY" mbr "AFTER .ZCSR"           
   "SEEK 'COPY' NEXT WORD"             
END                                   
"LOCATE 0"                             
"LEFT MAX"                             
EXIT 1                                 

It has severe limitations.
Your task, should you choose to accept it is to take this skeleton and

  1. create one that includes the copybooks as INFO lines
  2. copes with missing/empty copybooks
  3. copes with a concatenation of COPYLIBs (not just thye current dataset) which this example uses.

Let's hope this mission is not impossible - well I know it isn't but...!..... Happy RTFMing Very Happy

Wink /Steve ....its FRIDAY!
Back to top
View user's profile Send private message Send e-mail MSN Messenger
madhuroyus
Beginner


Joined: 09 Jan 2006
Posts: 45
Topics: 14
Location: Bangalore

PostPosted: Sun Aug 20, 2006 11:52 pm    Post subject: Reply with quote

Hi Steve,

Thanks a Ton for your help. Will work on this and let u know if any concerns.

Thanks
Madhu
_________________
Self confidence is something that says U will do it, when the rest of the world has exactly opposite view.
Back to top
View user's profile Send private message Send e-mail Yahoo Messenger
Display posts from previous:   
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> TSO and ISPF All times are GMT - 5 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


MVSFORUMS
Powered by phpBB © 2001, 2005 phpBB Group