How To Retrieve The Instream Data In Sysin?

1.	How To Retrieve The Instream Data In Sysin?
Answer» 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 /* 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 /*

Answer»

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

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

Discussion

No Comment Found

Related InterviewSolutions

Explain About Maximum Displacement And How To Cross This Limit?
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?
How To Access Vsam File?
How To Produce Soc7 Abend?
Registers(0-15) ,where They Are Going Be Resides Does That Mean Here Is It Resides Whether Real Or Virtual Memory? And Why?then Why We Are Assign Even Registers(0 To 6) For Fp Operations?
What Is The Difference Between Various Read And Find Statement,and Which One Should Be Used When For Better Adabas Performance?
Write The Fetch Cycle And Execute Cycle For Following Instructions:jmpnz (jump To The Given Address If The Accumulator Not Equal To Zero) Ret(return From A Subroutine) Adb (add The Contents Of Register B To The Accumulator And Save Result In The Accumulator)?
How To Initialize 20,000 Bytes In The Assembler?
Can We Use Mvc Instruction To Move Pack Field To Pack Field. Which Instruction You Will Use And Why?
How To Pass Instream Data In Sysin With Assembler?