can anybody help me that what is the procedure of debugging
the service program?
Answers were Sorted based on User's Feedback
Answer / bharat
Hi Swadesh,
I hope u know, service program will always be binded and it
can't be called directly.
Now, to create a wrapper:
create one RPG Program in which service progrem is binded
as follows:
wrapper(test program) will have:
Define all the required fields in parameter list.
CALLB 'ABC' Parameter list;
and then create a module of it.
then create *PGM object of the same wrapper by using CRTPGM
+F4 and bind the service program 'ABC' with the module.
Now, to debug,
Strdbg SRVPGM(ABC)
add brak point
now call the Wrapper program.
------or -----------------------
Strdbg Wrapper program name
than F14 to work with module list
and add your service program(*SRVPGM) and add the break.
Call wrapper.
| Is This Answer Correct ? | 11 Yes | 0 No |
Answer / bharat
Service program doesn't have any program entry procedure,
so can't be called directlty but it is binded with
reference to other program. So, we can debug it as follows:
Create a wrapper program calling the service program by
binding the service program that you want to debug and then
put that wrapper *PGM in debug and call it. This way we can
debug the service program.
| Is This Answer Correct ? | 1 Yes | 0 No |
Answer / swadesh.yadav
Thanks Bharat. But i little bit confuse.suppose i have a
service program name ABC so how can i create a wrapper
program? can you explain it with example?
| Is This Answer Correct ? | 0 Yes | 0 No |
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?
can any body correct the following code? Following a procedure which returns the maximum of two numbers.Correct the following code. P GETMAX B D GETMAX PI D NUM1 35 0 D NUM2 45 0 C IF NUM1 > NUM2 C RETURN NUM1 C ELSE C RETURN NUM2 C ENDIF P GETMAX E
Explain mdt?
how do u track msg in cl pgm???
what is *place and *auto keyword in prtf ?plz explain
Can an indexed file be accessed in arrival sequence in RPG?
what is meant by record lock.how records are locked.what is the purpose of record lock.if records are locked what happens.how to find out which record is locked.
Hi, can any one tell me :IN CASE OF SINGLE PAGE FILE HOW WILL I LOAD THE PREVIOUS PAGE WITHOUT THE USE OF SFLCLR INDICATOR ?
we are sending data of physical file to screen design and it is showing no record why?
Delete FileName at first statement in RPG.
how to convert date format from one format to another i think in CL/400 its CVTDAT,Please tell in RPG/400 sir not in RPGILE
1) How to define keyed file in CL pgm. 2) How can i read particular records in CL pgm from database file.