How do you pass pointer PL/1 main procedure to sub
procedure?
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*/
Is This Answer Correct ? | 3 Yes | 2 No |
Post New Answer View All Answers
Can the values of alphanumeric be moved to variable numeric?
Can I redefine an x(100) field with a field of x(200)?
Tandem COBOL Interview questions (on TACL,SCOBOL,ENSCRIBE,PATHWAY0
PLEASE SEND ME THE DOCUMENTS IF ANY ONE HAVE REGARDING THE IMPACT ANALYSYS,REVIEWS
What is the difference between hidam and hdam databases?
What is the importance of common attribute?
suppose I have two tables a and b. Both tables are connected with ssn number as foreign key. I want to retrieve a column data from b table. How will you write a query?
What is the difference between hdam and hidam databases?
Can you define path?
Explain index cardinality?
Is it possible to move the alphanumeric variables to a numeric variable?
What is use of IBM framework?
What is the binary search?
What is the difference between version control and debugging tools?
Explain the meaning of spufi?