Answer / anusha

Reason
The program gives the decimal data error if a Numeric value is passed from a numeric field to a non numeric field.
It usually occurs if the values are passed from one program to another.

How to avoid
Initialize a value to the field by INZ
The size and Decimal format of the passed and the passing parameter should be the same.

Answer / swapan dey

A PGM can goes to a msgwait condition if it has occur any error i.one of them is datadecimal error.dump the pgm it will throw an error message if it is not handle through pgm just go to that particuller line no rectifies the wrong value passsed intoo it then compile the pgm once again it will run .

Write a program to display prime numbers between 1 to 100 using RPGLE.

1 Answers  

---

What is the OPEN and CLOSE accesspath?

3 Answers   CTS,

---

I have a file .In that file i have 3 fields. Those fields are eno, ename, esal.Keyfield is eno. In that file i have data like this for eno 1,2,3,4,5. Now i need to display 2nd record. That means i need to set the pointer on 2nd record... Then, write the complete rpg program using setll.

1 Answers  

---

What will be the value of STRING after line 0106 is executed in the code below? 0101 E* Fromfiletofile..tabnameprnentlenpdatabnamlenpda 0102 E ARR 8 1 0103 ISTRING DS 0104 I 1 8 ARR 0105 C MOVE *BLANK STRING 0106 C MOVEA'ABC' ARR A) 'AAAAAAAA' B) 'BBBBBBBB' C) 'CCCCCCCC' D) 'ABC ' E) ' ABC'

2 Answers  

---

please help me answer to this question what is the difference between the binding and srvpgm in ilerpg?

4 Answers   HCL,

---

---

I have some doubts on subfile----------- -----I wrote a prog on subfile to display the records. Every thing is clear but i defined a field called "opt" as input field in subfile record format from that input field i wish to enter into new screen called "EDIT" which i created it as a separate RCD in display file. i gave opt as 2 for edit just like in WRKMBRPDM screen please telll me the code and how can i code for it in RPG.

3 Answers  

---

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  

---

Suppose in CL we reach at end of file and again we have to reach from 1 record

3 Answers   TCS,

---

i)What is the command to lock a file in a program ii)2. Can you get a level check error in a CL program

6 Answers  

---

When PGMA calls PGMB for the first time PGMB executes the *INZSR. PGMB uses the RETRN operation to return to PGMA. When PGMA call PGMB the second time is the *INZSR executed?

5 Answers   Mphasis,

---

what is decimal data error? when it will come and how to achieve(rectify) this error please give me solution as well as code

2 Answers   IBM,

---

I have a Physical File name 'File1', which is present in two libraries named 'LIB1' & 'LIB2'. These 2 libraries are listed in the library list. Would like to access data from this file from these two libraries using RPG program. How to do this, any idea?

4 Answers  

---