Answer / sagar wagh

H DFTACTGRP(*NO) ACTGRP(*NEW)

Dcl-F EMPPF DISK; // Declare the physical file

Dcl-S EmpArray CHAR(10) DIM(99); // Declare the runtime array
Dcl-S Index INT(10); // Declare an index for the array
Dcl-S ErrorMsg CHAR(100); // Declare a variable for error messages

// Main logic
C/EXEC SQL
C+ DECLARE C1 CURSOR FOR
C+ SELECT EMPNO FROM EMPPF
C/END-EXEC

C/EXEC SQL
C+ OPEN C1
C/END-EXEC

Index = 1;

DoU Index > 99;
C/EXEC SQL
C+ FETCH C1 INTO :EmpArray(Index)
C/END-EXEC

If SQLCOD = 100; // No more records
Leave;
ElseIf SQLCOD <> 0; // Handle SQL errors
ErrorMsg = 'SQL Error: ' + %Char(SQLCOD);
Dsply ErrorMsg;
Leave;
EndIf;

Index += 1;
EndDo;

C/EXEC SQL
C+ CLOSE C1
C/END-EXEC

what do you mean by SESSION/DEVOCE ERROR?

1 Answers   IBM,

---

wat is the difference between array and multiple occurence data structure?

4 Answers   Four soft,

---

How to print output from openquery in as400 ?

1 Answers   Four soft,

---

What are the types of identifiers?

0 Answers  

---

When will DUMP & DEBUG be ignored?

3 Answers   IBM,

---

How would display prime numbers using CL program?

0 Answers   Hexaware,

---

1.How you will find the program is batch or online in cl pgm? 2.How you will end the batch pgm when the job runs? write an logic? 3.In wich command the option *drop is used?

2 Answers   TCS,

---

How to declare the dynamic(run time) array in rpgle? can you please give example

2 Answers   Polaris,

---

while i am using the dspmsg command on comman line in Mocha am getting error like Not authorized to message queue message my messagequeue Name? can anybody help me how to change my message queue Am anable to see my messages in message queue

1 Answers  

---

How to declare the pull button in AS/400..

0 Answers  

---

steps for debugging two rpg programs????

4 Answers  

---

in which journalling which attributes are necessary

2 Answers   CTS,

---