IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

[Solved]Check if it is certain hour, then proceed.
IBM Mainframe Forums -> JCL & VSAM
Post new topic   This topic is locked: you cannot edit posts or make replies. Quick References
View previous topic :: View next topic  
Author Message
Ali_gezer

Active User


Joined: 06 Apr 2021
Posts: 123
Location: argentina
PostPosted: Fri Jul 02, 2021 6:28 pm
 Reply with quote
Hello, how are you?
I checked the IF section in the manual reference of jcl but there's nos the answer nor examples
My need is check if the actual time is 10pm.

I can save that value in a control-m variable, but how can I create a step that says:

Code:
IF   %%HH  GT  22
//*        (DO CERTAIN THING)
Back to top
View user's profile Send private message
Joerg.Findeisen

Senior Member


Joined: 15 Aug 2015
Posts: 1348
Location: Bamberg, Germany
PostPosted: Fri Jul 02, 2021 6:44 pm
 Reply with quote
Basically the JCL syntax here is wrong, then please read description of IF. And yes, it is (with limitations) possible with JCL means.
Back to top
View user's profile Send private message
Ali_gezer

Active User


Joined: 06 Apr 2021
Posts: 123
Location: argentina
PostPosted: Fri Jul 02, 2021 6:56 pm
 Reply with quote
Joerg.Findeisen wrote:
Basically the JCL syntax here is wrong, then please read description of IF. And yes, it is (with limitations) possible with JCL means.


I read the IF section in the reference manual, but only found examples with RC, or ABEND. I cant find an example using IF %%time GE 120000 can you give me some example? or we can only use IF with RC, ABEND, and keywords like that?
Back to top
View user's profile Send private message
Rohit Umarjikar

Global Moderator


Joined: 21 Sep 2010
Posts: 3077
Location: NYC,USA
PostPosted: Fri Jul 02, 2021 7:07 pm
 Reply with quote
One way is to use DFSORT to get current timestamp and find HH:MM from it and compare with 10 PM to set RC 4 or 0 accordingly. and then in the next step use IF RC from DFSORT step to do "Certain things".

But wait, why do all this, using Job scheduler , schedule a job to run at 10 PM , what is stopping that?
Back to top
View user's profile Send private message
Ali_gezer

Active User


Joined: 06 Apr 2021
Posts: 123
Location: argentina
PostPosted: Fri Jul 02, 2021 7:18 pm
 Reply with quote
Rohit Umarjikar wrote:
One way is to use DFSORT to get current timestamp and find HH:MM from it and compare with 10 PM to set RC 4 or 0 accordingly. and then in the next step use IF RC from DFSORT step to do "Certain things".

But wait, why do all this, using Job scheduler , schedule a job to run at 10 PM , what is stopping that?


Hello Friend, I need to do this because we are having some problem with some file that sometimes another company is sending in the wrong times, so, I have to check if the job is executing after 10pm, if this is the case I have to put that file information in another file in order to procces automatically that missing or delayed file.

Thanks to both of you !! I will check this solution, but it seems great.
Back to top
View user's profile Send private message
Ali_gezer

Active User


Joined: 06 Apr 2021
Posts: 123
Location: argentina
PostPosted: Fri Jul 02, 2021 7:48 pm
 Reply with quote
Rohit Umarjikar wrote:
One way is to use DFSORT to get current timestamp and find HH:MM from it and compare with 10 PM to set RC 4 or 0 accordingly. and then in the next step use IF RC from DFSORT step to do "Certain things".

But wait, why do all this, using Job scheduler , schedule a job to run at 10 PM , what is stopping that?


Hello, can I ask you some example to compare in the sort utility? my company does not have any example about it.
Back to top
View user's profile Send private message
Joerg.Findeisen

Senior Member


Joined: 15 Aug 2015
Posts: 1348
Location: Bamberg, Germany
PostPosted: Fri Jul 02, 2021 7:50 pm
 Reply with quote
Make use of system symbols and remember that you might need a dummy step before the first IF.
Back to top
View user's profile Send private message
Joerg.Findeisen

Senior Member


Joined: 15 Aug 2015
Posts: 1348
Location: Bamberg, Germany
PostPosted: Fri Jul 02, 2021 7:58 pm
 Reply with quote
