Service Program
: S1
Modules in S1
: M1
M1 having two procedures
: ADD, SUB
Current Binder Language
STRPGMEXP PGMLVL(*CURRENT)
EXPORT SYMBOL("ADD")
EXPORT SYMBOL("SUB")
ENDPGMEXP
Doubt:
I need to add one new Module to the Service Program M2
having one procedure ‘MULT’
How to add this new module to the service program S1 ? If I
need to recreate the service program again, Do I need to
mention the Module M1 again while recreating along with new
Module M2?
There is no Binding Directory.
Binder language structure will be like this
STRPGMEXP PGMLVL(*CURRENT)
EXPORT SYMBOL("ADD")
EXPORT SYMBOL("SUB")
EXPORT SYMBOL("MULT")
ENDPGMEXP
STRPGMEXP PGMLVL(*PREVIOUS)
EXPORT SYMBOL("ADD")
EXPORT SYMBOL("SUB")
ENDPGMEXP
- 1 Answers
- 2451 Views
- I also Faced
- E-Mail Answers
Answer / Pushpendra
To add a new module to the Service Program S1, you can modify the existing Binder Language by including the new procedure symbol in the current binding level and omitting it from the previous binding level. In your case, you should modify the Binder Language as follows:
```
STRPGMEXP PGMLVL(*CURRENT)
EXPORT SYMBOL("ADD")
EXPORT SYMBOL("SUB")
EXPORT SYMBOL("MULT")
ENDPGMEXP
STRPGMEXP PGMLVL(*PREVIOUS)
EXPORT SYMBOL("ADD")
EXPORT SYMBOL("SUB")
ENDPGMEXP
```
When you rebind the Service Program, make sure to update it with the modified Binder Language.
| Is This Answer Correct ? | 0 Yes | 0 No |
what is the use of data structures?
what opcode will be used to test the zone of a character field?
pf named karthik 3members jan feb mar cmd must executed create mbr ar ap
maximum number of subfiles that can defined in a rpg program for one display file is?
what is a spool file?
What is primary file? How many primary file can be declared in a RPG program?
what are the limitations of cl (compare to rpg) ?
i am using non join multiple format my 3 database file is like that pf97 R REC ENAME ETENNO ESTATUS K ENAME pf98 R REC1 ENAME ESAL K ENAME PF99 R REC3 ENAME CRDCARD EID K EID & MY NON JOIN LOGICAL FILE IS ALSO SAME EXCEPT RECORD NAMES BEFORE I TRIED WITH 2 FILES SO ITS SAYS ERROR I.E.(Key field attributes must be same as for previous formats. ) SO I CHANGED KEYFIELD ACCORDING TO PF SO ITS WORKING BUT AFTER ADDING 3 FILES ITS SAYING SAME ERROR . I DONT KNOW I NEW IN AS400 PLLZ HELP ME I HAVE ONE MORE QUE. CANT BE USE DIFFERENT KEYFIELD (NOT ACCORDING TO PF) IN NON JOIN LOGICAL FILE.
How can I automate sftp commands(ls & get) in CL program.. If I want to write two scripts one for each command... can u plz tell where the script should be written? & what will be the content of each scripts?
which type of object is used in db2/400?
what is a keyed physical file?
Is LDA can be access accross the Job?
adspace
RPG400 
