FYI, I found that MONVIEW output has the wrong date beginning 2/29/08.
I updated MDATTRAN REXX replacing the call to CONVERT_TOD with a CALLPIPE
using DATECONV. I let IBM know, so maybe someone will put an update on
the downloads page soon.
MDATTRAN SREXX J1 V 80 Trunc=80 Size=133 Line=35 Col=1 Alt=
0
===>
|...+....1....+....2....+....3....+....4....+....5....+....6..
0035 mytod = C2X(SUBSTR(monrec, 9, 8)) /* 20080320 */
0036 'CALLPIPE STRLITERAL x'mytod , /* 20080320 */
0037 '| DATECONV TODABS FULLDATE TIMEOUT' , /* 20080320 */
0038 '| VAR MYTODCONV' /* 20080320 */
0039
0040 xrecdata = SUBSTR(monrec, 21, X2D(rlength) - 20)
0041
0042 /* Check for D1/R4 which contains the timezone offset */
0043 IF (domain = "01") & (record = "0004") THEN DO
0044 IF tz_secs = 0 THEN skip = 1
0045 syszone = SUBSTR(xrecdata,61,4)
0046 /* determine if negative or positive tz offset */
0047 IF LEFT(syszone,1) = x2c("FF") THEN DO /* negative */
0048 tz_secs = x2d('FFFFFFFF') - c2d(syszone) + 1
0049 tz_secs = tz_secs * (-1)
0050 END
0051 ELSE tz_secs = c2d(syszone) /* positive */
0052 END
0053
0054 /* CALL CONVERT_TOD(XTOD tz_secs) *//* 20080320 */
0055 /* MONVIEW TOD: 20080320 00:07:00.670057000 *//* 20080320 */
0056 /* MYTODCONV: 03/19/2008 00:07:00.670057 *//* 20080320 */
0057 parse var mytodconv mm '/' dd '/' yyyy time /* 20080320 */
0058 convtime = yyyy || mm || dd left(time,18,'0') /* 20080320 */
Hal Schmitigal
VM Systems Management, Nortel Account
perotsystems
