Follow Our FB Page << CircleMedia.in >> for Daily Laughter. We Post Funny, Viral, Comedy Videos, Memes, Vines...


Hi.can any body give me the code for this quesiton
please.Because i dont have to try to enter the code in to
the AS/400 server.Please can anybody give the answer for
this question with complete code?
A smple RPLE pgm which accepts the starting number and
ending number as parameter.It then has to count all the odd
numbers b/w the accepted range of numbers and display the
results/

Ex:if the input parameters are 11 and 30 the result should
be 10(11,13,15,17,19,21,23,25,27,29)

Please explain and give me the complete code?

Answers were Sorted based on User's Feedback



Hi.can any body give me the code for this quesiton please.Because i dont have to try to enter the ..

Answer / arijit

Please try the below code:

D @StartNum S 3S 0
D @EndNum S 3S 0
D #Counter S 3S 0
D #LoopCnt S 3S 0
D #Result S 50A
*
C *Entry Plist
C Parm @StartNum
C Parm @EndNum
*
C Eval #Result = '('
C Eval #LoopCnt = @StartNum
C Eval #Counter = 0
*
C DoW #LoopCnt < @EndNum
C If %REM(#loopCnt:2) =
1
C Eval #Result = %TRIM(#Result)
+
C %TRIM(%CHAR
(#LoopCnt)) + ','
C Eval #Counter = #Counter +
1
C
ENDIF

*

C Eval #LoopCnt = #LoopCnt +
1
C
EndDo

*

C Eval %SUBST(#Result:%Len(%Trim
(#Result)):1) = ' '
C Eval #Result = %CHAR(#Counter)+%
TRIM(#Result)+')'

*

C #Result
Dsply
C EVAL *InLr =
*On

Is This Answer Correct ?    2 Yes 0 No

Hi.can any body give me the code for this quesiton please.Because i dont have to try to enter the ..

Answer / arun kumar

D Start S 3S 0
D End S 3S 0
D Count S 3 0
D Temp S 3 0
D Rslt S 3 0
D Rslt1 S 3 0
C *Entry PLIST
C PARM Start
C PARM End
/Free
Eval Temp = Start;
Eval Count = Start;
DoW Count <= End;
If %Rem(Temp:2) <> 0;
Rslt1 = Rslt1 + 1; //Number of ODD Numbers
Rslt = Rslt + Temp; //Sum of ODD Numbers
EndIf;
Temp = Temp + 1;
Count += 1;

EndDo;
Dsply Rslt1;
Dsply Rslt;
*InLR = *ON;
/End-Free
C** *InzSR BegSR
C** EndSR

Is This Answer Correct ?    0 Yes 1 No

Post New Answer

More IBM AS400 AllOther Interview Questions

what would be the effect on the field where reverse image, underline and highlight display attributes are active ?

1 Answers   IBM,


what is the correct about QTEMP library(below mention)? a.it is Unique to a job b.it can be shared between different job c.it can only be deleted by QSECOFR d.Non Please give me the answer for this?

8 Answers   Wipro,


What is field reference file?

1 Answers  


what is primarykey?what is difference between primary key and forign key?

1 Answers  


When does the DFT keyword in PF be used?

1 Answers  






How to see active jobs of the system.

1 Answers  


What is the as400 called now?

0 Answers  


what is the syntax for plist?

0 Answers   IBM,


if dspatr(pc) and csrloc were specified for a format, which keyword would have priority?

1 Answers   IBM,


what are necessary keywords to code message subfile?

1 Answers   IBM,


What is a query can be displayed without saving it?

0 Answers   IBM,


Hi,while writing a program, what is the mandatory specification using rpg/400 (in7 specification)?And please tell me what is the difference between SCAN AND CHECK opcodes?can any body tell me in real time senario?with example?

3 Answers  






Categories