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 |
record length in spool?
Consider the following COBOL entries: 05 X PIC 99 VALUE 10. SUBTRACT 20 FROM X. The resultant value of X wil be
1.give the details about WHEN OTHER. 2. how many form are available in evaluate.
What is redefines clause in COBOL?
in cobol main pgm is calling sub pgm but sub pgm does not exists , what abend i get if submit the job?
HOW TO MOVE REDEFINES CLAUSE FROM INPUT TO OUTPUT ?
what is difference between the sysabend and userabend?
What will happen if a variable is declared as below.. Explain with an example? Working storage section:- 01 WS-VARX PIC X(10) VALUE 'ABCDEFGHIJ'. 01 WS-VARN REDEFINES WS-VARX PIC 9(5) VALUE '12345'. What will happen I am going to Display the WS-VARX and WS- VARN?
What is COMP-1? COMP-2?
can you declare redefine in level 01?
Q:what is the difference between the variable length and fixed lenght.how it varies in the cobol.
How do you set a return code to the JCL from a COBOL program?