Show 2 ways to convert a date from YYMMDD to MMDDYY (MULT operation not acceptable)
Answer Posted / sanjeet kumar
1)CVTDAT() DATE() RTNVAR() FROMFMT() TOFMT()
Source code is required to convert from one date format to another date format.
The source code in CLP is given below:
PGM
DCL VAR(&VAR1) LENGTH(6) TYPE(*CHAR) VALUE('YYMMDD')
DCL VAR(&RCVD) LENGTH(6) TYPE(*CHAR)
DCL VAR(&VAR2) LENGTH(4) TYPE(*CHAR)
DCL VAR(&VAR3) LENGTH(2) TYPE(*CHAR)
CHGVAR VAR(&VAR2) VALUE(%SST(&VAR1 3 4))
CHGVAR VAR(&VAR3) VALUE(%SST(&VAR1 1 2))
CHGVAR VAR(&RCVD) VALUE(&VAR2 *CAT &VAR3)
SNDMSG MSG(&RCVD) TOUSR(*USRPRF)
ENDPGM
| Is This Answer Correct ? | 0 Yes | 0 No |
Post New Answer View All Answers
what is message subfile?
what is a primary file?
How do I remove a flag or check no. or name when a user opens too many sessions?
can a single screen format occupy a screen area above and below a subfile format ?
which are control break logic indicators?
Why we sometimes use same file name in file and tofile in ovrdbf and sometimes different?
What Is The Purpose Of The "n" In The Following Calculation Specification?
hi guys i am new for sqlrpgle, please suggest me good websites and theory and coding. plz plz its very urgent.
define the purpose of the *cat function?
How to reverse a string using RPG?
what does opcode post do ?
what is logical file?
what is cab?
what is the purpose of the indara keyword?
what are the various types of device files?