Sample:

Code:
//*   - An IF statement specified before the first EXEC statement 
//*     in a job is not evaluated before the first step executes. 
//*                                                               
//INIT EXEC PGM=IEFBR14  * INITIALIZE JOB/STEP TABLE               
// IF (&LDAY. LT 2) THEN * READ LAST DAY OF PREV MONTH AND ALL NEW
//DAY1 EXEC PGM=IEFBR14                                           
// ENDIF


Jobclass MUST have SYSSYM allowed!
Back to top
View user's profile Send private message
Ali_gezer

Active User


Joined: 06 Apr 2021
Posts: 123
Location: argentina
PostPosted: Fri Jul 02, 2021 8:30 pm
 Reply with quote
Joerg.Findeisen wrote:
Sample:

Code:
//*   - An IF statement specified before the first EXEC statement 
//*     in a job is not evaluated before the first step executes. 
//*                                                               
//INIT EXEC PGM=IEFBR14  * INITIALIZE JOB/STEP TABLE               
// IF (&LDAY. LT 2) THEN * READ LAST DAY OF PREV MONTH AND ALL NEW
//DAY1 EXEC PGM=IEFBR14                                           
// ENDIF


Jobclass MUST have SYSSYM allowed!


Thanks.
Is there a system symbol of the hour? In my companty there are examples about &LMON.-&LDAY.
Back to top
View user's profile Send private message
Joerg.Findeisen

Senior Member


Joined: 15 Aug 2015
Posts: 1348
Location: Bamberg, Germany
PostPosted: Fri Jul 02, 2021 8:51 pm
 Reply with quote
Use SDSF -> SYM to find a matching one.
Back to top
View user's profile Send private message
Ali_gezer

Active User


Joined: 06 Apr 2021
Posts: 123
Location: argentina
PostPosted: Fri Jul 02, 2021 9:34 pm
 Reply with quote
Joerg.Findeisen wrote:
Use SDSF -> SYM to find a matching one.


Hello, im having a problem, with the next error:
8 IEFC016I ERROR IN IF STATEMENT

I cant see what can it be.

Code:
//FREE67   EXEC  PGM=IEBGENER                         
//SYSUT1   DD  DSN=DM.BO.PAGTOTAL.DOLP44,             
//             DISP=SHR,FREE=CLOSE                   
//SYSUT2   DD  DUMMY                                 
//SYSPRINT DD  SYSOUT=*                               
//SYSIN    DD  DUMMY                                 
//*                                                   
//INIT EXEC PGM=IEFBR14                               
//  IF (&LHR. LT 2) THEN                             
//SORT0002 EXEC SORT                                 
//SORTIN   DD  DSN=DM.BO.PAGTOTAL.DOLP44,             
//             DISP=SHR                               
//SORTOUT  DD  DSN=DM.BO.REVER.DSQQID5,               
//*            DCB=(LRECL=190),                       
//             DISP=(NEW,CATLG,DELETE),               
//             SPACE=(CYL,(1000,500),RLSE),VOL=(,,,6)
  INCLUDE COND=(8,3,CH,EQ,C'XXX')                     
  SORT FIELDS=(1,7,CH,A,11,19,CH,A)                   
  OUTFIL FNAMES=SORTOUT,REMOVECC,LINES=56,           
  HEADER2=(2:DATE)                                   
// ENDIF       

[/code]
Back to top
View user's profile Send private message
Joerg.Findeisen

Senior Member


Joined: 15 Aug 2015
Posts: 1348
Location: Bamberg, Germany
PostPosted: Fri Jul 02, 2021 11:47 pm
 Reply with quote
Show JESJCL of your Job. I assume the symbols are not resolved, but I have written that you should check that! It should come up like this:

Code:
3 //INIT EXEC PGM=IEFBR14  * INITIALIZE JOB/STEP TABLE               
4 // IF (&LDAY. LT 2) THEN * READ LAST DAY OF PREV MONTH AND ALL NEW
  IEFC653I SUBSTITUTION JCL - (02 LT 2)                             
5 //DAY1 EXEC PGM=IEFBR14                                           
6 // ENDIF
Back to top
View user's profile Send private message
Ali_gezer

