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
/*

How many maximum base registers we can have in a single program?

1094

---

How is data passed from a calling program to an assembler called program?

1050

---

Ap wkur,=p5 where wkur is a label?

1128

---

Explain the difference between various read and find statement?

1043

---

What does the following code do? Ap wkur,=p5 where wkur is a label?

1082

---

Explain about maximum displacement?

1047

---

how to initialize a register to 0000?

1120

---

What is maximum displacement and how to cross this limit?

1163

---

Explain the difference between various read and find statement and which one should be used when for better adabas performance?

979

---

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

976

---

Explain about house keeping in assembler?

1039

---

How to pass the parameters from jcl to assembler program?

992

---

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

1017

---

Explain how to pass instream data in sysin with assembler?

1064

---

Explain how to produce soc7 abend?

1063

---