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
- 6817 Views
- CTS, IBM, iGate, I also Faced
- E-Mail Answers
Answer Posted / 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 |
Post New Answer View All Answers
what is *place and *auto keyword in prtf ?plz explain
what happens when sflsiz = sflpag? What are the advantages and disadvantages?
what are the key words you must use when using a subfile?
1. What is bound-by-call and bound-by-reference? 2. Where and why is *Nomain used? 3. What are the difficulties faced by programmers when using service programs? 4. Explain the different ways of parsing and compiling XML in iSeries.
How do u design a physical file, when you have 2 Unique fields like for eg in A student file student ID and student examination no both are unique
How Chain operation copies the record's data to the input buffer for the program?
How can we override a file during runtime in rpg?
If my rpg program has a date field, what extra care I have to take while compiling that rpg program? If the file is keyed and I have declared the file as well as key list properly in my program. Still am getting an error message like "chain/reade operation is not allowed" what may be the case?
Program to read marks of 10 students for 4 subjects and compute and display total marks and status of each student in rpg
What is the diff bw PF/LF Name and their Record format name? what is restriction in record format then file name?
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?
Q:HI friends accually ihave one problem plesase let me know the alternate code of this code. Related field description of code: Add a field, CALvsPRD, "Calendar Day Starts Before/After Production Day" to the parameter set WRKORDER which accepts values 'A' or 'B' o B = Calendar Day Starts Before Production Day o A = Calendar Day Starts After Production Day o Any other value indicates the production and calendar dates are always the same. code: Automatic Execution Of *INZSR Subroutine /Z01 * retrieves WRKORDER field values. /Z01 * Calculate default Production Date and return it to caller. /Z01 * Production date defaults to system date /Z01 C Eval P@Pdate = %DATE() /Z01 * unless Calendar date starts Before PDN(production) date and /Z01 * system time is before PDN Start Time then /Z01 * PDN date is yesterday. /Z01 C If W@CALvsPRD = 'B' and /Z01 C %TIME() < %TIME (W@Strtime) /Z01 C Eval P@Pdate -= %Day(1) /Z01 * unless Calendar date starts After PDN date and /Z01 * system time is *GE PDN(production) Start Time then /Z01 * PDN date is tomorrow. /Z01 C ElseIf W@CALvsPRD = 'A' and W@Strtime > *Zero and /Z01 C %TIME() >= %TIME (W@STrtime) /Z01 C Eval P@Pdate += %Day(1) /Z01 C EndIf /Z01 C Eval *InLr = *On
what is an online rpg?
what is kids-rpg?
How would display prime numbers using CL program?
