Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Forum Index
 
Register
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
How to detect the Job COND used
Goto page Previous  1, 2
 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM
View previous topic :: :: View next topic  
Author Message
tdfs

New User


Joined: 31 Mar 2015
Posts: 18
Location: Italy

PostPosted: Sun Feb 14, 2016 7:10 pm    Post subject:
Reply with quote

Oh, thank you anyway WJ!

Maybe I've found an alternative: instead of reading the SCHENV, I can pass DB2 name (that is SCHENV depending) as a parameter to the program and check it. I think this should fit my needs.
Time to go testing! icon_biggrin.gif
Back to top
View user's profile Send private message

PeterHolland

Global Moderator


Joined: 27 Oct 2009
Posts: 2470
Location: Netherlands, Amstelveen

PostPosted: Sun Feb 14, 2016 9:58 pm    Post subject:
Reply with quote

Quote:
sorry, I couldn't find any reference to the SCHENV value.


It's a WLM parameter. You will have to read the WLM manuals, because it's a bit long to explain.

WLM exits and JES2 use this parameter, and also the completion code information.

So i'm not sure what the TS is trying to accomplish. Writing a TWS/WLM exit?
With in his own words no knowledge of control blocks, exits and assembler?

Quote:
but luckily I've a colleague who can deal with it


So why is that person not asking those questions?
Back to top
View user's profile Send private message
tdfs

New User


Joined: 31 Mar 2015
Posts: 18
Location: Italy

PostPosted: Sun Feb 14, 2016 10:15 pm    Post subject:
Reply with quote

PeterHolland, I'm just writing a program to make sure that my JCL procedure is used in the right way (correct job COND and a SCHENV matching the environment).
I have to do this because other users will make use of my JCL procedure, writing their own JCL jobs but they always try to ignore my guidelines. You know, it's an hard life icon_smile.gif
If I manage to force the job to abend if job COND and SCHENV are wrong, I can force them to use the right parameters. This is why I'm investigating how to do it and I'm almost done.
With respect to my colleague, I can't ask him to work on this task, he is deployed to an other project so I try to collect all information and ask him the less that I can.
Tomorrow I'll test my last idea, I'm confident it will work just fine.

A
Back to top
View user's profile Send private message
enrico-sorichetti

Senior Member


Joined: 14 Mar 2007
Posts: 10621
Location: italy

PostPosted: Sun Feb 14, 2016 11:21 pm    Post subject: Reply to: How to detect the Job COND used
Reply with quote

Quote:
I can't ask him to work on this task, he is deployed to an other project so I try to collect all information and ask him the less that I can.


why not...
You are unloading on people that reply on their own time and free of charge problems related to the dynamics of Your organization
icon_evil.gif
Back to top
View user's profile Send private message
tdfs

New User


Joined: 31 Mar 2015
Posts: 18
Location: Italy

PostPosted: Mon Feb 15, 2016 12:12 am    Post subject: Re: Reply to: How to detect the Job COND used
Reply with quote

enrico-sorichetti wrote:
Quote:
I can't ask him to work on this task, he is deployed to an other project so I try to collect all information and ask him the less that I can.


why not...
You are unloading on people that reply on their own time and free of charge problems related to the dynamics of Your organization
icon_evil.gif


Enrico, the scenario is completely different from what you are trying to draw and I'm pretty sure you know it.
I want to figure out how to achieve a result on my own but I don't have enough skills and knowledge. The solution is googleing and asking to experts. My colleague just knows assembler, it does not mean he can find any kind of solution. I asked him how to do it the work an the answer was he does not know how to go from CVT to JSE2 mapping areas. I spent come time googleing and I have found the mapping. Then WJ provided the answer and I went back to my colleague. We replaced a few macros, I did a few changes and the program got to light.
Here, I'm just asking for help, nobody is forced to answer me, nobody if forced to spent time for me or even read the thread. It's awkward I have to write a reply like this!
Please, save some of your spare time and ignore the thread for now on. Thanks for your time.

A
Back to top
View user's profile Send private message
enrico-sorichetti

Senior Member


Joined: 14 Mar 2007
Posts: 10621
Location: italy

PostPosted: Mon Feb 15, 2016 1:02 am    Post subject: Reply to: How to detect the Job COND used
Reply with quote

Quote:
I want to figure out how to achieve a result on my own but I don't have enough skills and knowledge.


Mr whatever Your name is
wandering thru zOS control block is something that should not be done and used in a production system based on forum replies
Back to top
View user's profile Send private message
tdfs

New User


Joined: 31 Mar 2015
Posts: 18
Location: Italy

PostPosted: Mon Feb 15, 2016 1:04 am    Post subject:
Reply with quote

Thanks for your advise, I'll think about it.
Regards.

A
Back to top
View user's profile Send private message
steve-myers

Active Member


Joined: 30 Nov 2013
Posts: 750
Location: The Universe

PostPosted: Mon Feb 15, 2016 8:07 am    Post subject:
Reply with quote

As I said bafore, Mr. Jensen's code fragment will not always work. It will not work if your installation specifies the SWA above the line. This code fragment will always work. Your code specifies AMODE 31, though if it works it will work with AMODE 24. The SWAREQ macro requires AMODE 31.
Code:
         PUSH  PRINT
         PRINT NOGEN
         IEFZB505 LOCEPAX=YES
         ORG   ,
ZB505SZ  EQU   *-ZB505
         POP   PRINT
         ...
         L     2,CVTPTR
         L     3,CVTTCBP-CVTMAP(,2)
         L     4,4(,3)
         L     5,TCBJSCB-TCB(,4)
         XC    ZB505X,ZB505X
         LA    0,ZB505X
         ST    0,SWEPAPTR
         USING ZB505,ZB505X
         MVC   SWVA,JSCJCTP-IEZJSCB(5)
         SWAREQ UNAUTH=YES,FCODE=RL,EPA=SWEPAPTR,MF=(E,SWAPARM)
         LTR   15,15
         BNZ   EXIT
         L     1,SWBLKPTR
         ...
         DS    0D
ZB505X   DC    XL(ZB505SZ)'0'
SWEPAPTR DS    F
SWAPARM  SWAREQ MF=L
         POP   PRINT
         ...
         PUSH  PRINT
         PRINT NOGEN
         CVT   DSECT=YES
         IKJTCB ,
         IEZJSCB ,
         IEFAJCTB ,
         IEFJESCT ,
         POP   PRINT
The Load instruction after the SWAREQ macro call will load the correct address of the JCT.
Back to top
View user's profile Send private message
tdfs

New User


Joined: 31 Mar 2015
Posts: 18
Location: Italy

PostPosted: Mon Feb 15, 2016 1:48 pm    Post subject:
Reply with quote

Thank you very much, I'll study your code and adapt it to my needs.

A
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 -> JCL & VSAM All times are GMT + 6 Hours
Goto page Previous  1, 2
Page 2 of 2

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Cond parameter srini24 JCL & VSAM 10 Sun Sep 09, 2018 2:06 am
No new posts JCL COND CODE check juares castro JCL & VSAM 5 Tue Jun 26, 2018 7:43 pm
No new posts Detect break in the sequence tuxama DFSORT/ICETOOL 6 Tue Mar 20, 2018 1:35 pm
No new posts query to fetch record which has only ... maxsubrat DB2 12 Mon Dec 11, 2017 5:03 pm
No new posts how to DYNAMICALLY write sort cond to... mohamedmubee COBOL Programming 13 Fri Aug 26, 2016 11:46 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us