Golgappa.net | Golgappa.org | BagIndia.net | BodyIndia.Com | CabIndia.net | CarsBikes.net | CarsBikes.org | CashIndia.net | ConsumerIndia.net | CookingIndia.net | DataIndia.net | DealIndia.net | EmailIndia.net | FirstTablet.com | FirstTourist.com | ForsaleIndia.net | IndiaBody.Com | IndiaCab.net | IndiaCash.net | IndiaModel.net | KidForum.net | OfficeIndia.net | PaysIndia.com | RestaurantIndia.net | RestaurantsIndia.net | SaleForum.net | SellForum.net | SoldIndia.com | StarIndia.net | TomatoCab.com | TomatoCabs.com | TownIndia.com
Interested to Buy Any Domain ? << Click Here >> for more details...


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.



how to find whether a date format is valid or not in RPG400 not in RPGILE.Can you please write the..

Answer / 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

More RPG400 Interview Questions

How to write record if no field or the field are different in physical file in rpgle ?

0 Answers  


1.The questions have given an array declaration and move operation then this statement is correct or not?

3 Answers   TCS,


Difference between creating a report using Printer file and WRKQRY(Query Report) ?

3 Answers  


1. If there are two programs using same file and 2 users are using the file at the same time and what can be done to allow them both to access? 2. How can remove lock from the file for accessing it by both users?

0 Answers  


what is ment by "MDT"

2 Answers   TCS,


What is the length of Signature?

3 Answers   UST,


if there is pf in two libraries and there is a logical file based on the PF, how to find the pf on which the pf is based.

2 Answers   TCS,


What is the purpose of Panel Groups?

4 Answers  


When will DUMP & DEBUG be ignored?

3 Answers   IBM,


how do u find whether a record is locked or not??/

5 Answers   CTS,


list down and describe the sub systems vailable

5 Answers   IBM,


What is the name of default out queue when user logs inn to syatem with valid profile?

3 Answers   IBM,


Categories