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 / 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 |
Post New Answer View All Answers
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?
write an RPG program to calculate the marks of 5 students (A,B, C, D, E)in 3 different subjects (eng, math, sci) an display on the screen
what is program status data structure?
How to call one program from another program in RPG? please help me with the code
which program rpg or cl is efficent to update a transaction onto a database file and why ?
When we have a file with Duplicate records and I want to read the unique record from the file. For example a file containing Emp Name as 'Ram' and there are 3 entries of it. So how to read a unique record from File?
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?
How to write record if no field or the field are different in physical file in rpgle ?
what is the necessary keyword needed to scroll subfile records?
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 can you display specific subfile page on the screen in unequal subfile?
How to declare the pull button in AS/400..
What are the types of identifiers?
When it is desirable to describe files Internally?
What is a record lock error?