How we can retrieve the instream data in SYSIN ?
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
/*
| Is This Answer Correct ? | 11 Yes | 1 No |
Post New Answer View All Answers
What does "using" do?
Explain about house keeping in assembler?
What is need of start 0? In steed of can we use anyother numerics? If we use what will happen?
How many maximum base registers we can have in a single program?
explain icm instruction?
explain about maximum displacement and how to cross this limit?
What is maximum displacement and how to cross this limit?
Explain about base register?
Explain how to initialize a register to 0000?
How are data passed from jcl parm to assembler program?
how to retrieve the instream data in sysin?
how to initialize a register to 0000?
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?
what is need of start 0? In steed of
how to pass the parameters from jcl to assembler pgm?