how to find whether a date format is valid or not in RPG400
not in RPGILE.Can you please write the coding for this sir,i'm
new to AS400.Please help.
Answer Posted / jai shri ram
> D DateIn S 8 0 INZ(*Zeros)
> D DateMDY S D DATFMT(*USA)
> D DateYMD S D DATFMT(*ISO)
> D Days S 5 0 INZ(*Zeros)
> D DateAlpha S 8
> ...
> C Move DateIn DateAlpha
> C *MDY0 Test (D) DateAlpha
99
> C If *In99
> C Except ErrorDtl
> C Iter
> C EndIf
> C Move DateIn DateMDY
> C AddDur Days:*Days DateMDY
> C Move DateMDY DateIn
| Is This Answer Correct ? | 2 Yes | 0 No |
Post New Answer View All Answers
can anybody help me to solve this problem. the program that i m checking display error message saying "Record format for file AJDSPFFD does not match model file and decimal error. how to solve this problem. The AJDSPFFD is snapshot the AJTLOG that is the audit trail list.
explain sflclr, sflend, sfldlt, and sflcsrrrn?
Hi Viewers can any body explain me how to update and ahange the already existed data in physical file using subfile ? please explain me with the code if possible?
what is the procedure and explain about real time scenario.
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 can you display specific subfile page on the screen in unequal subfile?
how do I play {insert rpg system here}?
what is program status data structure?
Explain mdt?
what are the key words you must use when using a subfile?
What is difference between bind by copy and bind by reference?
how do I preserve and clean the array?
Suppose we have one database file and it is used by 5 programs and in 3 program we have to add some records in datbase file s what is the impact on other 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
When it is desirable to describe files Internally?