The DATE parameter identifies the date to be returned. For example, to return the date 7 August 2012 in YYMD format with separators, specify the date format as 'YYYY/MM/DD'. To include data separator characters within the returned date, use a custom date format code for this parameter. For example, RTNFMT('ZMDDYY') returns the date 8 August 2012 as '80712'. To suppress leading zeros, specify the letter 'Z' in place of the M, D or Y where you want the zeros suppressed. For example to return the date of 7 August 2012 as 07AUG2012, specify RTNFMT(DDMMMYYYY). All the usual predefined date format codes are supported, in addition any combination of MM DD, YYYY or YY may be specified including DDD, MMM, Y, YY, and YYYY. The RTNFMT parameter specifies the format of the date to be returned on the RTNDATE parameter. If it is not large enough, the returned date value is truncated on the left. This CL variable should be large enough to hold the entire returned date string. The format of the date value that is returned is specified on the RTNFMT parameter. The RTNDATE parameter accepts a character or numeric CL variable that receives the returned date value. Below is an example of the prompted RTVDATE command. The duration is added to the user-supplied date or the special date value and the new date is returned. In addition a duration can be applied to the date. To include date separators (aka, 'date edit codes') specify the format on the RTNFMT parameter with the separators, for example, RTNFMT('YY/MM/DD') returns the date as 12/08/07. If the day is returned in *YMD format and the date is 7 August 2012, the date is returned as 120807 never 12/08/07. RTVDATE RTNDATE( CL-var ) RTNFMT( *JOB | date-format ) +ĭATE( *JOB | date operator relative-day ) +ĭUR( 0 | duration )

The returned date value is in the user-specified date format after the optional duration has been added (note a negative duration may be specified to subtract a number of days). The date that is converted my be specified on the DATE parameter or a symbolic date (such as *JOB or *SYSTEM) may be retrieved and converted. It optionally adds a duration (number of days) to the date before it is converted. The RTVDATE command converts a date to the user-specified date format. RTVDATE (Retrieve and Convert Date) Command

How to get system date in cl program