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.

What is a report item?

1154

---

How do you reference the fixed block file formats from cobol programs

1242

---

Is it possible that the redefines clause has different picture clauses compared to the one it redefined?

1163

---

What the difference is between continue and next sentence?

1185

---

Which Search verb is equivalent to PERFORM…VARYING?

1050

---

What is a SSRANGE and NOSSRANGE?

1481

---

What is the difference between comp and comp-3?

1198

---

how do you reference the variable block file formats from cobol programs

1270

---

Difference between array and sub-script ?

1672

---

Our issue is there seems to be a disconnect, or no link, between our SELECT statement and our SD. We had SELECT SORT-FILE and SELECT SORT-FILE ASSIGN TO SORTWRK. ASSIGN TO SORTWRK1 SORTWRK2 SORTWRK3 SORTWRK4. with SD SORT_FILE RECORD CONTAINS 7833 CHARACTERS. In either case, at run time, the system ignored our SORTWRK# DD statements and allocated 16 sort works with the SORTWK## naming convention. Any ideas why the system does not recognize the connection? We do not even need the SORTWRK DD statements. Thanks

2976

---

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

1256

---

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

1113

---

What is amode(24), amode(31), rmode(24) and rmode(any) (applicable to only mvsesa enterprise server) ?

1229

---

how do you reference the variable unblock file formats from cobol programs

1338

---

What rules are followed by the search verb.

1136

---