View previous topic :: View next topic |
Author |
Message |
madhuroyus Beginner
Joined: 09 Jan 2006 Posts: 45 Topics: 14 Location: Bangalore
|
Posted: Thu Aug 17, 2006 7:11 am Post subject: Expand the copy book in the program |
|
|
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 |
|
|
ofer71 Intermediate
Joined: 12 Feb 2003 Posts: 358 Topics: 4 Location: Israel
|
Posted: Thu Aug 17, 2006 8:18 am Post subject: |
|
|
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 |
|
|
Bill Dennis Advanced
Joined: 03 Dec 2002 Posts: 579 Topics: 1 Location: Iowa, USA
|
Posted: Thu Aug 17, 2006 8:27 am Post subject: |
|
|
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 |
|
|
madhuroyus Beginner
Joined: 09 Jan 2006 Posts: 45 Topics: 14 Location: Bangalore
|
Posted: Fri Aug 18, 2006 12:37 am Post subject: |
|
|
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 |
|
|
ofer71 Intermediate
Joined: 12 Feb 2003 Posts: 358 Topics: 4 Location: Israel
|
Posted: Fri Aug 18, 2006 1:50 am Post subject: |
|
|
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 |
|
|
madhuroyus Beginner
Joined: 09 Jan 2006 Posts: 45 Topics: 14 Location: Bangalore
|
Posted: Fri Aug 18, 2006 2:15 am Post subject: |
|
|
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 |
|
|
kolusu Site Admin
Joined: 26 Nov 2002 Posts: 12375 Topics: 75 Location: San Jose
|
Posted: Fri Aug 18, 2006 5:50 am Post subject: |
|
|
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 |
|
|
madhuroyus Beginner
Joined: 09 Jan 2006 Posts: 45 Topics: 14 Location: Bangalore
|
Posted: Fri Aug 18, 2006 6:57 am Post subject: |
|
|
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 |
|
|
kolusu Site Admin
Joined: 26 Nov 2002 Posts: 12375 Topics: 75 Location: San Jose
|
Posted: Fri Aug 18, 2006 7:02 am Post subject: |
|
|
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 |
|
|
Steve Coalbran Beginner
Joined: 09 Mar 2005 Posts: 22 Topics: 0 Location: Stockholm, Sweden
|
Posted: Fri Aug 18, 2006 9:45 am Post subject: |
|
|
I tried this as an exercise (well I am bored and in between projects this week!).
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! ) 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
- create one that includes the copybooks as INFO lines
- copes with missing/empty copybooks
- 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
/Steve ....its FRIDAY! |
|
Back to top |
|
|
madhuroyus Beginner
Joined: 09 Jan 2006 Posts: 45 Topics: 14 Location: Bangalore
|
Posted: Sun Aug 20, 2006 11:52 pm Post subject: |
|
|
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 |
|
|
|
|