how many subpgms we can use in a main pgm ?
how do u link sub pgm to main pgm ?
how can i use the parameters declared in main pgm to sub pgm ?
Answers were Sorted based on User's Feedback
Answer / kiran
There is no limit.... we can write n number of sub programs
in main pgm.
by using linkage section in data division in sub program
by using IS GLOBAL keyword
ex 01 name pic x(10) IS Global
| Is This Answer Correct ? | 3 Yes | 0 No |
Answer / sen
Same as kiran said
But to get the parameters used in tha main program can be used by {procedure division using var-1,var-2} in the sub program
Eg if ur var name is ws-1 and ws-2
Then we can get values by
Procedure division using ws-1,ws-2.
| Is This Answer Correct ? | 0 Yes | 0 No |
how to check whether the open command of a sequential file is successful? or not?
Program A calls program B. Will the working storage variables declared in program B be initialized every time it is called by program A or will the values be retained until the end of program A?
how will u find out 3rd week's 2nd day using occurs ?
can we read in input the file with a variable length ? please , how ..could you help me ?
What is 88 level used for ?
i have mainprogram and subgram...if i compile mainprogram without stop run..what will u get in compilation time?
How do u sort the table for Search ALL? Is it only using ASCENDING KEY IS statement in occurs clause? If the data is input in non ascending order, will the ASC KEY IS automatically sort the data? or will it throw compile time error?
What is the difference between a binary search and a sequential search?
01 var1 pic x(10) 01 var2 redefines var1 pic 9(10). then in procedure division move 'abcde' to var1 then waht is the value of var1 and var2
what is the coding difference between COBOL and CICS.
What is the difference between a DYNAMIC and STATIC call in COBOL?
if a=b how the flow will complete??? perform test through test-exit. perform activa through activa-exit. test. if a=b then next sentence else move a to c. test-exit. exit. activa. -- -- activa-exit. exit.