ABSTIME & FORMAT TIME COMMANDS

akodakka · New User Joined: 20 May 2010 Posts: 75 Location: India

Hello

Sorry if its a duplicate question.

What value we will be getting in ABSTIME(data-area) . how it will be calculated by CICS . i have seen the explanations as
"
The ABSTIME value that is returned by the EXEC CICS ASKTIME command is no longer rounded to the nearest 1/100 second. The absolute time returned is the system time-of-day clock, adjusted for leap seconds and the local timezone offset, truncated to the millisecond, and returned as a packed decimal of length 8 bytes. It therefore represents the number of milliseconds since 00:00 on 1 January 1900 in the local timezone and adjusted for daylight saving time.

"
But am not able to understand what will be in this. Is this the value in milliseconds of time only or with date.

i have code please help to understand this

EXEC CICS
ASKTIME ABSTIME (WS-CICS-TIMESTAMP)
END-EXEC.

EXEC CICS
FORMATTIME ABSTIME (WS-CICS-TIMESTAMP)
MONTHOFYEAR (WS-SYS-DT-M-PACK
DAYOFMONTH (WS-SYS-DT-D-PACK)
YEAR (WS-SYS-DT-CY-PACK)
TIME (WS-SYS-TIME)
END-EXEC.

MOVE WS-SYS-DT-CY-PACK TO WS-SYS-DT-CY-UNPACK.
MOVE WS-SYS-DT-M-PACK TO WS-SYS-DT-M-UNPACK.
MOVE WS-SYS-DT-D-PACK TO WS-SYS-DT-D-UNPACK.

MOVE WS-CICS-TIMESTAMP TO WS-CICS-TIMESTAMP-N.
MOVE WS-CICSTIME-MS TO WS-SYS-TIME-SM.
IF WS-SYS-TIME-SM > 49
IF (WS-SYS-TIME-HH = 0 AND
WS-SYS-TIME-MM = 0 AND
WS-SYS-TIME-SS = 0)
MOVE 24 TO WS-SYS-TIME-HH
END-IF

EVALUATE WS-SYS-TIME-MM = 0 ALSO WS-SYS-TIME-SS = 0
WHEN TRUE ALSO TRUE
MOVE 60 TO WS-SYS-TIME-MM
ADD -1 TO WS-SYS-TIME-HH
ADD -1 TO WS-SYS-TIME-MM
ADD -1 TO WS-SYS-TIME-SS

WHEN FALSE ALSO TRUE
MOVE 60 TO WS-SYS-TIME-SS
ADD -1 TO WS-SYS-TIME-MM
ADD -1 TO WS-SYS-TIME-SS

[/code]

PeterHolland · Posted: Fri May 21, 2010 3:50 pm

ABSTIME(data-area)
Specifies the data area for the time, in packed decimal, since 00:00 on 1 January 1900 (in milliseconds rounded to the nearest hundredth of a second).
You can use FORMATTIME to change the data into other familiar formats.

For example, after execution of the following command:

EXEC CICS ASKTIME ABSTIME(utime)

utime contains a value similar in format to 002837962864820.

The format of data-area is:

COBOL

PIC S9(15) COMP-3

akodakka · New User Joined: 20 May 2010 Posts: 75 Location: India

Hi

i understand that this contains value in milliseconds..
but how milliseconds calculated?

i just ran one prog and i got a abstime value 003483399000260. This should match with todays date with some time..

you can see my code is checking for >49 there..i don't understand why its checking the last two byte of abstime value for that..

and one more this what this menas like it rounded upto 1/500 and 1/100 of vaues

Bill O'Boyle · Posted: Fri May 21, 2010 4:02 pm

CICS calculates MILLISECONDS via an Assembler STCK instruction, followed by adjustments. STCK also represents time since 1 January 1900.

This is all done internally, isolating this from most folks.

Beginning with CICS/TS 4.1, the high-order nibble of the last byte of ABSTIME will contain MILLISECONDS, not rounded (as per the IBM documentation).

Prior to CICS/TS 4.1, bytes 7-8 would contain (for example), X'600C', whereas with CICS/TS 4.1 and greater, it would contain (for example), X'607C'.

I uderstand the discrepancy, but this is something you'll have to contact IBM about.

Bill

akodakka · New User Joined: 20 May 2010 Posts: 75 Location: India

But see what i found ..

i got ABSTIME as 003483399000260
and when i try to make to date..i got 5/20/2080 8:20

what does this mean ...i ran the program now...and i am expecting a value of todays date

Robert Sample · Posted: Fri May 21, 2010 4:47 pm

You're doing something wrong:

akodakka · New User Joined: 20 May 2010 Posts: 75 Location: India

i have a doubt with abstime data

we are declaring it s9(15) comp 3 then this value is (+003483399000260) is Packed digit...rite?

But it should be of length 8 byte ..why its showing 16 byte value

Robert Sample · Posted: Fri May 21, 2010 5:52 pm

You are not seeing the 8-byte internal format, you are seeing the S9(15) value.

akodakka · New User Joined: 20 May 2010 Posts: 75 Location: India

SO THIS is packed decimal format rite ?

i was trying make this value to date using a internet site which helps to convert millisecs to date and time.

so i think there is my istake

Robert Sample · Posted: Fri May 21, 2010 6:12 pm

akodakka · New User Joined: 20 May 2010 Posts: 75 Location: India

Yes..this clears my doubt..Thanks all..

One more doubt..

if we are declaring a dat-area as packed value of s9(15) comp-3 is it possible to see that as +003483399000260 16 byte...

IS it possible to move this value to s9(8) as its storage 8 byte or we need to move this to s9(15)

Robert Sample · Posted: Fri May 21, 2010 6:23 pm

If you move it to a PIC S9(08) you will lose the first 7 digits of the number. COBOL stores numbers by the picture clause (except for some special cases which are documented in the manual). While it is important to understand the internal format for variables, especially if using REDEFINES, you also must understand the rules for variable moves.

akodakka · New User Joined: 20 May 2010 Posts: 75 Location: India

Hi Robert

Thanks very much for helping to understand this..

akodakka · New User Joined: 20 May 2010 Posts: 75 Location: India

Hi

Would u please help me to understnd this also

Specifies the data area for the time, in packed decimal, since 00:00 on 1 January 1900 (in milliseconds rounded to the nearest hundredth of a second).

and

If the milliseconds come to 500 or more, the returned seconds and, if necessary, the minutes and hours, are rounded up. The day, month, and year are, however, never rounded up. However, in the case where the ABSTIME argument contains a value representing the half-second before midnight, no rounding is performed, and the TIME parameter returns 23:59:59.

Robert Sample · Posted: Fri May 21, 2010 7:34 pm

The first bold part of your post indicates that the milliseconds value will always be a multiple of 10 -- 398 will be rounded to 400, 173 will be rounded to 170, and so forth. In other words, when you see a time value in CICS, the last digit will ALWAYS be a zero (at least through z/OS 1.10).

For the second bold part of your post, an example helps. 003483424386760 is a time value that translates to 05/21/2010 at 9:53:06.760. (you can prove this by copying it and using a CECI FORMATTIME ABSTIME(003483424386760) in a CICS region) CICS will show this as 09:53:07 since the millisecond value is greater than 500.