MVSFORUMS.com

Beswar · Beginner Joined: 04 Feb 2003 Posts: 33 Topics: 15

Hi

I have problem in changing the JCL. Currently we have library where all JCLs are stored. Many of the Jcls contain DEST=PB. This will send the reprots Pittney bose server. But we need to send the reprots only two days in a week. Other days we should not run the step that would send the reprots to Pittney bose server.

Currently we are keeping different JCLs that do not have the step that would send to Pittney bose server. But our IT management want to keep only one set of jobs for both situations and change automatically when we do not want send the reports.

I want to know what is the best way to do this automatically. I thought of writing the COBOL program that would the change the all the JCLs. Please let me know is there any simpler to way to fix the issuee

Thanks
Eswar

dtf · Posted: Fri Jun 03, 2005 1:40 pm Post subject:

One way would be to set it up to run or not run the step that does this based upon a condition code. You could then build a program to read a control card that would indicate whether or not the data should be sent, and set the condition code appropriately. You would then have to run this step in each job, and set up the proper condition code checking. Once this was done, you would only have to make one modification (to the parm card), and have it be effective system wide.

This could be done with a very simple COBOL program.
________
Honda CHF50 specifications

kolusu · Posted: Fri Jun 03, 2005 1:50 pm Post subject:

Eswar,

Just add the following 2 steps before the step which sends the reports to pittney bose server.

The first step will unload 1 records from the db2 table which will contain the day of the week. The DAYOFWEEK function returns an integer in the range of 1 to 7 that represents the day of the week where 1 is Sunday and 7 is Saturday. And in the next step we validate this 1 record file and set with a return code. let us say you want to send the reports to PB server only monday and tuesday. So monday is 2 and tuesday is 3. So we use an include card to include only these 2 records. If the day is indeed monday or tuesady then the return code from step0200 will be 0 else it would be 4.

Now use this cond code to skip the transmission of reports using COND or IF-THEN-ELSE construct.

superk · Advanced Joined: 19 Dec 2002 Posts: 684 Topics: 5

An alternative using REXX:

Beswar · Beginner Joined: 04 Feb 2003 Posts: 33 Topics: 15

kolusu

I tried your two steps. But in our installation the second step is not giving return code of 4 when it is not finding a record. Please let me know any thing I need to change.

following is the JCL I submitted

kolusu · Posted: Sun Jun 05, 2005 8:56 pm Post subject:

beswar,

Please post your sysout messages. I am guessing that you have a older version of sort. If your shop has DFSORT then you need the PTF from March 2004. If your shop has syncsort then you need syncsort 3.7 with TPF2A or higher to work for the NULLOUT parm.

Hope this helps...

Cheers

Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu

Frank Yaeger · Posted: Mon Jun 06, 2005 10:15 am Post subject:

Beswar · Beginner Joined: 04 Feb 2003 Posts: 33 Topics: 15

Thanks you very much for your(Frank and Kolusu) replies. we didn't have DFSSOrt r14. Hence I got a return code of 12 instead of RC=4. I will try using Idcams and that might work to check the empty file.

Thanks
Eswar

Frank Yaeger · Posted: Mon Jun 06, 2005 2:44 pm Post subject:

Beswar · Beginner Joined: 04 Feb 2003 Posts: 33 Topics: 15

Frank

I am sorry and you are right. we don't have the Dec ,2004 PTF

Thanks
Eswar

kolusu · Posted: Mon Jun 06, 2005 3:06 pm Post subject:

beswar,

You can write a 12 line cobol pgm to set the return code .

ex: