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


Please Help Members By Posting Answers For Below Questions

Give some examples of command terminators?

755


What are declaratives and what are their uses in cobol?

710


Can you please let me know the centre name of INS certification in Kolkata.

1715


Why is it necessary that file needs to be opened in I-O mode for REWRITE?

748


Hi pls anybody tell me about " ANALYSIS DOCUMENT PREPARATION AND ESTIMATION OF TASK " (in real time project)."I want to update a sequential file in my project" for that purpose i need both structures i mean analysis document and estimation of task.

1701






How to remove 2 duplicate records and copy only one using job control language?

748


Discuss about changing dataset name in proc.

759


2 input fles: 2 flat files, with different number of records. both are having unique key for each record and already sorted in ascending order . match these files using unique key and in output only matching key value has to be written. please procide cobol logic

2108


Explain how will you differentiate between an internal and an external sort, the pros and cons, internal sort syntax etc

821


What are 77 levels used for?

659


What rules are to be followed while using the corresponding options?

637


Describe the cobol database components?

680


) How do u handle errors in BMS macro?

1427


What are the different rules to perform a Search?

613


What is link edit in cobol?

766