IBM Mainframe Forum

by **poornimayeleswarapu** » Tue Oct 19, 2010 1:11 pm

Hi All,

I am trying to develop a rexx tool. with this tool i need to find if any job has got errors.

for example i pass the PDS name to be verified. If the member name and the job card name in the jcl are correct it should display like no errors. If the member name and the job card name are not matching then it should say some print the same to the outout report.

I am able to do this perfectly but the problem i am facing is with getting the correct member names. when i am exectung my rexx i do get the follwoing error messages..

MISSING DATA SET NAME OR *+
MISSING NAME OF DATA SET TO BE ALLOCATED
INVALID DATA SET NAME, 'testts.jcl(--RECFM-LRECL-BLKSIZE-DSORG)'
MISSING DATA SET NAME OR *+
MISSING NAME OF DATA SET TO BE ALLOCATED
INVALID DATA SET NAME, 'testts.jcl(FB
INVALID DATA SET NAME, 80
INVALID DATA SET NAME, 800
INVALID KEYWORD, '
INVALID KEYWORD, )SHR
INVALID DATA SET NAME, 'testts.jcl(--VOLUMES--)'
MISSING DATA SET NAME OR *+
MISSING NAME OF DATA SET TO BE ALLOCATED
System abend code 013, reason code 00000024.
Abend in host command execio or address environment routine TSO.
EXECIO error while trying to GET or PUT a record.
INVALID DATA SET NAME, 'testts.jcl(--MEMBERS--)'
MISSING DATA SET NAME OR *+
MISSING NAME OF DATA SET TO BE ALLOCATED
System abend code 013, reason code 00000024.
Abend in host command execio or address environment routine TSO.
EXECIO error while trying to GET or PUT a record.
total lines 12

I want to know in my code where i am messing it up. Can any one help me out with this.

by **enrico-sorichetti** » Tue Oct 19, 2010 1:24 pm

I want to know in my code where i am messing it up.

how the f*** are we supposed to know where You are messing up if You do not post the code ???
psychic days are wednesday and friday,
only on those days it is enough to post something like
i am doing something and it does not work
on the other days we need full info on the issue

Can any one help me out with this.

if You do not like YES/NO answers do not ask YES/NO questions

given your approach
it would be useful for you to read and meditate on
How To Ask Questions The Smart Way
http://catb.org/~esr/faqs/smart-questions.html
before continuing asking for help

PS

by **poornimayeleswarapu** » Tue Oct 19, 2010 2:09 pm

I am not sure if there is a problem with net. I have posted the code also in my previous post itself but not sure of the problem. what ever it might be let me post my code here:

Select all

exec_rc = RC
say 'enter a pds data set name to perform the check operation'
parse pull dsname
call outtrap "mbrs."
"LISTDS" dsname "MEMBERS"
call outtrap "off"
say 'there are' mbrs.0 'members'
ms = 0
do a = 1 to mbrs.0
if ms = 0 then
do
if mbrs.a = "--MEMBERS--" then ms = 1
else nop
iterate
end
end
a=a + 1
call listdsi dsname
fullname=sysdsname
queue ' -------------------------------'
queue ' REPORT GENERATION FOR JCL CHECK'
queue ' -------------------------------'
do b = 1 to mbrs.0
parse value mbrs.b with memname
memname = strip(memname)
"ALLOC F(ddin) DS('"fullname"("memname")')SHR REUSE"
"execio 1 diskr ddin (stem in. finis"
do recid = 1 to in.0
str = substr(in.recid,3,8)
if str = memname then
do
queue 'jobcard name' str 'matches with member name',
memname
end
else
do
queue 'jobcard name' str 'does not match with',
'member name' memname
end
end
end
lines.0 = queued()
say 'total lines' lines.0
"execio * diskw output(finis"
"FREE F(output)"

Here is the output which i should get:

-------------------------------
REPORT GENERATION FOR JCL CHECK
-------------------------------
jobcard name joba does not match with member name jobb
jobcard name jobb matches with member name jobb

but i am getting the output as

-------------------------------
REPORT GENERATION FOR JCL CHECK
-------------------------------
jobcard name joba does not match with member name testts.jcl
jobcard name joba does not match with member name --RECFM-LRECL-BLKS
jobcard name joba does not match with member name FB 80 800
jobcard name joba does not match with member name --VOLUMES--
jobcard name joba does not match with member name jobb
jobcard name jobb matches with member name jobb

Hope this would atleast be posted..

by **enrico-sorichetti** » Tue Oct 19, 2010 3:10 pm

this one works for me tested

Select all

****** ***************************** Top of Data ******************************
000001 /* rexx */
000002 call outtrap "listds."
000003 Address TSO "LISTDS ENRICO.ISPF.CLIST MEMBERS"
000004 call outtrap "OFF"
000005 process = 0
000006 do i = 1 to listds.0
000007 if process = 1 then do
000008 say "process >>>"strip(listds.i)"<<<"
000009 iterate
000010 end
000011 say "skipped >>>"strip(listds.i)"<<<"
000012 if strip(listds.i) = "--MEMBERS--" then ,
000013 process = 1
000014 end
000015 exit
****** **************************** Bottom of Data ****************************

