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
Which is the default, TEST BEFORE or TEST AFTER for a PERFORM statement?
how to access the file from prodution from changeman tool and to submit a file to production
how do you reference the rrds file formats from cobol programs
How do you get the data to code the BMS macro?
IF I mention stop run in CICS what happens?
Which Search verb is equivalent to PERFORM…VARYING?
Can we redefine the field of x(200) to less than 200?
Explain how you can characterize tables in cobol?
What is the difference between goback, stop run and exit program in cobol?
Explain what you understand by passing by value.
if we display var1 then what will b displayed in below condition. 77 var1 pic s9(2) value -10. 77 var1 pic s9(2) value -11. " " " -12. " " " -13. -14 ... ... -19.
Whats the difference between search & search ALL?
What is the difference between external and global variables in COBOL?
Explain about different table spaces.
what are decleratives in cobol?