How do you pass data from a Natural Program to an External
Subroutine? Can it share the LDA of Program as in Internal
Subroutine.
- 4 Answers
- 12946 Views
- I also Faced
- E-Mail Answers
Answers were Sorted based on User's Feedback
Answer / vinodh kumar
Parameters can be passed with the PERFORM statement from
the invoking object to the
external subroutine. These parameters must be defined
either in the DEFINE DATA PARAMETER
statement of the subroutine, or in a parameter data area
used by the subroutine.
An external subroutine can access the global data area used
by the invoking object.
In addition, an external subroutine can have its own local
data area, in which the fields that are to be used
only within the subroutine are defined.
However, an external subroutine cannot have its own global
data area.
| Is This Answer Correct ? | 9 Yes | 0 No |
Answer / rajesh
Can you share an example for passing the Values thru
Parameter for calling a External Subroutine.
| Is This Answer Correct ? | 2 Yes | 0 No |
Answer / nilesh
Parameters can be passed with the PERFORM statement from
the invoking object to the external subroutine.
Example :
Perform ABCD 'para1' 'para2' 'para3'
OR
Perform ABCD 'EFGH'
Where ABCD is subroutine and PARA1 to PARA3 are parameters.
EFGH id the PDA which is define in subroutine.All the
parameters are in EFGH PDA.
| Is This Answer Correct ? | 2 Yes | 0 No |
Answer / hazrasu
CALLNAT 'ABCDEF' BEIC-PDA
where ABCDEF is the external subroutine and BEIC-PDA is the
group variable for the PDA that is defined in the main
program and by which the main program will get the data
from the external subroutine.
| Is This Answer Correct ? | 3 Yes | 11 No |
how many work file we can code in jcl?
What exactly is a hyperdescriptor? How does it work?
In a Natural program i used the below code for report FORMAT LS=132 PS=60 And down the line I want to change either LS/PS like FORMAT LS=120 PS=50, is it possible? How it will work?
How are you going to remove duplicates from the file that is being read?
What is the quality process in development?
Would like to know if have an expecific command that returns a code or something about the execution of a CALLNAT. For example ... CALLNAT 'SUBPRG' [parameter] [parameter] ... [here comes a code or command that checks if the CALLNAT was successful]
A field declared as P8 needs to be redefined as Alphanumeric. What would be its new size?
How can we see the copy book length using file-aid?
differnce between read work file 1 and read work file once? why we are using work file once?
how to ftp the natural program to desktop? (from mainframe to pc), is it possible?
syntax for all WRITE COMMAND in natural language
Explain difference between read work file 1 and read work file once? Why we are using work file once?
COBOL 
