Can we dynamically increase the size of occurs clause? i.e
In case I an not sure of the size of array and want to
increase the size at run time.If yes , how?
Answer / lu
yes, ...you declare an array like this:
77 ws-counter pic 9(04) value zeroes.
01 ws-array.
07 ws-field pic x (01) ouccurs 1 to 1000
depending on ws-counter.
Procedure Division.
Perform Read-file until ws-end-of-file = 'y'.
Read-file.
Read file at end
move 'y' to ws-end-of-file.
if ws-end-of-file not = 'y'
add 1 to ws-counter
move aa of file to ws-field (ws-counter).
the maximun is 1000 occurrences and minimun is 1...
| Is This Answer Correct ? | 14 Yes | 0 No |
01 xxx pic 9(4). 01 yyy pic 9(6). move 123456 into yyy. move yyy to xxx. display yyy. what would be the value of yyy
What happens in the background of spool when we submit a job for compilation and execution... This is a recent question in ibm...Kindly help me.....
what are the working storage fields in BMS macro?
what will happen if i give program name and member name as different? program runs successful or w'll abend?
What are the divisions in a cobol program? Which one is the mandatory division among them?
is it possible to pass an SQL query inside a jcl which is inside a cobol program?
have in 100 records in a flat file i want to move records like 1,3,5,7,9,11,.. to Output file1 and 2,4,6,8,10,12,14 .. records moved to Output file2..Pls Provide real time answer..
I have a PS file and I would like to manually insert the binary values (like a COMP format) into the file. How can i do that? the way do in COMP-3 format.. suppose i want to insert -12345 in to file in comp-3 format. simply we can open a file in edit mode and do HEX-ON and insert the value . SEE BELOW-- 135 24D in 3 bytes - this will be COMP-3 presenatation of -12345.
Can anyone explain me CALL procedure in COBOL.Does it carries similarities like call by reference in C.
What is report-item?
What is difference between COBOL and VS COBOL II?.
for an INITIALIZE and what keyword allows for an override of the default.