Active User


Joined: 06 Apr 2021
Posts: 123
Location: argentina
PostPosted: Sat Jul 03, 2021 12:34 am
 Reply with quote
Joerg.Findeisen wrote:
Show JESJCL of your Job. I assume the symbols are not resolved, but I have written that you should check that! It should come up like this:

Code:
3 //INIT EXEC PGM=IEFBR14  * INITIALIZE JOB/STEP TABLE               
4 // IF (&LDAY. LT 2) THEN * READ LAST DAY OF PREV MONTH AND ALL NEW
  IEFC653I SUBSTITUTION JCL - (02 LT 2)                             
5 //DAY1 EXEC PGM=IEFBR14                                           
6 // ENDIF


hello joerg, im reading about jesjcl because really I never worked or touched that concept. Maybe later I can ask you again, because right know Iam abusing your good willing.
Im a java programmer and little by little learning things of mainframe environment, and JESJCL is a concept that I know nothing and I have to study, so as I said later perhaps I will ask again.

Thanks.
Back to top
View user's profile Send private message
Joerg.Findeisen

Senior Member


Joined: 15 Aug 2015
Posts: 1348
Location: Bamberg, Germany
PostPosted: Sat Jul 03, 2021 12:49 am
 Reply with quote
In SDSF ST Menu, in front of the Job, type '?'. You will then see what I mean. Not so tricky.
Back to top
View user's profile Send private message
Ali_gezer

Active User


Joined: 06 Apr 2021
Posts: 123
Location: argentina
PostPosted: Sat Jul 03, 2021 1:43 am
 Reply with quote
Joerg.Findeisen wrote:
In SDSF ST Menu, in front of the Job, type '?'. You will then see what I mean. Not so tricky.


Thanks yes, I use the sdsf to see the output of jobs, etc.

I convey you my code, I see that the sentence you mentioned is not appearing. How can I solve this?

Code:
 1 //EVX48888 JOB (01,BE,&SYSUID,0000000,PPPPPPPP),                     
   //*        USER=EW19,PASSWORD=XXXXXXXX,                               
   //         CLASS=A,MSGCLASS=X,COND=(4,LT),                           
   //         NOTIFY=&SYSUID                                             
   //*        RESTART=DELE0380                                           
   //*                                                                   
   //********************************************************************
   //*                                                                   
   //* ===> VARIABLE TIEMPO DE PROCESO (FORMATO HHMMSS)                 
   //* %%SET %%HHMMSS   = %%TIME                                         
   //************************************************************       
   IEFC653I SUBSTITUTION JCL - (01,BE,EVX4,0000000,PPPPPPPP),CLASS=A,MSGC
 2 //FREE67   EXEC  PGM=IEBGENER                                         
 3 //SYSUT1   DD  DSN=DM.BO.PAGTOTAL.DOLP44,                             
   //             DISP=SHR,FREE=CLOSE                                   
 4 //SYSUT2   DD  DUMMY                                                 
 5 //SYSPRINT DD  SYSOUT=*                                               
 6 //SYSIN    DD  DUMMY                                                 
   //*                                                                   
 7 //INIT EXEC PGM=IEFBR14                                               
 8 //  IF (LHR.LT22) THEN                                               
 9 //SORT0002 EXEC SORT                                                 
10 XXSORT     EXEC  PGM=ICEMAN                                           
11 XXSYSOUT   DD  SYSOUT=*                                               
12 XXSYSPRINT DD  DUMMY                                                 
13 XXSYSLMOD  DD  DSNAME=&&GOSET,                                       
   XX             UNIT=SYSDA,                                           
   XX             SPACE=(3600,(20,20,1))                                 
14 XXSYSLIN   DD  DSNAME=&&LOADSET,                                     
   XX             UNIT=3390,SPACE=(80,(10,10))                           
15 XXSYSUT1   DD  DSNAME=&&SYSUT1,                                       
   XX             SPACE=(1024,(60,20)),                                 
   XX             UNIT=SYSDA                                             
16 //SORTIN   DD  DSN=DM.BO.PAGTOTAL.DOLP44,                             
   //             DISP=SHR                                               
   //             DISP=SHR                               
