MVSFORUMS.com

[butta_mvs]

I am passing data to cobol pgm from jcl thru SYSIN .In my cobol iam receiving the data thru accept statements , but iwant to know how to find out the end of instrean data.

BUTTA

[SureshKumar]

Butta_mvs,
You can read SYSIN like a normal file and the end-of-file will automatically happen at end(when encountered by /*), you also have many choices like
//SYSIN DD DATA
aaa
bbb
/*
OR
//SYSIN DD *,DLM=XX -- This is a delimiter
aaa
bbb
XX

You may prefer to READ rather than ACCEPT. Thanks

[Sreejith]

Some thing like this

MOVE HIGH-VALUES TO IN-DATA
ACCEPT IN-DATA FROM SYSIN
IF IN-DATA = HIGH-VALUES
NO MORE RECORDS

[gans79]

Hi,
How can we read instream data using READ & AT END, can someone give me an example It gives a error "VAR defined as a type that was invalid in this context"
do we need to add a linkage section in this case ?
help with example will be greatly appreciated

Thanks
ganesh

[superk]

Program:

[shekar123]

superk,

I am getting a Run time Error ABENDED S001 U0000.When i tried debuging , the program flow is ok till before the Para PERFORM 110-READ-INPUT-FILE THRU 110-READ-INPUT-FILE-EXIT. and after that when it executes the statement it is failing and i guess it is not able to read the file.Can you please help me:

[coolman]

Shekar,

Change this

[kolusu]

shekar123,

you are getting the abend because you have defined the INPUT-REC as 9(02) instead of x(80). Look at superk's file declaration and compare it with yours.

Hope this helps...

Cheers

Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu

[shekar123]

Kolusu and Coolman,

Thanks for your replies.Can i not have an input file with 9(02) , why do we have to declare it only as X(80) ? Please let me know the reasons for declaring X(80).
_________________
Shekar
Grow Technically

[kolusu]

[shekar123]

Kolusu,

I have clearly understood the reason and thanks for you response.I am somehow getting my desired output but still some flaw is there in the code and i had debugged but not able to make out where is the problem.I am getting the sum of the numbers displayed two times which means the end of the file is not encountered and finally it ends upto error which is really not.Can you let me know where is the flaw in the code ?

[coolman]

Shekar,

Try coding a STOP RUN like this. I believe your code is falling through.

[shekar123]

Great Coolman,

It is working and thanks a lot.By the way can you let me know why is it falling through even though i am setting / why is it reading again after the end of the file reached condition.

[coolman]

Shekar,

Setting the EOF condtion to true doesn't stop the flow of the program. Your program processes the paragraphs in the following sequence: 100-STARTUP-PARA , then 200-PROCESS-PARA, inside of which it goes, reads the files and sets the EOF condition to true. Now, control returns back to 200-EXIT and then finally you get into 300-PARA where you close the file. Ideally, your program should stop executing now because you've completed all the required processing. Now the program goes to execute the next statement within para 100-START-UP, because that's the next line and you don't have any statement to indicate that you have to HALT the exeuction of this program. It proceeds further to read the file again not knowing that the EOF had already been reached which causes the abend condition to be flagged.
________
extreme q vaporizer

[shekar123]

Coolman,

Thanks for your valuable explanation and i am very much clear now to avoid coding such type of flaws and it was nice learning experience.
_________________
Shekar
Grow Technically