I have a COBOL program that Accepts some input data. How do
you code the JCL statement for this?
( How do you code instream data in a JCL? )

Answer Posted / shashidhar kalasannavar

You can pass the data to cobol program in three way and one
is instrem.

//SYSIN DD *
DATA1
DATA2
/*

or
//SYSIN DD DSN=SSK08.TEST.DATA,DISP=SHR


By intream you can send only 80 charecters

Is This Answer Correct ?    1 Yes 2 No



Post New Answer       View All Answers


Please Help Members By Posting Answers For Below Questions

what are JCLLIB and STEPLIB in JCL?

898


what is the difference between JES3 and JES2?

899


What are the parameter we cannot use in procedure? How many instream we can write in single jcl?

797


How to pass the parameter in parm using linkage section ? (syntax)?

865


Is it possible to code instream data in a PROC?

1004


What do we mean by 'Virtual storage' for a dataset and for a JOBSTEP ? What is the significance of the following statement for a programmer 'Virtual storage results in program addresses being independent of the addresses that actually exist in a computer' ?

1787


Is it possible to left uncode disp?

926


How jcl is used for testing batch programs?

975


How does jcl act on code(if you take a cobol program)?

995


what is the purpose of coding class parameter in job statement?

994


How do you create a temporary dataset?

888


In job processing, what happens in execution stage?

917


What do you understand by the term job time – out and how can you overcome that?

808


How to execute 2nd and 4th steps among 5 steps in jcl proc?

976


WORKING-STORAGE SECTION. 77 W-A PIC 9(3)V99 VALUE 23.75. 77 W-B PIC ZZ9V99 VALUE 123.45. PROCEDURE DIVISION. MOVE W-A TO W-B. DISPLAY W-B. STOP RUN. compiler : IGYGR1080-S A "VALUE" clause literal was not compatible with the data category o subject data item. The "VALUE" clause was discarded. WORKING-STORAGE SECTION. 77 W-A PIC 9(3)V99 VALUE 23.75. 77 W-B PIC ZZ9V99. PROCEDURE DIVISION. MOVE 123.45 TO W-B. MOVE W-A TO W-B. DISPLAY W-B. STOP RUN. 2375

1269