how can i use the parameters decalred in main pgm in sub pgm
Answer Posted / venkat
specify the field as GLOBAL.
EX.
Main program
WSS.
01 WS-ENO PIC X(9) GLOBAL.
Sub program.
PD.
DISPLAY WS-ENO.
| Is This Answer Correct ? | 3 Yes | 0 No |
Post New Answer View All Answers
i want to store 20 digits . how will u do it in cobol ?
whats the diff bw the evaluate also and and?
Why block size is multiple of lrecl in jcl?
What statement marks the beginning of an in-stream or cataloged procedure in jcl and assigns default values to parameters defined in the procedure?
a dd statement has 2 types of parameters. Name them?
What do we mean by 'Virtual storage' for a dataset and for a JOBSTEP ? What is the significance of the following statement for a programmer 'Virtual storage results in program addresses being independent of the addresses that actually exist in a computer' ?
Is their any limit for data sets?
What are the parameter we cannot use in procedure? How many instream we can write in single jcl?
Can we call instream to catalog and catalog to instream?
What do you know about jcl?
WORKING-STORAGE SECTION. 01 GROSS-PAY. 05 BASIC-PAY PIC 9(5). 05 ALLOWENCES PIC 9(3). PROCEDURE DIVISION. MOVE 1000 TO BASIC-PAY. MOVE 250 TO ALLOWENCES. DISPLAY GROSS-PAY. STOP RUN. 77 W-A PIC 9(3)V99 VALUE 23.75 77 W-B PIC ZZ9V99 VLAUE 123.45 after the statement MOVE W-A TO W-B what will be W-B's value? a.123.75 b.b23.75 (where b indicates space) c.023.75 d.invalid move
How to execute 2nd and 4th steps among 5 steps in jcl proc?
I had Records in file Like this Company Code IBM 2 IBM 1 IBM 4 WIPRO 3 WIPRO 2 WIPRO 9 TCS 4 TCS 6 TCS 3 i want the record of every company with highest code How can i do that?
When output dataset space is required, what quantity categories are used?
WORKING-STORAGE SECTION. 77 W-A PIC 9(3)V99 VALUE 23.75. 77 W-B PIC ZZ9V99 VALUE 123.45. PROCEDURE DIVISION. MOVE W-A TO W-B. DISPLAY W-B. STOP RUN. compiler : IGYGR1080-S A "VALUE" clause literal was not compatible with the data category o subject data item. The "VALUE" clause was discarded. WORKING-STORAGE SECTION. 77 W-A PIC 9(3)V99 VALUE 23.75. 77 W-B PIC ZZ9V99. PROCEDURE DIVISION. MOVE 123.45 TO W-B. MOVE W-A TO W-B. DISPLAY W-B. STOP RUN. 2375