Hello,
I have a question for anyone familiar with cobol on VSE. I’m coding a program that reads a 3490 tape in. The job compiles fine, but won't run, it fails with this message “permanent i/o error file name = sys006 . ccb=x"2e9092000c400106"
from compile unit c503051 at entry point c503051 at compile unit offset +00000794 at address 0060080c. cee5dmp v1 r4.1: condition processing resulted in the unhandled condition. We’ve tried several things to resolve this (most in the FD statements).
As I explained in an earlier post, we work with assembler here, and this is our first cobol experiment (and I’m the guinea pig). We don’t even know how to have a dump outputted so we can see exactly where it’s failing.
Thank you for all your help.
Darby
// option deck,nolink,listx
// exec igycrctl,size=igycrctl,parm='sz(max)'
cbl name,lib,nossr,apost,noadv,optimize,dyn are we missing something here that would produce a dump ?
Anything need added or subtracted from the code below ?
input-output section.
*
file-control.
*
select tape-in assign to sys006.
select cardsin assign to sys003.
select rptpkey assign to sys002.
*
data division.
file section.
*
fd tape-in
label records standard
record contains 400 characters
block contains 30 records
recording mode is f
data record is tape-record.
I have a question for anyone familiar with cobol on VSE. I’m coding a program that reads a 3490 tape in. The job compiles fine, but won't run, it fails with this message “permanent i/o error file name = sys006 . ccb=x"2e9092000c400106"
from compile unit c503051 at entry point c503051 at compile unit offset +00000794 at address 0060080c. cee5dmp v1 r4.1: condition processing resulted in the unhandled condition. We’ve tried several things to resolve this (most in the FD statements).
As I explained in an earlier post, we work with assembler here, and this is our first cobol experiment (and I’m the guinea pig). We don’t even know how to have a dump outputted so we can see exactly where it’s failing.
Thank you for all your help.
Darby
// option deck,nolink,listx
// exec igycrctl,size=igycrctl,parm='sz(max)'
cbl name,lib,nossr,apost,noadv,optimize,dyn are we missing something here that would produce a dump ?
Anything need added or subtracted from the code below ?
input-output section.
*
file-control.
*
select tape-in assign to sys006.
select cardsin assign to sys003.
select rptpkey assign to sys002.
*
data division.
file section.
*
fd tape-in
label records standard
record contains 400 characters
block contains 30 records
recording mode is f
data record is tape-record.