|
View previous topic :: View next topic
|
| Author |
Message |
vk0022789
New User
Joined: 24 Sep 2008
Posts: 15
Location: hyderabad
|
|
|
|
Hi,
How to resolve the U4038 abend?
while i submit the JCL. I got his error.
Error :
--------
'' IGZ0035S There was an unsuccessful OPEN or CLOSE of file FACEFILE in program CA97611A at relative location X'0734'.
FILE STATUS nor an ERROR declarative were specified. The status code was 90."
But i checked my cobol program,i properly closed and opened my i/p and o/p file.
can u pls help me?
Thanks!  |
|
| Back to top |
|
 |
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix
|
|
|
|
Hello,
Something is most likely wrong with your code or your jcl.
There is probably additional diagnostic info presented by this run.
If you post your select, fd, open, read and the jcl for the FACEFILE, we may be able to help.
Use the "Code" tag when posting this information. |
|
| Back to top |
|
|
vk0022789
New User
Joined: 24 Sep 2008
Posts: 15
Location: hyderabad
|
|
|
|
Hi,
pls see the below structure
| Code: |
FILE-CONTROL.
SELECT INPUT-FACE-FILE ASSIGN TO UT-S-FACEFILE.
SELECT OUT-CAV07B-FILE ASSIGN TO UT-S-CAV0BDD.
FD INPUT-FACE-FILE
RECORDING MODE IS F
LABEL RECORDS ARE STANDARD
BLOCK CONTAINS 0 RECORDS
RECORD CONTAINS 1521 CHARACTERS
DATA RECORD IS IN-FACE-REC.
01 IN-FACE-REC PIC X(1521).
FD OUT-CAV07B-FILE
RECORDING MODE IS F
LABEL RECORDS ARE OMITTED
BLOCK CONTAINS 0 CHARACTERS
RECORD CONTAINS 719 CHARACTERS
DATA RECORD IS OUT-CAV07B-REC.
01 OUT-CAV07B-REC PIC X(719).
READ INPUT-FACE-FILE INTO INPUT-FACE-REC AT END
MOVE 'Y' TO END-OF-FACE-SW
END-READ. |
Thanks!
Edited: Please use BBcode when You post some code, that's rather readable...Anuj |
|
| Back to top |
|
|
rakesha.hg
Active User
Joined: 21 Mar 2008
Posts: 161
Location: bangalore
|
|
|
|
As dick mentioned,
| Quote: |
| If you post your select, fd, open, read and the jcl for the FACEFILE, we may be able to help. |
we can see select,fd,read .... but your open/close & jcl's missing ...
please post your jcl & use the code tags(preview before posting it  ).... we can see nothing worng with part of code you have posted. |
|
| Back to top |
|
|
Anuj Dhawan
Superior Member
Joined: 22 Apr 2006
Posts: 6250
Location: Mumbai, India
|
|
| Back to top |
|
|
dbzTHEdinosauer
Global Moderator
Joined: 20 Oct 2006
Posts: 6966
Location: porcelain throne
|
|
|
|
how do you know that:
| Quote: |
But i checked my cobol program,i properly closed and opened my i/p and o/p file.
|
since you do not have:
| Quote: |
FILE STATUS nor an ERROR declarative were specified. The status code was 90
|
since a 90 is an attempted close on an unopened file, i would guess that the instruction at:
| Quote: |
at relative location X'0734'.
|
is a close.
you are making to many assumptions and your program logic is faulty. |
|
| Back to top |
|
|
Robert Sample
Global Moderator
Joined: 06 Jun 2008
Posts: 8696
Location: Dubuque, Iowa, USA
|
|
|
|
| Quote: |
| CA97611A at relative location X'0734'. |
Compile your program with the LIST or OFFSET options and this will tell you exactly which line of your program was being executed when the error occurred. No assumptions required! |
|
| Back to top |
|
|
|
|