by the way You are just checking that somewhere in the member at position 3,8
there is a string that matches the member name
I would use a bit more of strip for unwanted blanks
and I would write something along the lines of

Select all

****** ***************************** Top of Data ******************************
000001 /* rexx */
000002 Address TSO
000003 call outtrap "listds."
000004 "LISTDS ENRICO.MF.JCLLIB MEMBERS"
000005 call outtrap "OFF"
000006 process = 0
000007 do l = 1 to listds.0
000008 if process = 1 then do
000009 member = strip(listds.l)
000010 "ALLOC FI(MEMBER) DA('ENRICO.MF.JCLLIB("member")') SHR REUSE"
000011 "EXECIO * DISKR MEMBER (FINIS STEM MEMBER."
000012 "FREE FI(MEMBER) "
000013 havejob = 0
000014 do m = 1 to member.0
000015 parse var member.m jobname jobcard .
000016 jobname = strip(substr(jobname,3))
000017 jobcard = strip(jobcard)
000018 if jobcard = "JOB" then do
000019 havejob = 1
000020 if jobname = member then ,
000021 say "matched >>>"member"<<<"
000022 else ,
000023 say "error >>>"member"/"jobname"<<< jobcard mismatch"
000024 end
000025 leave
000026 end
000027 if havejob = 0 then ,
000028 say "error >>>"member"<<< no jobcard found"
000029 end
000030 if strip(listds.l) = "--MEMBERS--" then ,
000031 process = 1
000032 end
000033 exit
****** **************************** Bottom of Data ****************************

tested

by **poornimayeleswarapu** » Tue Oct 19, 2010 4:59 pm

okay thank you..
but do you find any logical mistake which i am doing in my code. Just want to correct myself so that i can learn from my previous mistakes..
thank you..

by **enrico-sorichetti** » Tue Oct 19, 2010 5:43 pm

given the way it is posted the rexx script was/is quite unreadable
and the formatting does not agree with good rexx habits
for example ...
there are three ways of structuring an if

Select all

if <logic expression> then
do
...
end
else
do
...
end

if <logic expression> then
do
...
end
else
do
...
end

if <logic expression> then do
...
end
else do
...
end

if we equate a compound statement ( do/select/if ) to a simple statement
then the second style is <wrong>, the do is not indented so when mixing compound
and simple statement the result is ugly

the first one is the only one that conforms to formal structuring point of wiew
a compound statement is indented at the same level of a simple one
but if the program is a bit complex the indentation will go too far
and it takes one line for the do

the third one is a compromise of readability and compactness
even if it does not conform to the <statement (simple/compound)> indentation rules
the if and the else are aligned to the respective end
and the simple statements and the first statement of a compund one
show the structure of the program
furthermore it saves one line

the same war that occurs for the C language formatting rules (KR,GNU,...)
but there there are other reasons, the editors are syntax aware and
when folding the results are more or less friendly

from a content point of view
the logic is over-complicated
two loops over mbrs. when in the second loop You just do not care
and process the useless lines anyway
You do not check the return codes for ALLOC and EXECIO
I did not either but I just wanted to show the correct structure

the NOP statement is useless only necessary for a null OTHERWISE clause in a SELECT
in the many ( and I mean many ) rexx scripts I wrote I used it only for that
if the logic is correct and You use the proper TRUE/FALSE settings You will not need it
and anyway it is not needed for the else clause
here is a link to a complicated script with just one NOP
http://ibmmainframes.com/about32494.html

the symptoms give in the second post are different from those in the first one
but they most probably depend on the missing error checking

so at the end of the story ...
given the unreliability and unreadability of You post
it was faster for me to post from scratch that try to understand Your script

by **dick scherrer** » Wed Oct 20, 2010 12:13 am

Hello and welcome to the forum,

Suggest you become familiar and comfortable with the "Code" tag. When posting code, data, screen info, etc, the Code tag will preserve alignment and improve readability. One easy way to use the Code tag is to copy/paste the data into the Reply Editor, highlight/select the info, and click Code.

There is also a Preview function that will let you see your post as it will appear to the forum (rather than how it looks in the Reply Editor). Once the Preview looks as you want, Submit.

A bit of practice and it becomes automatic

by **NicC** » Wed Oct 20, 2010 1:24 am

Select all

"ALLOC F(ddin) DS('"fullname"("memname")')SHR REUSE"

This line is in error - you have to put quotes around the parentheses that are around the member name.

Use Trace '?i' and step through the code and you would find it.

Another way to code IF/THEN/ELSE - and my preferred way..

Select all

If condition
Then Do
:
End
Else Do
:
End

by **poornimayeleswarapu** » Wed Oct 20, 2010 11:40 am

Hi all,

Thanks for all your sugesstions i am happy that i am able to execute my code now. Thanks for all your sugesstions.

by **dick scherrer** » Thu Oct 21, 2010 2:59 am

You're welcome - thanks for letting us know it is working

d

IBM Mainframe Forum

Error in Rexx Code..

Error in Rexx Code..

Re: Error in Rexx Code..

Re: Error in Rexx Code..

Re: Error in Rexx Code..

Re: Error in Rexx Code..

Re: Error in Rexx Code..

Re: Error in Rexx Code..

Re: Error in Rexx Code..

Re: Error in Rexx Code..

Re: Error in Rexx Code..