Interested to Buy Any Domain ? << Click Here >> for more details...
how can a procedure will be added in to a srvpgm
- 4 Answers
- 12975 Views
- TCS, I also Faced
- E-Mail Answers
Answers were Sorted based on User's Feedback
Answer / kapil kumar
UPDSRVPGM add the procedure/module then use the binder
language command as below
STRPGMEXP PGMLVL(*CURRENT)
EXPORT SYMBOL(NewProc)
EXPORT SYMBOL(pgm1)
EXPORT SYMBOL(pgm2)
STRPGMEXP PGMLVL(*PRV)
EXPORT SYMBOL(pgm1)
EXPORT SYMBOL(pgm2)
ENDPGMEXP
| Is This Answer Correct ? | 10 Yes | 3 No |
Answer / syam
If a module contained in a service program changes, the old
module can be replaced with the new module using the
UPDSRVPGM command.
| Is This Answer Correct ? | 5 Yes | 0 No |
Answer / nitin
I think most appropriate answer is to add new procedure or module to binder language, make sure that the new one should be added at the end.
Suppose we are adding two procedures GetDuration and LastDayOfMonth, the updated binder should be like this
STRPGMEXP PGMLVL(*CURRENT)
EXPORT SYMBOL(DayName)
EXPORT SYMBOL(DayOfWeek)
EXPORT SYMBOL(GetDuration)
EXPORT SYMBOL(LastDayOfMonth)
ENDPGMEXP
STRPGMEXP PGMLVL(*PRV)
EXPORT SYMBOL(DayName)
EXPORT SYMBOL(DayOfWeek)
ENDPGMEXP
then Update service program with export (*SRCFILE). This will added new procedure in service program without disturbing old definition and no need to recompile programs those are using service program with old or previous signature.
| Is This Answer Correct ? | 0 Yes | 0 No |
Difference Between Skip Before & Space Before?
what are the basic features of seu?
How are the objects stored on AS/400?
What is acronym of RPG?
What Is Default Data Type (if You Define Decimals '0') In Physical File?
What is the use purpose of CRTCMD?
What are all the compiler directive statements?
what is the difference between seton lr and retrn?
is their a difference in cobol400 for the release 5.2 and 6.1 at the as400.
how to create physical file
What does SDA stands for ?
what is the main use of OPNQRYF ?? in that query why we can use OVERDBF and in that OVERDBY why should we use SHARE(*YES)
RPG400 
