Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

Error while running SARBCH program

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> All Other Mainframe Topics
View previous topic :: :: View next topic  
Author Message
Mukesh Pandey

Active User


Joined: 11 Nov 2008
Posts: 143
Location: India

PostPosted: Mon Jun 20, 2011 2:18 pm    Post subject: Error while running SARBCH program
Reply with quote

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
View user's profile Send private message

expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8593
Location: Back in jolly old England

PostPosted: Mon Jun 20, 2011 2:20 pm    Post subject:
Reply with quote

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
View user's profile Send private message
Mukesh Pandey

Active User


Joined: 11 Nov 2008
Posts: 143
Location: India

PostPosted: Wed Jun 22, 2011 12:18 am    Post subject:
Reply with quote

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
View user's profile Send private message
Mukesh Pandey

Active User


Joined: 11 Nov 2008
Posts: 143
Location: India

PostPosted: Thu Jun 23, 2011 4:35 am    Post subject: Reply to: Getting error while running SARBCH program.
Reply with quote

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
View user's profile Send private message
superk

Moderator Team Head


Joined: 26 Apr 2004
Posts: 4648
Location: Raleigh, NC, USA

PostPosted: Thu Jun 23, 2011 4:44 am    Post subject: Reply to: Getting error while running SARBCH program.
Reply with quote

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
View user's profile Send private message
Bill Woodger

DFSORT Moderator


Joined: 09 Mar 2011
Posts: 7236

PostPosted: Thu Jun 23, 2011 5:54 am    Post subject: Reply to: Getting error while running SARBCH program.
Reply with quote

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
View user's profile Send private message
Mukesh Pandey

Active User


Joined: 11 Nov 2008
Posts: 143
Location: India

PostPosted: Thu Jun 23, 2011 12:19 pm    Post subject: Reply to: Getting error while running SARBCH program.
Reply with quote

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
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10203
Location: italy

PostPosted: Thu Jun 23, 2011 12:25 pm    Post subject: Reply to: Getting error while running SARBCH program.
Reply with quote

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
View user's profile Send private message
Mukesh Pandey

Active User


Joined: 11 Nov 2008
Posts: 143
Location: India

PostPosted: Thu Jun 23, 2011 11:55 pm    Post subject:
Reply with quote

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
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10203
Location: italy

PostPosted: Fri Jun 24, 2011 12:29 am    Post subject: Reply to: Getting error while running SARBCH program.
Reply with quote

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
View user's profile Send private message
Mukesh Pandey

Active User


Joined: 11 Nov 2008
Posts: 143
Location: India

PostPosted: Tue Jun 28, 2011 9:17 pm    Post subject:
Reply with quote

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
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10203
Location: italy

PostPosted: Tue Jun 28, 2011 9:20 pm    Post subject: Reply to: Getting error while running SARBCH program.
Reply with quote

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
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10203
Location: italy

PostPosted: Tue Jun 28, 2011 11:10 pm    Post subject: Reply to: Getting error while running SARBCH program.
Reply with quote

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
http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/Shelves/ISPZPM70
Back to top
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10203
Location: italy

PostPosted: Tue Jun 28, 2011 11:27 pm    Post subject: Reply to: Getting error while running SARBCH program.
Reply with quote

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 )

http://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 icon_cool.gif
Back to top
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8593
Location: Back in jolly old England

PostPosted: Tue Jun 28, 2011 11:38 pm    Post subject:
Reply with quote

Enrico, that thread which you linked to, does bring back memories icon_lol.gif
Back to top
View user's profile Send private message
Mukesh Pandey

Active User


Joined: 11 Nov 2008
Posts: 143
Location: India

PostPosted: Thu Jun 30, 2011 10:42 pm    Post subject:
Reply with quote

hi Enrico.. Thanks for your great reply....

I will try to understand your logic given in the code.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> All Other Mainframe Topics All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts I can not compile my program PL1 V3.R... Miguel Fernandez PL/I & Assembler 13 Tue Dec 06, 2016 8:30 pm
No new posts S922 Error yuvan ABENDS & Debugging 3 Fri Dec 02, 2016 6:58 pm
No new posts Invoke Webservice Fails with DFHPI100... divated CICS 2 Thu Nov 24, 2016 5:57 pm
No new posts IMS BMP program causes 878 system abend Artemk IMS DB/DC 7 Tue Nov 22, 2016 8:26 pm
No new posts Problem in Running Query via JCL vickey_dw DB2 3 Tue Oct 18, 2016 11:11 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us