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 |
What is normalisation?
what is a load module ?
can we declare s9(9)v9(9) in cobol ? if yes how many bytes it will occupy ?(urgent plz answer it)
what is difference bt COND, REGION & TIME parameters at JOB & EXEC. give an exp.
How to open and see copy book ?
What is amode(31)
What will happen if we generate GDG (+2) version without generating (+1) version?
How to resolve the soc4 & soc7 other than following answers. Soc4 can resolved using mispleed dd name and dd name is not matching with file and soc7 check the sysdump and copy the offest address then correct it in the program.
10 Answers ADP, Amdocs, Cap Gemini, Keane India Ltd, Super Value, TCS,
File status must be checked both while opening and reading the file or only while reading the file?
Can we move X(9) to 9(9). If yes what are the ways for doing this?
i want to use only first 100 records from a file.plz tell me how to write JCL for this(for read,copy,write operations).plz give me details of all posible JCL utilities?
can any one give good example for cond 88 level number and for renames pls urgent dudes ?