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

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 it possible to create a physical file without dds?

1 Answers   IBM,

---

what is the difference between udate and the system date?

1 Answers   IBM,

---

What is the purpose of OVRDTA keyword ?

1 Answers  

---

What is class of service ?

1 Answers  

---

what is the use of dspatr(mdt) keyword?

1 Answers   IBM,

---

Can level check error occur if we do chgpf?

0 Answers  

---

Write the subfile logic program for the given concept. Load the data to the subfile depends upon the designation where designation is not a key field?

2 Answers  

---

can a join logical file be updated?

0 Answers   IBM,

---

Service Program : S1 Modules in S1 : M1 M1 having two procedures : ADD, SUB Current Binder Language STRPGMEXP PGMLVL(*CURRENT) EXPORT SYMBOL("ADD") EXPORT SYMBOL("SUB") ENDPGMEXP Doubt: I need to add one new Module to the Service Program M2 having one procedure ‘MULT’ How to add this new module to the service program S1 ? If I need to recreate the service program again, Do I need to mention the Module M1 again while recreating along with new Module M2? There is no Binding Directory. Binder language structure will be like this STRPGMEXP PGMLVL(*CURRENT) EXPORT SYMBOL("ADD") EXPORT SYMBOL("SUB") EXPORT SYMBOL("MULT") ENDPGMEXP STRPGMEXP PGMLVL(*PREVIOUS) EXPORT SYMBOL("ADD") EXPORT SYMBOL("SUB") ENDPGMEXP

0 Answers  

---

Hi friends.. i want to be a IBM MainFrame Professional.. can any body tell me what is requirement for that... i m just BA, MA, and have simple diploma in Computers. what is pre-requisite.

3 Answers  

---

Can we use OVRDBF command without using of OPNQRYF ? Or can we use OPNQRYF command without using of OVRDBF command ?

4 Answers   HCL, iGate,

---

what is the necessary keyword for non-join logical file?

1 Answers   IBM,

---