Use Accept in procedure division. Example : WORKING-STORAGE SECTION.

How we can retrieve the instream data in SYSIN ?

Question Posted / amarnadh reddy

2 Answers
8652 Views
Tech Mahindra, I also Faced
E-Mail Answers

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 house keeping in assembler?

953

Explain how to produce soc7 abend?

1020

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

1021

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

947

How to pass the parameters from jcl to assembler program?

944

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

972

Explain about maximum displacement?

996

What is icm instruction?

1021

How are data passed from jcl parm to assembler program?

954

What is the use of trt instruction?

963

how to initialize a register to 0000?

1072

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

975

What is maximum displacement?

1095

Explain how to access vsam file?

1041

how to pass the parameters from jcl to assembler pgm?

1049