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 / raghu

01 a pic x(19) value 'viswa!@#$%&^**reddy'.
01 b pix x(11).
procedure division.
perform a until ws-eof-str
if a is alphabetic
move a to b
display b
end-if
end-perform

Is This Answer Correct ?    0 Yes 0 No



Post New Answer       View All Answers


Please Help Members By Posting Answers For Below Questions

What are declaratives and what are their uses in cobol?

712


Can we change the password using ALTER? anyone tried and changed?

1547


What is the Purpose of Pointer in the string?

642


i need a small 3d program using inline and outline.

1637


i have 10 names in an array and my name is one of them also array is not in sorted order i need to display my name using index how will i do this

996






What is rmode(24)

678


How you can read the file from bottom?

659


)If there are 10 steps in GDG, if I want to refer the step2 after step5 . what should I do?

1523


what is s000 u4087 error? please give the all error codes in cobol,jcl.

17032


How to get the last record in vsam file in cluster? And how can you get the ksds file records into cobol program?

708


What are different data types in cobol?

688


For rewrite, why is it mandatory that file needs to be opened?

620


I have a program with an Array of 5000 occurences which is being passed from 5 sub levels to the front end screen. Thess 5 programs using each 5*2 = 10 different arrays with size as 5000. This is causing the transaction to utilize more storage consupmtion. I am looking to reduce the storage consumption. As part of that initially i thought Dynamic array may solve my problem. After viewing the comments given i see its same as normal array. IS there any other way we can resolve this issue?

1230


Mention the guidelines to write a structured cobol program?

620


How to get the last record in vsam file in cluster? And how can you get the kids file records into your cobol program?

740