Another rexx example using the system's time zone /* rexx yesterdy */ call syscalls 'ON' numeric digits 10 cvt=storage(10,4) cvttz=storage(d2x(c2d(cvt)+304),4) tz=format(c2d(cvttz,4)*1.048576,,0) address syscall 'time' address syscall 'gmtime' retval-86400+tz 'tm.' say tm.tm_year''right(tm.tm_mon,2,0)right(tm.tm_mday,2,0) /* say tm.tm_hour':'right(tm.tm_min,2,0) */ return 0
Bill Schoen ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
