|
View previous topic :: View next topic
|
| Author |
Message |
Mukesh Pandey
Active User
Joined: 11 Nov 2008
Posts: 143
Location: India
|
|
|
|
I am trying to run the below peice of code which is expected to extraxt job info from SAR. the job gives the below error while execution. Please let me know where i am doing mistake.
Code :
| Code: |
//SAREXTR EXEC PGM=SARBCH,
// PARM='SAR.JCL'
//SYSUDUMP DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//REPORT DD DSN=PUBLIC.XXXXXXXX.TEST1,
// DISP=(NEW,CATLG,DELETE),SPACE=(TRK,(20,10),RLSE),
// LRECL=133,RECFM=FBA,BLKSIZE=27930
//SYSIN DD *
/LIST ID=PGLN*,GEN=-1
/* |
Error :
<H1> I B M F A U L T A N A L Y Z E R S Y N O P S I S
A system abend 013 reason code X'20' occurred in module IGC0001I at offset
X'14274'.
The abend was caused by machine instruction 45E0F04C (BRANCH AND LINK) in module
SARBCH CSECT SARBCT at offset X'120'.
NOTE: Source code information for CSECT SARBCT could not be presented because no compiler listing or side-file data sets were provided. |
|
| Back to top |
|
 |
expat
Global Moderator
Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales
|
|
|
|
Have you bothered to look up S013 abend with reason code 20.
Please go do so and come back if you do not understand the xplanation given in the manuals. |
|
| Back to top |
|
|
Mukesh Pandey
Active User
Joined: 11 Nov 2008
Posts: 143
Location: India
|
|
|
|
I expact,
I have rectified the error.
I am getting ther below output after using sort in next step.
Job Name end time return code
- - -
- - -
My requirement is to further get one more column that will have the start time of the job ( start time is present inside the job log )
Job Name end time return code start time
- - - -
- - - -
I had tried and got the start time for a single job using the below command and further extracting the start time using sort.
/Print id-jobname gen=0 ddname ......
how can i achieve the desired output with the respective job start time?
Please help. |
|
| Back to top |
|
|
Mukesh Pandey
Active User
Joined: 11 Nov 2008
Posts: 143
Location: India
|
|
|
|
Hi all, I am trying to pass value from REXX code to the job as follows. but i am getting an error after executing the rexx code as discussed below :
Rexx code is as follows, it accepts high level qualifier of job and the rexx code inturn submits a job that will extract job information from sar.
/* REXX */
/* SUBMITTING JOB THROUGH REXX */
SAY 'ENTER QUALIFIER(EG:PGLN) :'
PULL I
ADDRESS ISPEXEC "FTOPEN TEMP"
ADDRESS ISPEXEC "FTINCL TSTSKEL"
ADDRESS ISPEXEC "FTCLOSE"
ADDRESS ISPEXEC "VGET ZTEMPF"
ADDRESS TSO "SUBMIT 'PUBLIC.XXXXXXX.JCLLIB(SARUTIL1)'"
RETURN 0
------------------------------------------------------------
//XXXXXXXT JOB 'FIGL***,XXXX,X,'TEST RUN ',
// CLASS=X,MSGCLASS=X,NOTIFY=&SYSUID
//SAREXTR EXEC PGM=SARBCH,
// PARM='SAR.JCL,&I'
//SYSUDUMP DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//REPORT DD DSN=PUBLIC.XXXXXXX.TEST5,
// DISP=(NEW,CATLG,DELETE),SPACE=(TRK,(20,10),RLSE),
// LRECL=133,RECFM=FB,BLKSIZE=0
//SYSIN DD *
/LIST ID=&&I,GEN=0
/*
------------------------------------------
ENTER QUALIFIER(EG:F3232) :
F3232*
JOB K883066T(JOB07641) SUBMITTED
***
------------------------------------------
Error message in the job log :
SARDBI01 ALLOCATION FAILED - ERROR=035C, INFO=0002
/LIST ID=&&I,GEN=0
SARBCH11 INVALID PARAMETER DATA FOR KEYWORD ID
i.e the connection to the SAR was not established.
-------------------------------------------
I removed the code &I from the job which is shown below in greenPARM='SAR.JCL,&I --> Removed'
Submitted the job again and found the below error in the job log.
SARBCH05 LOGON SUCCESSFUL FOR K883066 TO SAR.JCL
/LIST ID=&&I,GEN=0
SARBCH11 INVALID PARAMETER DATA FOR KEYWORD ID
The connection to the SAR was established.
I tried to debug the error but did not get any idea. Please let me know how to resolve the error or am i doing any major mistake in the code.
I also tried the below code
TRACE "I" instead of PULL I in REXX above but it did not work and threw the same error. Please suggest. |
|
| Back to top |
|
|
superk
Global Moderator
Joined: 26 Apr 2004
Posts: 4652
Location: Raleigh, NC, USA
|
|
|
|
I'm really confused???
You use an ISPF File Tailoring service to call the skeleton TSTSKEL, where I can only presume you have statements that use the variable &I and substitute the value you entered. However, you don't do anything with the skeleton afterward. You don't submit it. You don't seem to use it anywhere. Where exactly are you providing that value for &I to the job? Wouldn't an EDIT of 'PUBLIC.XXXXXXX.JCLLIB(SARUTIL1)' have made more sense? |
|
| Back to top |
|
|
Bill Woodger
Moderator Emeritus
Joined: 09 Mar 2011
Posts: 7309
Location: Inside the Matrix
|
|
|
|
| Why replace "pull i" with "trace i"? The "i" for the trace is nothing to do with your value "I" that you happen to have cryptically used. The "trace" is to show what is happening in your rexx, the "i" on the trace tells trace to show "intermediate" values, not just "results" (trace r). |
|
| Back to top |
|
|
Mukesh Pandey
Active User
Joined: 11 Nov 2008
Posts: 143
Location: India
|
|
|
|
Hi Superk and Wooder,
Thanks for your reply.
Superk, I am novice in rexx and could not clearly understand your suggestion. I have searched the threads in the forum but could not get an idea. also i have googled but invain.
Can you please let me know any similar thread or manual where i can get idea on how to pass the value from rexx and accept the same in the sysin of the job. |
|
| Back to top |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007
Posts: 10873
Location: italy
|
|
|
|
do You realize that You are submitting something else ?
| Code: |
/* REXX */
/* SUBMITTING JOB THROUGH REXX */
SAY 'ENTER QUALIFIER(EG:PGLN) :'
PULL I
ADDRESS ISPEXEC "FTOPEN TEMP"
ADDRESS ISPEXEC "FTINCL TSTSKEL"
ADDRESS ISPEXEC "FTCLOSE"
ADDRESS ISPEXEC "VGET ZTEMPF"
ADDRESS TSO "SUBMIT 'PUBLIC.XXXXXXX.JCLLIB(SARUTIL1)'"
RETURN 0 |
You are submitting who knows what
to submit the customized skel You should use
| Code: |
| Address TSO "SUBMIT ('"ZTEMPF"')" |
|
|
| Back to top |
|
|
Mukesh Pandey
Active User
Joined: 11 Nov 2008
Posts: 143
Location: India
|
|
|
|
Hi Enrico, Thanks for your reply.
after submitting the skel how my job will catch the value in sysin?
does it mean that agfter submitting the customized skell i need to have a code to submit the job finally as shown below or i am going in wrong direction?
| Code: |
/* REXX */
/* SUBMITTING JOB THROUGH REXX */
SAY 'ENTER QUALIFIER(EG:PGLN) :'
PULL I
ADDRESS ISPEXEC "FTOPEN TEMP"
ADDRESS ISPEXEC "FTINCL TSTSKEL"
ADDRESS ISPEXEC "FTCLOSE"
ADDRESS ISPEXEC "VGET ZTEMPF"
Address TSO "SUBMIT ('"ZTEMPF"')"
ADDRESS TSO "SUBMIT 'PUBLIC.XXXXXXX.JCLLIB(SARUTIL1)'"
RETURN 0 |
|
|
| Back to top |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007
Posts: 10873
Location: italy
|
|
|
|
the proper sequence to see what You are submitting is
| Code: |
000030 Address ISPEXEC "VIEW DATASET('"ztempf"' "
000031 say rc
000032 Address ISPEXEC "VGET (ZVERB)"
000033 say rc zverb
000034 if zverb = "EXIT" then ,
000035 Address TSO "SUBMIT '"ztempf"' "
|
the above sequence is for automatic submit depending on how You exit view ( PF3 ) or CANCEL
with PF3 the job is submitted
as an alternative You can use manual submit fro the VIEW
| Code: |
000030 Address ISPEXEC "VIEW DATASET('"ztempf"' "
|
anyway the second submit
| Code: |
| ADDRESS TSO "SUBMIT 'PUBLIC.XXXXXXX.JCLLIB(SARUTIL1)'" |
is completely useless
unless You are trying to something You did not tell about
to browse/view the ztempf dataset is the normal way of checking that the skel customization has been done properly |
|
| Back to top |
|
|
Mukesh Pandey
Active User
Joined: 11 Nov 2008
Posts: 143
Location: India
|
|
|
|
Hi Enrico,
Sorry but i am totally confused.
My Requirement is as follows :
I am submitting a job
Public.XXXXXXXX.JCLLIB(SARUTIL1)
| Code: |
//XXXXXXXT JOB 'FIGL***,XXXX,X,'TEST RUN ',
// CLASS=X,MSGCLASS=X,NOTIFY=&SYSUID
//SAREXTR EXEC PGM=SARBCH,
// PARM='SAR.JCL,&I'
//SYSUDUMP DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//REPORT DD DSN=PUBLIC.XXXXXXX.TEST5,
// DISP=(NEW,CATLG,DELETE),SPACE=(TRK,(20,10),RLSE),
// LRECL=133,RECFM=FB,BLKSIZE=0
//SYSIN DD *
/LIST ID=ABCD*,GEN=0
/* |
The above job lists the details of the jobs having name starting with ABCD from SAR into a dataset.
Now i need to design a panel which will take the job name from the user and pass to the job and the job finally gets submitted.
For example if user gives job name as PQRS in the panel then the job should be invoked and the details of the jobs whose name starts with PQRS should be listed in the dataset.
Please Help. |
|
| Back to top |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007
Posts: 10873
Location: italy
|
|
|
|
please do not PM for questions!
if something is not clear continue the topic detailing where You have doubts!
how does the last post relate to the preceding ones ! |
|
| Back to top |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007
Posts: 10873
Location: italy
|
|
|
|
here is a snippet to display a panel, get some values, customize a skel
the REXX command
| Code: |
****** ***************************** Top of Data ******************************
000001 /*REXX - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */
000002 /* */
000003 /* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */
000004 Trace "O"
000005
000006 Parse Source _sys _how _cmd .
000007
000008 If Sysvar(SYSISPF) \= "ACTIVE" Then Do
000009 Say left(_cmd,8)"- Ispf is not active. Command not executed"
000010 exit 4
000011 End
000012 zrc = $ispex("CONTROL ERRORS RETURN")
000013 zrc = $ispex("DISPLAY PANEL(TEST1)")
000014 if zrc = 0 then do
000015 call $ispex("FTOPEN TEMP")
000016 call $ispex("FTINCL TEST1")
000017 call $ispex("FTCLOSE ")
000018 call $ispex("VGET (ZTEMPF)")
000019 zrc = $ispex("VIEW DATASET('"ztempf"' ")
000020 zrc = $ispex("VGET (ZVERB)")
000021 if zverb = "EXIT" then ,
000022 call $tsoex("SUBMIT '"ztempf"' ")
000023 end
000024
000025 zedsmsg = left(_cmd,8)"- Ended"
000026 zedlmsg = "Execution of "left(_cmd,8)" ended "
000027 call $ispex "SETMSG MSG(ISRZ001)"
000028
000029 Exit 0
000030
000031 /* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */
000032 $tsoex:
000033 tso_0tr = trace("O")
000034 Address TSO arg(1)
000035 tso_0rc = rc
000036 trace value(tso_0tr)
000037 return tso_0rc
000038 /* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */
000039 $ispex:
000040 isp_tr = trace("O")
000041 Address ISPEXEC arg(1)
000042 isp_rc = rc
000043 trace value(isp_tr)
000044 return isp_rc
000045 /* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */
000046 $isred:
000047 isr_tr = trace("O")
000048 Address ISREDIT arg(1)
000049 isr_rc = rc
000050 trace value(isr_tr)
000051 return isr_rc
000052
****** **************************** Bottom of Data ****************************
|
the panel
| Code: |
****** ***************************** Top of Data ******************************
000001 )ATTR DEFAULT(%+_)
000002 /* % TYPE(TEXT) INTENS(HIGH) defaults displayed for */
000003 /* + TYPE(TEXT) INTENS(LOW) information only */
000004 /* _ TYPE(INPUT) INTENS(HIGH) CAPS(ON) JUST(LEFT) */
000005 $ TYPE(INPUT) INTENS(LOW) PAD(_) /* input field padded with '_' */
000006 ! TYPE(INPUT) INTENS(LOW) PAD(' ') /* input field padded with ' ' */
000007 )BODY
000008 %-------------------- TITLE FOR ENTRY PANEL --------------------------
000009 %COMMAND ===>_ZCMD
000010 %
000011 + 1 2 3 4 5
000012 + 12345678901234567890123456789012345678901234567890123456
000013 + 1 !var1 +
000014 + 2 !var2 +
000015 + 3 !var3 +
000016 +
000017 )INIT
000018 )PROC
000019 )END
****** **************************** Bottom of Data ****************************
|
the skeleton
| Code: |
****** ***************************** Top of Data ******************************
==MSG> -CAUTION- Profile changed to CAPS ON (from CAPS OFF) because the
==MSG> data does not contain any lower case characters.
000001 //ENRICO@1 JOB (ACCT),'TEST1',NOTIFY=ENRICO,
000002 // CLASS=A,MSGCLASS=X,MSGLEVEL=(1,1)
000003 //* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
000004 //* DSN=ENRICO.ISPF.SKELS(TEST1)
000005 //* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
000006 //*
000007 //* VAR1 = &VAR1
000008 //* VAR2 = &VAR2
000009 //* VAR3 = &VAR3
000010 //*
000011 //IEF EXEC PGM=IEFBR14
****** **************************** Bottom of Data ****************************
|
and here is the link to the manuals
publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/Shelves/ISPZPM70 |
|
| Back to top |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007
Posts: 10873
Location: italy
|
|
|
|
for what frigging reason You make everybody waste time
when I answer endless question asked by clueless people after a while I usually go thru their posts to see what tone to use and what disparaging adjectives to use
and guess what ... I got the t shirt
exactly the same overall issue ( just different parameters )
ibmmainframes.com/viewtopic.php?t=44939&postdays=0&postorder=asc&start=15
where You made the same mistake, and I gave You the same answer !
but You did not learn anything from it
ok it was about one year and hals ago , but ...
meditate on
getting proper medical treatment for Your poor memory
or about a career shift to a profession less demanding for your neuron
from the TS signature
"Imagination is more important than knowledge."
very very little imagination, and even less knowledge  |
|
| Back to top |
|
|
expat
Global Moderator
Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales
|
|
|
|
Enrico, that thread which you linked to, does bring back memories  |
|
| Back to top |
|
|
Mukesh Pandey
Active User
Joined: 11 Nov 2008
Posts: 143
Location: India
|
|
|
|
hi Enrico.. Thanks for your great reply....
I will try to understand your logic given in the code. |
|
| Back to top |
|
|
|
|
