Interested to Buy Any Domain ? << Click Here >> for more details...
if i have three programs progA,progB and progC .now i call
progB from progA. but the progB does not exist . now i want
to call progC instead of starting dump. how can we achieve
this.
- 10 Answers
- 20298 Views
- Four soft, I also Faced
- E-Mail Answers
Answers were Sorted based on User's Feedback
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))
| Is This Answer Correct ? | 20 Yes | 0 No |
Answer / sreedhar
We can use Monitor and ON-Error opcodes to do the same.
| Is This Answer Correct ? | 4 Yes | 0 No |
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.
| Is This Answer Correct ? | 3 Yes | 0 No |
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
| Is This Answer Correct ? | 3 Yes | 0 No |
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.
| Is This Answer Correct ? | 3 Yes | 0 No |
Answer / bhupendra tomar
just use 2 cmds
CHKOBJ and handle error through
MONMSG msg(CPF9801)
| Is This Answer Correct ? | 1 Yes | 0 No |
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
| Is This Answer Correct ? | 0 Yes | 0 No |
How do I read records from Subfile? what is the purpose of READC explain with example?
Difference between creating a report using Printer file and WRKQRY(Query Report) ?
what is the difference between SETON RT & RETURN?
Suppose in CL we reach at end of file and again we have to reach from 1 record
How to declare the pull button in AS/400..
1.WHAT IS WRONG WITH THE CODE BELOW? C CUSTNO CHAIN CUSTMAST IF %ERROR can any body find the wrong please? 2.What builtin function will you use to achieve the following functionality? C QTY IFLT *ZERO C QTY MULT-1 QTY ENDIF
how to run only 10 modules of existing N modules in service program in RPGILE ?
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?
What is the length of Signature?
What are the types of identifiers?
In a particular program one file is used where override command is applied to a file, now this program calls another program where we want to use the same file but without override.How it can be done?
Anybody know the difference of primary file and full procedural file
RPG400 
