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
Answers were Sorted based on User's Feedback
Answer / vinod
01 a pic x(19) value 'viswa!@#$%&^**reddy'.
01 b pix x(11).
procedure division.
move a(1:5) to b(1:5).
move a(15:5) to b(6:5).
display b.
| Is This Answer Correct ? | 17 Yes | 1 No |
Answer / 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 |
Answer / 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 |
How many times the loop runs here 01 a pic 9(2) value 10. perform para1 a times stop run. para1: move 20 to a.
TYPES OF SORTINGS. which is more prefarable.
wirte a pgm in using files in which we hav 10 ,20,30 40...100 records in inputfile and i want them to be send to outputfile in reverse order. PLZ HELP ME OUT .........THIS IS A RECENT QUESTION IN IGATE..
how to create temporary data set in jcl? what is the use?
3 Answers Cap Gemini, Temenos,
What is the Purpose of POINTER Phrase in STRING command in COBOL?
Can we access the a[0] in the array ?
What will happen if we move SPACES to numeric field and ZEROES to alphabetic field?
if a>b continue display x. dispaly y. end-if display 1 display 2. display 3. what should be my output ?
What are the different rules of SORT operation?
how do u list the abended jobs?
whn do i get soc7 abend while moving alphanumeric to numeric or while moving numeric to aplhanumeric please reply ASAP?
how to transfer the file from pc to mainframe??