17 //SORTOUT  DD  DSN=DM.BO.REVER.DSQQID5,               
   //*            DCB=(LRECL=190),                       
   //             DISP=(NEW,CATLG,DELETE),               
   //             SPACE=(CYL,(1000,500),RLSE),VOL=(,,,6)
18 //SYSIN     DD *               GENERATED STATEMENT   
19 // ENDIF               
Back to top
View user's profile Send private message
Ali_gezer

Active User


Joined: 06 Apr 2021
Posts: 123
Location: argentina
PostPosted: Sat Jul 03, 2021 3:34 am
 Reply with quote
This is what I found
SysSym
A NO MAXRC YES DISALLOW
B NO MAXRC YES DISALLOW
C NO MAXRC YES DISALLOW
D NO MAXRC YES DISALLOW
E NO MAXRC YES DISALLOW
F NO MAXRC YES DISALLOW
G NO MAXRC YES DISALLOW
H NO MAXRC YES DISALLOW
I NO MAXRC YES DISALLOW
J NO MAXRC YES DISALLOW

The only way to activate this is talking with some person of my company?
Back to top
View user's profile Send private message
Ali_gezer

Active User


Joined: 06 Apr 2021
Posts: 123
Location: argentina
PostPosted: Sat Jul 03, 2021 3:50 am
 Reply with quote
Rohit Umarjikar wrote:
One way is to use DFSORT to get current timestamp and find HH:MM from it and compare with 10 PM to set RC 4 or 0 accordingly. and then in the next step use IF RC from DFSORT step to do "Certain things".

But wait, why do all this, using Job scheduler , schedule a job to run at 10 PM , what is stopping that?


Can I ask some code of your own to see this working?
My company really even when I searched long I cant found any example.
Back to top
View user's profile Send private message
Joerg.Findeisen

Senior Member


Joined: 15 Aug 2015
Posts: 1348
Location: Bamberg, Germany
PostPosted: Sat Jul 03, 2021 6:39 am
 Reply with quote
Ali_gezer wrote:
I convey you my code, I see that the sentence you mentioned is not appearing. How can I solve this?

Code:
 8 //  IF (&LHR. LT 22) THEN                                               

Notice the difference to what you have coded.
Back to top
View user's profile Send private message
sergeyken

Senior Member


Joined: 29 Apr 2008
Posts: 2154
Location: USA
PostPosted: Sat Jul 03, 2021 7:35 pm
 Reply with quote
Joerg.Findeisen wrote:
Ali_gezer wrote:
I convey you my code, I see that the sentence you mentioned is not appearing. How can I solve this?

Code:
 8 //  IF (&LHR. LT 22) THEN                                               

Notice the difference to what you have coded.


Quote:
The difference is only in two slashes, and two spaces, - who cares of them?!
icon_fU.gif icon_butt.gif 36_11_6.gif
Back to top
View user's profile Send private message
Ali_gezer

Active User


Joined: 06 Apr 2021
Posts: 123
Location: argentina
PostPosted: Mon Jul 05, 2021 6:17 pm
 Reply with quote
Joerg.Findeisen wrote:
Ali_gezer wrote:
I convey you my code, I see that the sentence you mentioned is not appearing. How can I solve this?

Code:
 8 //  IF (&LHR. LT 22) THEN                                               

Notice the difference to what you have coded.


That code that you see at last was one of my several tries. I proved with the code you put before and after your last message and did not work neither.

I see in sdsf that syssym are disallowed for all the classes

This is what I found
SysSym
A NO MAXRC YES DISALLOW
B NO MAXRC YES DISALLOW
C NO MAXRC YES DISALLOW
D NO MAXRC YES DISALLOW
E NO MAXRC YES DISALLOW
F NO MAXRC YES DISALLOW
G NO MAXRC YES DISALLOW
H NO MAXRC YES DISALLOW
I NO MAXRC YES DISALLOW
J NO MAXRC YES DISALLOW

and I read some post in the forum that I have to speak with the system manager of my company but I dont think that they are going to modify anything.

That's why I asked to the other person if he could bring me some code using the sort utility to make this comparision. Can you give me some example or clue if you have one?

thanks again.
Back to top
View user's profile Send private message
enrico-sorichetti

Superior Member


