Answer Posted / 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*/

What do you mean by an alias?

1091

---

What do you mean by monitor block?

1858

---

Categorize the mainframe manual testing?

990

---

How many bytes does a s9(7) comp-3 field occupy ?

954

---

Can you explain create an empty file by using sort?

958

---

Is it rquired any server for Ibm framework? Give me list of Ibm framework & recent version IBm framework?

2248

---

What is mainframe application testing?

1064

---

If a ceo wants to see all employees of the company from an online screen. How will be the design of the map from the developer point of view?

1039

---

How are type 1 and type 2 indexes different?

1021

---

Tandem COBOL Interview questions (on TACL,SCOBOL,ENSCRIBE,PATHWAY0

23643

---

What is the function of currentdata option in bind?

1038

---

Explain path?

1010

---

What is the distinction amongst include and copy?

981

---

what is difference between file-aid tool and file-aid utility?

1505

---

What is RRange and ARange?

2115

---