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 need of start 0?

647


what is need of start 0? In steed of

669


how to retrieve the instream data in sysin?

672


How to pass the parameters from jcl to assembler program?

569


how do you round the addition or subtraction of two numbers in assembler? what does the following code do? change process tool(code changes from dev to prd) the changes made to your code should be effected in live. How the process takes place. That is how can you move the code changes from development to production?

681






explain icm instruction?

655


How are data passed from jcl parm to assembler program?

574


Why do we use "drop"?

558


how to pass the parameters from jcl to assembler pgm?

651


What is icm instruction?

635


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

605


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

626


Explain how to produce soc7 abend?

632


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

595


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

588