Subject: | |
From: | |
Reply To: | |
Date: | Sat, 16 Feb 2002 11:32:12 -0500 |
Content-Type: | text/plain |
Parts/Attachments: |
|
|
Use the ACCEPT <identifier> FREE statement in your COBOL program, and in
your PROGIN file, terminate each datum line with a pound sign "#":
FILE:PROGIN
6#
N#
ALL#
The FREE clause tells the program to accept free-field input, and the pound
sign signals end-of-data. When you run the program from a terminal, you
don't need to use the pound sign, pressing the carriage return will signal
that.
HTH
At 11:51 AM 2/15/2002 -0500, Peter Osborne wrote:
>I have a Cobol Program that prompts the user for some information, the user
>responds with:
>
>6
>N
>ALL
>
>Including the carriage returns. So to drive this program with a single
>command I wrote 2 files as follows:
>
>FILE: PROGIN
>6
>N
>ALL
>
>FILE: RUNPROG
>RUN MYPROG;LIB=P;STDIN=PROGIN
>
>Now, if I execute the RUNPROG command file, the program runs fine, as
>expected. If I call the RUNPROG command file in a JOB, I get a "READ ERROR on
>ACCEPT (COBERR 551)" and the the Job fails. Has anyone else experienced this
>problem?
--------------------------------
Tom Brandt
Northtech Systems, Inc.
313 N. 1st Street
Ann Arbor, MI 48103
http://www.northtech.com/
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
|
|
|