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 ? | 19 Yes | 1 No |
Post New Answer View All Answers
Can a Search can be done on a table with or without Index?
How do we get current date from system with century in COBOL?
How many sections are there in data division in COBOL?
What is the Purpose of Pointer in the string?
How do you reference the following file formats from cobol programs?
What is rmode(any) ?
I need to compare 3 variables(dates) and do some processing based on the earliest date. There could be more then 1 date record in any of the 3 fields. What is the best way to code this?
How do define dynamic array in cobol.
Differentiate between structured cobol programming and object-oriented cobol programming.
) How do u handle errors in BMS macro
How to print 10 to 1 if the input have only 10 digit number?
Write down the divisions of cobol program?
What is the difference between comp and comp-3 usage?
What the difference is between continue and next sentence?
What is the local-storage section?