Mr.Yallamanda Reddy P thanks for your answer sir,can we use
test(D) opcode in RPG/400,if yes please help me by eloborating
on that answer by writing a sample code for that sir

Answers were Sorted based on User's Feedback



Mr.Yallamanda Reddy P thanks for your answer sir,can we use test(D) opcode in RPG/400,if yes pleas..

Answer / gagan

test(D) opcode is used to check for the validity of a date/time/timestamp.
If the date is valid then error code returned is o else error code is 1

Is This Answer Correct ?    0 Yes 0 No

Mr.Yallamanda Reddy P thanks for your answer sir,can we use test(D) opcode in RPG/400,if yes pleas..

Answer / uday bagdi

Testdate field has date data type and 20 is LO level indicator we check this filed is *YMD format or not.Below is the code.

*ymd test (D) Testdate 20

Is This Answer Correct ?    0 Yes 0 No

Post New Answer

More RPG400 Interview Questions

Hi, Can anybody give me real sinario for SFLRCDNBR?with example?

2 Answers  


are there any useful c runtime apis that I can call from rpg iv?

0 Answers   IBM,


suppose a job is running for 15 minutes after that it goes to message wait? what are the impact analysis

1 Answers  


two attributes which govern the excecution of a job>>>>??

2 Answers   CTS,


Delete FileName at first statement in RPG.

1 Answers  






what is the procedure and explain about real time scenario.

0 Answers   Adhoc Technologies, Hanuman Automation, HSBC, IBM,


How can we know running job is batch or interactive?

0 Answers  


Can we possible to key with the date field?

1 Answers   IBM,


1.Load an runtime array of length 99 from the pf and you want to handle all the possible errors?

0 Answers   HCL,


Hi friends, Can you give the solution for the below mention simple code.and explain.what is output D CHR1 S 4A INZ('PEN') D CHR2 S 10A INZ('MYGET') D CHR3 S 8A INZ('GOOD') D CHR4 S 22A INZ C MOVEL CHR1 CHR4 C MOVE CHR2 CHR4 C EVAL CHR4=CHR3 C MOVE CHR1 CHR4

4 Answers  


1) How to retrieve RRN through RPG ? 2) How to pass parameter by value ? 3) How to trap the error through the RPG/400

10 Answers   IBM, Tech Mahindra,


this is rpg3 code W0RTN IFEQ @CN,002 what is the means @CN,002

1 Answers  


Categories