how do you move only numeric data from A to B
01 A pic x(10) value 'a1b2c34d5e'.
01 B pic x(5).
Answer Posted / ravi krian j
using reference modification move & isnumeric
PERFORM VARYING I FROM 1 BY 1 UNTIL I>10
IF A(I:1) IS NUMERIC
MOVE A(I:1) TO B(I:1)
END-IF
END-PERFORM.
| Is This Answer Correct ? | 20 Yes | 1 No |
Post New Answer View All Answers
How to get the last record in vsam file in cluster? And how can you get the ksds file records into cobol program?
Is it possible that the redefines clause has different picture clauses compared to the one it redefined?
Write the code implementing the perform … varying.
What are all the divisions of a COBOL program?
How do you define a variable of comp-1 and comp-2?
What are the pertinent COBOL
Differentiate cobol and cobol-ii. (Most of our programs are written in cobolii, so, it is good to know, how, this is different from cobol)?
i want to learn mainframe..any websites and material to learn from basic..? my mail id : rajeswaribe2010@gmail.com
What are the different data types in cobol?
Why did you choose to work with ibm mainframe cobol programming?
can anybody post me about file-aid and changemen tools pls and give me reference if any mainframe guys are there
What is link edit in cobol?
What is amode(24)?
how do you reference the esds vsam file formats from cobol programs
i need a small 3d program using inline and outline.