Answer / shantanu kumar dutta

Dear,

You can handle like that .check an object existance by
CHKOBJ like, If Object dose not exist than it through
MonMsg CPF9801,CPF9810 by this we can handle the
situations.

Eq->

CHKOBJ OBJ(&FLTLIBNM/PgmB) OBJTYPE(*PGM)
MONMSG MSGID(CPF9801 CPF9810) EXEC(GOTO CMDLBL(Call
PgmC))

Answer / sreedhar

We can use Monitor and ON-Error opcodes to do the same.

Answer / vinod babu

I m not sure about this answer. But my idea is dat we can
use ERROR HANDLING in main program. Suppose if the main pgm
does not exist then error routine will be handled and the
control passed to next statement after that routine.

Answer / raja

By Using *pssr we can handle the error and take dump of
that.

For Example:

call 'Nxtpgm'(if object is not Found it take
Nxt tag dump and call the nxtpgm1)
Call 'Nxtpgm1'


*pssr Begsr
Dump(A)
Goto Nxt
Endsr

seton lr

Answer / cagatay azkin

In ILE environment, when you call programB, define call with
(E) and set the indicators (position 73 and 74 I guess)

Later on, use some %built-in functions such as $error and
%status to check.

If there is an error, you can take an action in*PSSR error
subroutine or by checking the indicator in calc spec to
whatever you want.(in this case, you need to define it in INFSR)

For more detail, you can refer ibm's ile rpg reference book.

Answer / bhupendra tomar

just use 2 cmds
CHKOBJ and handle error through
MONMSG msg(CPF9801)

Answer / ali

in dump routine call actual pgm

Answer / raja

For Example:

call 'Nxtpgm'(if object is not Found it take
Nxt tag dump and call the nxtpgm1)
Call 'Nxtpgm1'

seton lr

*pssr Begsr
Dump(A)
Goto Nxt
Endsr

Answer / cage

why don't you check the HI indicator?

Answer / ali

only one option to use checkobj after call command

Let?s consider a variable X of length 20. Move value ?ABC? to it.How to determine how many characters does X have?

1 Answers  

What is journalling and commitment control?

3 Answers   IBM,

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  

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  

How to search particular records from the database file in rpg?

2 Answers  

Whether a module can consists of many procedures or it can consist of subprocedures having a main procedure?If it is possible that it can contain many individual procedures than can we have different name for complete module and how do we call this module in main modul?

3 Answers   Steria,

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

4 Answers   HCL,

what is file identifier wher we can use

1 Answers   IBM,

Thanks gagan for your answer,i'm new to as400,i don't know embedded sql in rpg.can you send me the coding for the below mentioned question in embedded sql rpg. how to retrieve particular field records from a physical file,say i have a physical file called 'employee' in it i have to retrieve the records of a field 'admin' present in pf 'employee' using rpg,but i should not use logical file or openquery file.

2 Answers   iGate,

Hi, Can any body tell me ur experience on this questions? Questions: 1.what is the use of SFLRCDNBR other than subfile page display? 2.Which of the following operation cannot be used in conjuction with a file coded as device type disk?

1 Answers  

CAN WE READ RECORDS WITHOUT USING SETLL,READ,CHAIN IN RPG?

6 Answers   Satyam,

What is ment by record level identifier?

0 Answers