how do you move only numeric data from A to B
01 A pic x(10) value 'a1b2c34d5e'.
01 B pic x(5).
Answers were Sorted based on User's Feedback
Answer / 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 |
which is faster either static call or dynamic call ? and specify the reasons for it ? reply fast
What guidelines should be followed to write a structured Cobol program?
I have a sequential file. How do I access a record in this sequential file randomly in my program ?
How is sign stored in a COMP field ?
copy 100 records without using ibm utilities
What is the difference between comp and comp-3 usage? Explain other COBOL usage?s.
what is the difference between Normal vaiable and comp variable.
how can i see junk values in dclgen or in hostvariable of comp ?
which generation language is cobol
what is SYNCHRONIZATION?
Can anyone tell me how to handle the array beyond the limit. If we have an array or a table which can handle 5000 records but now we have to compensate 20000 records with the same array? how to handle the situation.
The following entries appear in the WORKING-STORAGE SECTION: 01 DATE-TODAY. 05 YY PIC XX VALUE "90". 05 MM PIC XX VALUE "12". 05 DD PIC XX VALUE :31". 01 DATE-EDIT PIC XX/XX/XX. MOVE DATE-TODAY TO DATE-EDIT. (a) 901231 (b) 90/12/31 (c) 31/12/90 (d) 311290