Good News Everybody!
The new search engine is LIVE!
Please report any problems to david (at) midrange.com.
|
midrange.com
Hi, can someone explain how to use cl to calculate dates properly?
I'm using the following;
/* RETRIEVE THE CURRENT SYSTEM DATE & TIME */
RTVSYSVAL SYSVAL(QDATE) RTNVAR(&SYSDAT)
RTVSYSVAL SYSVAL(QTIME) RTNVAR(&SYSTIM)
/* CONVERT THE CURRENT DATE FROM MMDDYY TO YYYYMMDD */
CVTDAT DATE(&SYSDAT) TOVAR(&SYSYYMD) FROMFMT(*MDY) +
TOFMT(*YYMD) TOSEP(*NONE)
/* CREATE PREVIUOS FRIDAY'S DATE BY SUBTRACTING 3 FROM CURRENT DATE */
CHGVAR VAR(&PRVDAT#) VALUE(&SYSYYMD)
CHGVAR VAR(&PRVDAT#) VALUE(&PRVDAT# - 3)
CHGVAR VAR(&PRVDAT) VALUE(&PRVDAT#)
When I run the job on 0501 the pgm returns the date -3 as 20060498. How would
I have to change the code so that it returns 0429?
Any examples appreciated.
Thanks
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2026 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.
