Hi i have one question In my srvpgm one module ADDM is there
now i want to add new module i.e SUBM , please answer me IN
STEPS how to write bndlanguage and how it was attach to SRVPGM
- 2 Answers
- 7618 Views
- IBM, Satyam, I also Faced
- E-Mail Answers
Answer Posted / mohan
HI,
NOT POSSIBLE TO ADD NEW MODULE TO THE EXISTING SERVICE
PROGRAM. ONLY UPDATE POSSIBLE FOR THE EXITING SERVICE PGM.
USING UPDSRVPGM COMMAND WE CAN UPDATE ANY MODULE IN SERVICE PGM.
IF U WANT TO ADD NEW MODULE,THEN U RECREATE THE SERVICE PGM.
BINDER LANGUAGE:
1)IT IS USED FOR EXPORT ONLY PROCEDURES IN MODULE.
2)SUPPOSE IN UR MODULE CONTAIN 5 PROCEDURES,IF U WANT TO USE
ONLY 2 PROCEDURES THEN WE USE BINDER LANGUAGE.
3)GENERATE NEW SIGNATURES IT IS USED.
STRPGMEXP PGMLVL(*CURRENT)
EXPORT SYMBOL('PROCEDURE1)
EXPORT SYMBOL('PROCEDURE2')
ENDPGMEXP
PRESS F6 ON COMMAND LINE,THEN GIVE SOURCE MEMBER NAME,SOURCE
TYPE GIVE ANY NAME LIKE "BND".U CAN WRITE ABOVE CODE INTO
THIS SOURCE FILE AND SAVE IT.NO NEED TO COMPILE.
WHEN U CREATE SERVICE PGM,
CRTSRVPGM + F4 ---> NAME
LIB
MODUE1
MODULE2
AFTER FILL THE MODULES, U CAN SPECIFY
EXPORT *SRCFILE
SRCFILE NAME OF THE SOURCE FILE
MBR BND(SOURCE MEMBER NAME)
BND IS THE NAME OF SOURCE MEMBER NAME, TO SAVED THE ABOVE
CODE IN THAT MEMBER.
THESE ARE STEPS FOR CREATING SIGNATURE USING BINDER LANGUAGE
FOR SERVICE PROGRAM.
IF u want to generate new signature,that creating new pgm
object,this need 3 procedures,
so just edit the above BND file like below
STRPGMEXP PGMLVL(*CURRENT)
EXPORT SYMBOL('PROCEDURE1)
EXPORT SYMBOL('PROCEDURE2')
EXPORT SYMBOL('PROCEDURE3')
ENDPGMEXP
ENDPGMEXPSTRPGMEXP PGMLVL(*PRV)
EXPORT SYMBOL('PROCEDURE1)
EXPORT SYMBOL('PROCEDURE2')
ENDPGMEXP
after edit above file,again u recompile the service program
only.and this *SRVPGM object add to newly created pgm object.
No need to compile all your programs which are using this
service program
THANKS
Mohan
| Is This Answer Correct ? | 5 Yes | 1 No |
Post New Answer View All Answers
if we tried to move year part of *iso date into a field of length 3, what will happen ?
How Many Specs Are There In Rpg & Which Are They?
can you display a empty subfile?
what are the different types of variables available in cl?
how does union file maintains record formats?
what is scan and xlate?
how can you execute a command from within an rpg program without calling a clp program?
what does defn do?
what is a non-join logical file?
can you explain the difference between spacea,spaceb,skipa and skipb. I'm new to learning about as400 and printer files. can any one give me an example using source code showing the difference that occurs between using these 4 keywords. A-Physical file PF004 source UNIQUE R RR STUNAM 10 ROLLNU 5 0 MARKS 3 0 SEX 6 K ROLLNU 4 records present in PF004 are STUNAM ROLLNU MARKS SEX KAVYA 12,344 55 FEMALE MADHAVAN 14,579 60 MALE RAMYA 14,785 70 FEMALE KRISHNAN 14,988 72 MALE B-Printer File PRINT1 source A R HEADER A 10 3'STUNAM' A 10 20'ROLLNU' A 10 30'MARKS' A 10 40'SEX' A R DETAIL A SPACEB(1) A STUNAM 10 3 A ROLLNU 5 0 20 A MARKS 3 0 30 A SEX 6 40 A R FOOTER A SPACEB(1) A 20'END OF REPORT' C-RPG/400 Program PRTTPG source FPF004 I F E DISK FPRINT1 O E PRINTER C WRITE HEADER C READ PF004 60 C *IN60 DOWEQ *OFF C WRITE DETAIL C READ PF004 60 C ENDDO C WRITE FOOTER C SETON LR D-spooled file result set Display Spooled File File . . . . . : PRINT1 Page/Line 1/10 Control . . . . . Columns 1 - 130 Find . . . . . . *...+....1....+....2....+....3....+....4....+....5....+.... 6....+....7....+....8....+....9....+....0....+....1....+.... 2....+....3 STUNAM ROLLNU MARKS SEX KAVYA 12344 055 FEMALE MADHAVAN 14579 060 MALE RAMYA 14785 070 FEMALE KRISHNAN 14988 072 MALE END OF REPORT Bottom F3=Exit F12=Cancel F19=Left F20=Right F24=More keys I have changed from SPACEB to SPACEA now in my printer file source E-Changed PRINT1 Source A R HEADER A 10 3'STUNAM' A 10 20'ROLLNU' A 10 30'MARKS' A 10 40'SEX' A R DETAIL A SPACEA(1) A STUNAM 10 3 A ROLLNU 5 0 20 A MARKS 3 0 30 A SEX 6 40 A R FOOTER A SPACEA(1) A 20'END OF REPORT' F-Spooled file Result Set after keyword change Display Spooled File File . . . . . : PRINT1 Page/Line 1/10 Control . . . . . Columns 1 - 130 Find . . . . . . *...+....1....+....2....+....3....+....4....+....5....+.... 6....+....7....+....8....+....9....+....0....+....1....+.... 2....+....3 KAVYAM 12344U 055KS FEMALE MADHAVAN 14579 060 MALE RAMYA 14785 070 FEMALE KRISHNAN 14988 072 MALE END OF REPORT Bottom F3=Exit F12=Cancel F19=Left F20=Right F24=More keys Overprinting not displayed.
what is the difference between normal upddta to pf and updating using dfu program?
In RPG How to read a records from a file without using read opcodes?
what does check opcode is used?
what is the purpose of dynslt keyword?
if dspatr(pc) and csrloc were specified for a format, which keyword would have priority?
