Answer Posted / amarnadh reddy

Use Accept in procedure division.
Example :
WORKING-STORAGE SECTION.
01 empno. Pic x(05).
01 empname pic x(15).
01 empsal pic 9(10).
PROCEDURE DIVISION.
................
PERFORM ACCEPT-PARA.
..............
ACCEPT-PARA.
ACCEPT EMPNO.
ACCEPT EMPNAME.
ACCEPT EMPSAL.

In JCL :
...........
............
//sysin dd *
001
aaaa
330000
/*

Explain about house keeping in assembler?

1044

---

In the house keeping section of an MVS assembly language program, like the one below STM R14,R12,12(R13) BASR R12,R0 USING *,R12,R11 LA R11,2048 LA R11,2048(R11,R12) .... .... 1. What if BASR R12,R0 IS NOT PRECEDE USING *,R12,R11? 2. USING (base address), REGISTER does USING directive says assembler to treat particular Register as a base register with the mentioned base address..in the above case * i.e current location counter..well if that is the case why we need BASR R12,R0 ? 3. What if I write like STM R14,R12,12(R13) BASR R12,R0 LA R11,2048 LA R11,2048(R11,R12) USING *,R12,R11 there is no address resolution being calculated in both LA statements so is it a right way to set Base register?..will there be any issues with Domain regarding R11 and R12?

1980

---

What is the use of trt instruction?

1024

---

What is maximum displacement?

1183

---

explain icm instruction?

1085

---

how to initialize a register to 0000?

1161

---

Explain the difference between various read and find statement?

1058

---

Explain how to initialize a register to 0000?

1010

---

what is need of start 0? In steed of

1092

---

Explain the difference in data type "x" and "p"?

1034

---

Explain how to produce soc7 abend?

1072

---

What is icm instruction?

1062

---

What is maximum displacement and how to cross this limit?

1178

---

Explain about base register?

1060

---

What will happen if we drop the base register in the program which contains only one basereg?

983

---