Interested to Buy Any Domain ? << Click Here >> for more details...
How do you pass pointer PL/1 main procedure to sub
procedure?
- 1 Answers
- 7151 Views
- IBM, I also Faced
- E-Mail Answers
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*/
| Is This Answer Correct ? | 3 Yes | 2 No |
How an empty file to be checked?
how will you find a particular line in debugging if its a infinite loop
WHAT ARE THE RETRIVAL ORDER OF FILES IN RPG&sql?
how would find total records in files using sequential?
what is the main purpose of using file-aid ?
2 Answers NIIT, Tech Mahindra,
What is meant by an isolation level?
How to compare two files by using sort?
Why are you looking for a change?
What is the importance of common attribute?
what is the role of the is numeric clause?
Explain path?
Explain index cardinality?
COBOL 
