i have a requrement in A as viswa!@#$%&^**reddy i need to
move viswareddy in B without junk values pls say how to do
ths reply fast
Answer Posted / priyanka
declare an 88 level with valid values as 'a' to 'z' and '0'
to '9'.
value = viswa!@#$%&^**reddy
move 0 to Y
move length of value to ws-value-length
Perform varying X from 1 by 1 until X > ws-value-length
move value (X:1) to 88-level-variable
if valid-value
add +1 to Y
move value(X:1) to out-value(Y:1)
else
continue
end-if
end-perform
out-value will be your output.
| Is This Answer Correct ? | 5 Yes | 1 No |
Post New Answer View All Answers
what is amode(24), amode(31), rmode(24) and rmode(any)?
In COBOL, what is the different between index and subscript?
What is the difference between external and global variables in COBOL?
what happens if parmparameter passes zero bytes to the program
Explain how you can characterize tables in cobol?
here is my requirement A1 is alphanumeric with value 'A1B2C3D4' as defined below 05 A1 PIC X(8) VALUE IS 'A1B2C3D4' but i need to have A2,A3 as ABCD & 1234 repectively...... A2 = ABCD A3 = 1234 Can you please explain me what are the different ways to do it?
Name some of the examples of COBOl 11?
Why is it necessary that file needs to be opened in I-O mode for REWRITE?
How many sections are there in data division in COBOL?
What is the difference between Call and a Link?
Write a cobol program making use of the redefine clause.
How many bytes S(8) comp field occupy and its maximum value?
How to know whether the module is dynamical or statistical?
What are the pertinent COBOL
What is amode(24), amode(31), rmode(24) and rmode(any) (applicable to only mvsesa enterprise server) ?