Interested to Buy Any Domain ? << Click Here >> for more details...
Mr.Sidc sirfor my question{how to convert date format from
one format to another i think
in CL/400 its CVTDAT,Please tell in RPG/400 sir not in
RPGILE}
you have answered using MOVE opcode,can you illustrate me
with a small example sir very kind of you.
- 1 Answers
- 6795 Views
- CTS, IBM, iGate, I also Faced
- E-Mail Answers
Answer / katiyar
A simple method, if you are good user of MOVE and MOVEL. Use
the below code to change date format of one type to another.
movel *date date1 4 0
move *date date2 4 0
move date1 datex
movel date2 datex
Where *date system defined date with mmddyyyy format. Hope
it will help.
===========================================================
Second method, You need to define Data Structure, as below.
Variable starts with 'F' is actually used for first type of
date.
And variable starts with 'S' actually used for second date
format.
I DS
I 1 80FDATE
I 1 40FYEAR
I 1 20FCC
I 3 40FYY
I 5 120SDATE
I 5 60SMO
I 7 80SDA
I 9 120SYEAR
I 9 100SCC
I 11 120SYY
FDATE is 8-digit date as YYYY/MM/DD format and SDATE is an
8-digit date as MM/DD/YYYY format.
Just convert by moving on to other. For MDY to ISO , use
below syntax.
Z-ADD MDYC SDATE
Z-ADD SYEAR FYEAR
Z-ADD FDATE CYMD
To go from ISO to MDY, you first z-add to fdate, then z-add
fyear to syear, and then z-add sdate into your MDY date.
==========================================================
| Is This Answer Correct ? | 6 Yes | 0 No |
how do I play {insert rpg system here}?
i'm working on progA , in that program i want to see the userids of the users who work on this program?
can any one help in hawkeye and turnover or any change management system plzzzzz or send the documents to my mail id :gvsp.as4@gmail.com
what is kids-rpg?
How to sort an array in descending in RPG
1.Write code to read the records from a file and load an array of size 99? Make sure that you take care of all the error conditions?
Can we journel logical file and access path? Can we use commitment control for non-join L.F?
can anyone explain aboutovrOVRDBF,OPNQRYF, OVRSCOPE and OPNSCOPE?
1.Load an runtime array of length 99 from the pf and you want to handle all the possible errors?
How can a screen field that has changed since the last output operation be detected?
I want to add 10 days in current date. how it is possible in CL program...?
How do you proceed in case your active AS400 session has got disconnected suddenly, how can you get back to your session ? Is it possible??
RPG400 
