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.
Answers were Sorted based on User's Feedback
Answer / katiyar
Select the format of Date (For E.g. *MDY(MMDDYY),
*DMY(DDMMYY) or *USA(MMDDYYYY).....etc and have value in
your variable "YourDate". Verify the date format by coding
as mentioned below.
--------------------RPG---------------------------------
*MDY Test (D) YourDate 99
If *In99 = *On
'Invalid' Dsply
Else
'Valid' Dsply
EndIf
**99 is indicator.
----------------------RPGLE-----------------------------
*MDY Test(DE) YourDate
If %Error
'Invalid' Dsply
Else
'Valid' Dsply
EndIf
---------------------------------------------------------
| Is This Answer Correct ? | 6 Yes | 0 No |
can you debug ile rpg program using isdb?
How to change the name of physical members Dynamically?
How do you find out whether a record is present in the physical file without reading the file? for Example Employee No: 100 in an Employee master.How do we find out whther 100 is present in Employee master without reading the file?
11 Answers Bank Of America, CSC, IBM,
How do you find whether a job is a batch job or interactive?
WHAT IS MENT BY RECORD LEVEL IDENTIFIER ? WHAT IS THE PURPOSE OF THIS?
How to handle duplicate error handling in RPG?
how to display all the members records in a physical file without using ovrdbf?
Is it possible to call a subfile using CL. IF yes.. kindly help me out with explanation...?
Can we trigger an rpg program which has user interaction with display file when updating a file using the command ADDPFTRG?
what is the difference between the procedure and module in ILERPG?
1..Write an sql query to find the employee name who is having 2 phone numebr? 2.Write an sql query to the the second highest salary of the employee?
How to code Page up and Page down in RPG for Single page subfile without using ROLLUP/ROLLDOWN in DSPF ?