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.

how can i see junk values in dclgen or in hostvariable of comp ?

2935

---

What is the local-storage section?

1105

---

i was faced one question- i have value -00001234.56 Suppress the zeroes and the output should be -1234.56 But Not - 1234.56 spaces should not be available after suppressing the zeroes. logic in jcl and cobol?

1263

---

Which is the default, TEST BEFORE or TEST AFTER for a PERFORM statement?

1291

---

What is rmode(any) ?

1184

---

How to traceback if I am getting SOC7 or SOC4 abend? List down the steps

5318

---

how do you reference the esds vsam file formats from cobol programs

1131

---

What are literals?

1075

---

Explain about different table spaces.

1049

---

How do we get current date from system with century in COBOL?

1324

---

How did the release of cobol/370 version 1.3 improve the performance of release 1.1?

1034

---

In which area will you utilize 88 level items in cobol?

1103

---

Give some examples of command terminators?

1197

---

input 1 input2 ouput1 output2 output 3 1 re 300 1 re 200 1 re 300 3 rc 500 1 re 200 2 rr 400 1 re 300 2 rr 400 1 rc 400 3 rc 500 1 rc 400 2 rr 700 2 rr 700 5 tt 900 5 tt 900 2 inputs r in flat file and output 1 is matched records,ouptput2 is unmatched of input1,output3 is unmatched of input2! how vl u get the output files using sequential order and to check with each and every records! let me know the procedure division ?

2255

---

How do define dynamic array in cobol. how do you define single dimensional array and multidimensional array in your cobol?

1188

---