Joined: 14 Mar 2007
Posts: 10891
Location: italy
PostPosted: Mon Jul 05, 2021 6:47 pm
 Reply with quote
time to lock the topic, it is getting nowhere!
Back to top
View user's profile Send private message
Ali_gezer

Active User


Joined: 06 Apr 2021
Posts: 123
Location: argentina
PostPosted: Mon Jul 05, 2021 6:56 pm
 Reply with quote
enrico-sorichetti wrote:
time to lock the topic, it is getting nowhere!


But Joer brought me some solution but I can not use it because system symbols are blocked in my company, so I asked if someone can give me one example using sort. Rohit told me that I can use sort utility to achieve this solution but I cant find some example in my company nor the forum. Perhaps with some example (in the if section of the jcl reference there is only examples with keywords) I can solve this.
Back to top
View user's profile Send private message
Ali_gezer

Active User


Joined: 06 Apr 2021
Posts: 123
Location: argentina
PostPosted: Mon Jul 05, 2021 8:38 pm
 Reply with quote
I made a solution for this.

first I get the time by a sort
second I made other step using an INCLUDE sentence to find if the earlier file has the time I need. If found, made a only record.
Then I made other step that checks if the file has anything, if has anything it would be a correct rc, and then proceed.

Thanks, you can close de topic.
Back to top
View user's profile Send private message
Rohit Umarjikar

Global Moderator


Joined: 21 Sep 2010
Posts: 3077
Location: NYC,USA
PostPosted: Mon Jul 05, 2021 9:02 pm
 Reply with quote
Based on what you said above you have Couple of options
1. Talk to job scheduling team at your organization and set up a watcher job ( which will see if 10 PM job is completed or not ) which can be used for taking action as needed.
2. Write a new job which will run anytime after 10PM
A. Get the creation date of the dataset ( of the 10 PM job) -
Use LISTCAT , IDCAMS facility.
B. Compare the creation date from step step A to current date
using DFSORT and set RC
C. Based on RC from step B , decide to copy else no copy.
Please search this forum for A and B, this is discussed so many times. I shall try tomorrow but meanwhile please do research and try by yourself.
3. Try dfsort as suggested. e.g
ibmmainframes.com/about65572.html
ibmmainframes.com/about40597.html
ibmmainframes.com/viewtopic.php?t=42664&postdays=0&postorder=asc&start=0
Back to top
View user's profile Send private message
Ali_gezer

Active User


Joined: 06 Apr 2021
Posts: 123
Location: argentina
PostPosted: Mon Jul 05, 2021 9:15 pm
 Reply with quote
Rohit Umarjikar wrote:
Based on what you said above you have Couple of options
1. Talk to job scheduling team at your organization and set up a watcher job ( which will see if 10 PM job is completed or not ) which can be used for taking action as needed.
2. Write a new job which will run anytime after 10PM
A. Get the creation date of the dataset ( of the 10 PM job) -
Use LISTCAT , IDCAMS facility.
B. Compare the creation date from step step A to current date
using DFSORT and set RC
C. Based on RC from step B , decide to copy else no copy.
Please search this forum for A and B, this is discussed so many times. I shall try tomorrow but meanwhile please do research and try by yourself.
3. Try dfsort as suggested. e.g
ibmmainframes.com/about65572.html
ibmmainframes.com/about40597.html


Thank you so much for you explanation, it is a gold for me, I already implemented a solution that a jus put ealier before this comment of yours. But anyways is a very great explanation that would serve me in the future and to other people here in this forum
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   This topic is locked: you cannot edit posts or make replies. View Bookmarks
All times are GMT + 6 Hours
Forum Index -> JCL & VSAM Goto page 1, 2  Next

 

Similar Topics
Topic Forum Replies
No new posts Using Multiple IFTHEN and WHEN condit... SYNCSORT 12
No new posts Check if CICS is online in JCL CICS 10
No new posts To get the count of rows for every 1 ... DB2 3
No new posts SCOPE PENDING option -check data DB2 2
No new posts Check data with Exception Table DB2 0
Search our Forums:

Back to Top
IBMMainframes.com is not an official and/or affiliated with IBM® in anyway
Board Rules | FAQ | Downloads | Wiki | SiteMap | Contact Us