Home > Archive > Cobol > September 2006 > Clist Programming help
You are viewing an archived Text-only version of the thread.
To view this thread in it's original format and/or if you want to reply to
this thread please [click here]
| Author |
Clist Programming help
|
|
| blpraveen2004@yahoo.co.in 2006-09-27, 3:55 am |
| Hi,
This is my first mail to the Group.
i need a help to code a CLIST Program.
The Program should edit in IspF editor
it should Find for Joblib in the JOB
the joblib member should be changed Form (J&XPX.PR05) to (JCLPR52)
This changes it must do for the PDS PX.ASD.JOBLIB
It must take the member one by one and edit the jobs
| |
| Binyamin Dissen 2006-09-27, 3:55 am |
| On 27 Sep 2006 01:33:26 -0700 "blpraveen2004@yahoo.co.in"
<blpraveen2004@yahoo.co.in> wrote:
:>This is my first mail to the Group.
:>i need a help to code a CLIST Program.
:>The Program should edit in IspF editor
:>it should Find for Joblib in the JOB
:>the joblib member should be changed Form (J&XPX.PR05) to (JCLPR52)
:>This changes it must do for the PDS PX.ASD.JOBLIB
:>It must take the member one by one and edit the jobs
How will you be using COBOL to do this?
--
Binyamin Dissen <bdissen@dissensoftware.com>
http://www.dissensoftware.com
Director, Dissen Software, Bar & Grill - Israel
Should you use the mailblocks package and expect a response from me,
you should preauthorize the dissensoftware.com domain.
I very rarely bother responding to challenge/response systems,
especially those from irresponsible companies.
| |
|
| In article <1159346006.783197.188270@e3g2000cwe.googlegroups.com>,
blpraveen2004@yahoo.co.in <blpraveen2004@yahoo.co.in> wrote:
>Hi,
>This is my first mail to the Group.
>i need a help to code a CLIST Program.
Please do your own homework/interview questions.
DD
| |
| Howard Brazee 2006-09-27, 6:55 pm |
| On 27 Sep 2006 01:33:26 -0700, "blpraveen2004@yahoo.co.in"
<blpraveen2004@yahoo.co.in> wrote:
>This is my first mail to the Group.
>i need a help to code a CLIST Program.
>The Program should edit in IspF editor
>it should Find for Joblib in the JOB
>the joblib member should be changed Form (J&XPX.PR05) to (JCLPR52)
>This changes it must do for the PDS PX.ASD.JOBLIB
>It must take the member one by one and edit the jobs
Sounds like you should join ibm-main@bama.ua.edu or find a news group
more suited for your problem.
| |
|
|
| Joel C. Ewing 2006-09-30, 6:55 pm |
| blpraveen2004@yahoo.co.in wrote:
> Hi,
> This is my first mail to the Group.
> i need a help to code a CLIST Program.
> The Program should edit in IspF editor
> it should Find for Joblib in the JOB
> the joblib member should be changed Form (J&XPX.PR05) to (JCLPR52)
> This changes it must do for the PDS PX.ASD.JOBLIB
> It must take the member one by one and edit the jobs
>
As already noted this is off-topic to COBOL.
If someone has given you an assignment to do this with CLISTs, you have
my sympathy. The quirkiness of CLISTs when attempting to deal with
characters strings with any special characters is only one of the many
reasons we converted from CLIST usage to REXX way over a decade ago.
There are practically no applications today for which writing CLIST code
would be a first choice. I second the suggestion for help on REXX at
"bit.listserv.tsorexx".
If this is a real-world problem and you only need to do this for a
single library, the quickest approach would be to just write a REXX ISPF
Edit macro that would do your transformation, save, and END for a single
member and then find a way to invoke that macro for each member in the
library: This can be done by using other ISPF facilities to save a list
of library members and massage that list into a sequence of editor
invocations specifying your EXEC as an initial macro, or if you have
other ISPF enhancements at your disposal there may be ways to directly
request that the same edit exec be executed for all members. For only a
single library, implementing code to automate the process of selecting
all members for an arbitrary library is not worth the effort.
--
Joel C. Ewing, Fort Smith, AR jREMOVEcCAPSewing@acm.org
| |
| charles hottel 2006-09-30, 6:55 pm |
|
"Joel C. Ewing" <jcREMOVEewing@CAPS.acm.org> wrote in message
news:rZwTg.964$Lv3.85@newsread1.news.pas.earthlink.net...[color=darkred]
> blpraveen2004@yahoo.co.in wrote:
Do you have ROSCOE? If you do then here is one way to do it. I am assuming
that in the above you want to change "J&XPX." to "JCL" but even if that
assumption is wrong you should be able to change this to do what you want.
First of all this is a ROSCOE RPF and it is going to create another ROSCOE
RPF , called JOBLIBCHG, that you can then run to change the jobs JCL. If
you were to do this manually one PDS member at a time you might do it like
this:
IMPORT DSN=PX.ASD.JOBLIB(membername)
EDIT /J&XPX./JCL/
EXPORT DSN=PX>ASD>JOBLIB(membername)
:
So this establishes the pattern for what we want to build for each member
in the PDS. Note that the pattern consistes of four lines. This is
important because we will start with a list of all of the members and we
will create the all the IMPORT lines for all of the members at one time and
then so on for each of the four lines. These will be saved in temporary
ROSCOE members. I will use the RENUMBER command to set the lines numbers so
that later on the four temporary files can be merged to create the desired
RPF. The colon is just a comment line to make the generated RPF easier for a
human to read.
<<JOELSRPF>>
: get the list of member names
IMPORT DSN=PX.ASD.JOBLIB(*)
:get rid of everything but the membername
FILL 9 255 / /
:create the import lines
RENUMBER 1,4
PREFIX /IMPORT DSN=PX.ASD.JOBLIB(/
SUFFIX /)/
SAVE T1
:create the export lines
RENUMBER 3,4
EDIT 1 6 /IMPORT/EXPORT/
SAVE T3
:create the desire edit statement
:first get rid of everything but the first letter 'E' in export
FILL 2 255 / /
:change the letter 'E' to the desired edit command
EDIT ?E?EDIT /J&XPX./JCL/?
RENUMBER 2,4
SAVE T2
:create the comment line that separate the patterns
:first get rid of everything but the first letter 'E' in EDIT
FILL 2 255 / /
:change the 'E' to the colon comment character
EDIT /E/:/
RENUMBER 4,4
SAVE T4
DELETE
MERGE T1 T2 T3 T4
SAVE JOBLIBCHG
DELETE T1
DELETE T2
DELETE T3
DELETE T4
:the end. you can now run JOBLIBCHG to make the changes to the members
Note that I am at home and am unable to test this and it is just off the top
of my head so there may be errors, but the method is a proven. You might
want to comment out the EXPORT command when testing to make sure that ther
are no unwanted changes made to the members by the generated EDIT command.
You can find more useful ROSCOE RPFs at: http://www.cbttape.org/cbtdowns.htm
just look for file 532. For example if only a few members contain the
string you need to change, you will find a RPF named SCANPDS that will
search a PDS and find those members.
|
|
|
|
|