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


Please Help Members By Posting Answers For Below Questions

What is icm instruction?

642


What is the use of trt instruction?

584


Explain how to initialize a register to 0000?

591


How do you round the addition or subtraction of two numbers in assembler?

606


How are data passed from jcl parm to assembler program?

585






What is need of start 0?

659


Ap wkur,=p5 where wkur is a label?

673


What is maximum displacement and how to cross this limit?

675


explain about maximum displacement and how to cross this limit?

701


Explain how to produce soc7 abend?

647


explain icm instruction?

661


What does "using" do?

595


What is need of start 0? In steed of can we use anyother numerics? If we use what will happen?

644


how to retrieve the instream data in sysin?

681


how to initialize a register to 0000?

671