Answer / mithun kilikdar

If we need to pass variables from one procedure to another
procedure or from one pgm to another pgm then we can
directlt pass the variables. Or one more way is to pass
poiters. Below is the example:

PROGRAM_A: OPTIONS(MAIN) REENTRANT:

DCL FORE_NAME CHAR(20) INIT('');
DCL SUR_NAME CHAR(20) INIT('');
DCL PTR1, PTR2 POINTER;
:
:
PTR1 = ADDRESS(FORE_NAME);
PTR2 = ADDRESS(SUR_NAME);
CALL PROGRAMB_( PTR1
, PTR2
);
:
:
END; /*PROGRAM_A*/



PROGRAM_B: OPTIONS(P_PTR1
,
P_PTR2
);

/*DECLARATION*/
DCL PTR1, PTR2 POINTER;

/*INTERNALIZATION*/
PTR1 = P_PTR1;
PTR2 = P_PTR2;
:
:
/* USE PTR1 AND PTR2 TO USE FORE_NAME AND SUR_NAME
END; /*PROGRAM_B*/

When you are working with the project.. once your coding is over what will u do? where u r maintaining your CR(change request) what is the format what are the documents u need to prepare while testing?

0 Answers  

---

how to handle duplicate records in rpg program?

0 Answers  

---

We have an output dataset in job with disp parameter as shr.

0 Answers  

---

how do u debug without using xpeditor ?

1 Answers   TCS,

---

Can you explain referential integrity?

0 Answers  

---

Hi can anybody tell me about Mainframe batch testing and how is it done. I am totally new to mainframe testing. Thanks in Advance.

1 Answers   IBM,

---

How do you handle exceptions PL/1?

1 Answers   IBM,

---

name the vsam file in which the deletion is not possible.

1 Answers  

---

What is basic difference between directory and pds in ibm mainframe?

0 Answers   IBM,

---

Mainframe project required Postby mache123 » Thu Jan 29, 2009 9:10 pm hello..... I want to know about some real time projects.If any one have any Mainframes project, please provide me documentation of it Or else give me the link where can I find that Mainframes projects with Documentation...... or suggest me any if......please

0 Answers   IBM,

---

If a gdg contains 20 versions .. how to copy those versions ps?

2 Answers   IBM,

---

how can u view a vsam file using file-aid

5 Answers   CSC, IBM,

---