|
|
|
|
Member
XXXCURDATE
in
WEBSECURE / QCLSRC
|
|
|
|
1.00 |
/*-------------------------------------------------------------------*/ |
2.00 |
/* */ |
3.00 |
/* CLLE module RTVCURDATE */ |
4.00 |
/* */ |
5.00 |
/* Returns current date, format yyyymmdd */ |
6.00 |
/* */ |
7.00 |
/* */ |
8.00 |
/*-------------------------------------------------------------------*/ |
9.00 |
PGM PARM(&CURRDATE) |
10.00 |
DCL VAR(&CURRDATE) TYPE(*CHAR) LEN(8) |
11.00 |
DCL VAR(&CURRCENT) TYPE(*CHAR) LEN(1) |
12.00 |
DCL VAR(&CURRYMD) TYPE(*CHAR) LEN(6) |
13.00 |
DCL VAR(&CURRCENT2) TYPE(*CHAR) LEN(2) |
14.00 |
RTVSYSVAL SYSVAL(QCENTURY) RTNVAR(&CURRCENT) |
15.00 |
IF COND(&CURRCENT = '0') THEN(CHGVAR + |
16.00 |
VAR(&CURRCENT2) VALUE('19')) |
17.00 |
IF COND(&CURRCENT = '1') THEN(CHGVAR + |
18.00 |
VAR(&CURRCENT2) VALUE('20')) |
19.00 |
IF COND(&CURRCENT = '2') THEN(CHGVAR + |
20.00 |
VAR(&CURRCENT2) VALUE('21')) |
21.00 |
RTVSYSVAL SYSVAL(QDATE) RTNVAR(&CURRYMD) |
22.00 |
CVTDAT DATE(&CURRYMD) TOVAR(&CURRYMD) + |
23.00 |
FROMFMT(*SYSVAL) TOFMT(*YMD) TOSEP(*NONE) |
24.00 |
CHGVAR VAR(&CURRDATE) VALUE(&CURRCENT2 *CAT &CURRYMD) |
25.00 |
RETURN |
26.00 |
ENDPGM |