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.
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 |
can I touch the array during treatments?
How to read a record from file where there is multiple record occurrence is available?
HOW TO DEBUG A BATCH JOB WHEN IT IS IN MESSAGEWAIT(MSWG) STATUS.I KNOW THE STEPS FOR BATCH DEBUGGING,BUT IM CONFUSING WITH WHEN WE SUBMIT ANY JOB FOR BATCH DEBUG WE PUT IN HELD STATE.SO HERE ALSO DO SAME THING OR ANY OTHER WAY,PLEASE HELP ME....
How to add 2 new fields in a file? How many ways are there in as400?
how can an indexed file be used as arrival sequence in RPG?
Assume 2 users are using the same file and first user updates some record in the file. Will the 2nd user will be able to see the updated record or not?
How would display prime numbers using CL program?
How can we make use of SETLL operation in CL?
wat is the difference between array and multiple occurence data structure?
what is the equivalent keyword for CHAIN opcode ??
how we retrieve records without using key field (ex:name) from Physical File through RPG in as/400?
we hav job which is running as batch. it takes atleast 06hours to complete tht job. bu i wana do tht job with in 3hours.........? so plz post ur answers