MVSFORUMS.com

[DHL_MF_INFY]

hi,
I want to add a constant parameter i.e. some hours, in the input date and time to get a new date and time in a batch program. Is there any utility available to achieve the same which can be used in a cobol program? [/quote]

[vkphani]

First of all let us know about the RECFM and LRECL of your file and the hours format, number of digits, position from which you want to add etc.

I assume that your file is of length 80 and format is FB. The number of digits of hours which you want to add is 2 and the position is from 9 and the hours you want to add is 24.

The below sort card will add the characters 24 from 9th position(9th and 10th positions will be occupied).
Rest of the data will be copied as it is.

//SYSIN DD *
OPTION COPY
OUTREC FIELDS=(1:1,8,9:C'24',11:11,80)
/*

[Phantom]

vkphani,

What I understand from DHL_MF_INFY's note is: he wants add some value 'x' to the date & time field.

for example, if my input file contains the following "09-26-2005-23.55.00.000000" then If I add 10 minutes to this, the new date-time value will be "09-27-2006-00.05.00.000000". But your code will concatenate '24' to the field thereby increasing the length.

DHL_MF_INFY, Let me know if I am wrong. If this is the case, why don't you code the logic to add the hours/minutes in the COBOL program directly. If you are going to add just the hours, then it will become a bit easy.

I am not sure if Language environment has an option to add date & time. I will have to find out.

Thanks,
Phantom

[vkphani]

Hi Phantom,

You are correct. But the full info about the requirement is not given.

[Phantom]

I agree with vkphani.

DHL_MF_INFY,

When you post a question, please make sure you provide the following information, so that we can get back with the accruate solutions on time.

1. RECFM
2. LRECL
3. Sample input
4. Sample output.

And above all, please utilize the search facility provided to you to see if similar questions are already posted. Most of them might have already been answered. This will cut down your turn-around time.

Thanks,
Phantom

[DHL_MF_INFY]

Hi Phantom,
You got the point right. If at all I decide to code the same then I need to take care of things like Leap year and some other things into consideration like month change, year change etc. So just wanted to avoid cumbersome coding

Thanks and Regards
DHL_MF_INFY

[DHL_MF_INFY]

Well an apology for not giving the complete information.

The needed information is as below.

RECFM = FB
LRECL = 500
DSORG = PS
Input Date and Time format is CCYYMMDD and HHMM

Hope this is sufficient.

[kolusu]

DHL_MF_INFY,

You can use the language environment calls "ceesecs" and "ceedatm" to acheive the desired results. You first need to convert the date-time to seconds and then add hours in seconds ex: 1 HOUR =(60 * 60 = 3600 SECONDS) . Now use CEEDATM to convert the second back to the normal character date-time format.

Try this code.

[Phantom]

I don't know how I missed this.....We have already discussed this in the "Mainframe Challenge" Thread. I vaguely remembered that it is possible with LE, but didn't try to search here.

http://www.mvsforums.com/helpboards/viewtopic.php?t=2261

Thanks,
Phantom