| Author |
Message |
seshagir
New User
Joined: 12 Sep 2007
Posts: 9
Location: chennai
|
|
|
|
Hi,
The following error has been occurred while execution.
File Status: 90
CEE3204S The system detected a protection exception (System Completion Code=0C4)
From compile unit SAMPLE1 at entry point SAMPLE1 at statement 545 at compile unit offset +000018FE at entry offset +000018FE at address 09400216.
I have checked the lrecl of file and the record length specified in the program "SAMPLE1". both are same only.
Could you please tell me where the exact problem is?
Thanks,
seshu |
|
| Back to top |
|
 |
References
|
 Posted: Thu May 08, 2008 2:03 pm Post subject: Re: How to Solve File Status 90 |
|
|
|
|
dbzTHEdinosauer
Senior Member
Joined: 20 Oct 2006
Posts: 883
Location: germany
|
|
|
|
what is statement 545?
what do your select/fd/jcl look like? |
|
| Back to top |
|
|
seshagir
New User
Joined: 12 Sep 2007
Posts: 9
Location: chennai
|
|
|
|
| the file status 90 came at opening the file in output mode. |
|
| Back to top |
|
|
dbzTHEdinosauer
Senior Member
Joined: 20 Oct 2006
Posts: 883
Location: germany
|
|
|
|
| Quote: |
the file status 90 came at opening the file in output mode
|
that was obvious. file status 90 only occurs at open.
what is not obvious is what are your select/fd and jcl dd statements?
you say that your attributes match. well, we and mvs know that this is not true. |
|
| Back to top |
|
|
seshagir
New User
Joined: 12 Sep 2007
Posts: 9
Location: chennai
|
|
|
|
JCL:
//REP2 DD DSN=TST.REPORT2,
// DISP=(,CATLG,DELETE),
// DCB=(LRECL=34,RECFM=F,BLKSIZE=3400),
// SPACE=(CYL,(5,10),RLSE)
SELECT:
SELECT OUT-MONTHLY-REP ASSIGN TO DEPREP2
ORGANIZATION IS SEQUENTIAL
ACCESS MODE IS SEQUENTIAL
FILE STATUS IS WS-OUT-REP-FS.
FD OUT-MONTHLY-REP RECORDING MODE IS F
BLOCK CONTAINS 0 RECORDS.
COPY MONREP.
MONREP:
01 MON-REP-REC.
10 MON-REP-MONTH PIC X(03).
10 FILLER PIC X(01) VALUE '/'.
10 MON-REP-YEAR PIC X(04).
10 FILLER PIC X(01) VALUE SPACE.
10 MON-REP-DEPTID PIC X(02).
10 FILLER PIC X(01) VALUE SPACE.
10 MON-REP-UNITS PIC 9(09).
10 FILLER PIC X(01) VALUE SPACE.
10 MON-REP-RETAIL PIC 9(09).9(02). |
|
| Back to top |
|
|
dbzTHEdinosauer
Senior Member
Joined: 20 Oct 2006
Posts: 883
Location: germany
|
|
|
|
| Code: |
JCL:
//REP2 DD DSN=TST.REPORT2,
SELECT OUT-MONTHLY-REP ASSIGN TO DEPREP2
|
where is the dd statement for deprep2? |
|
| Back to top |
|
|
seshagir
New User
Joined: 12 Sep 2007
Posts: 9
Location: chennai
|
|
|
|
| SELECT OUT-MONTHLY-REP ASSIGN TO REP2 only |
|
| Back to top |
|
|
dick scherrer
Global Moderator
Joined: 23 Nov 2006
Posts: 5930
Location: 221 B Baker St
|
|
|
|
Hello,
| Quote: |
| SELECT OUT-MONTHLY-REP ASSIGN TO REP2 only |
Are you saying that with this change, it now works? |
|
| Back to top |
|
|
seshagir
New User
Joined: 12 Sep 2007
Posts: 9
Location: chennai
|
|
|
|
Now also it is not working.
Could you please give me the solution? |
|
| Back to top |
|
|
CICS Guy
Senior Member
Joined: 18 Jul 2007
Posts: 956
Location: At my desk
|
|
| Back to top |
|
|
Manuneedhi K
New User
Joined: 07 May 2008
Posts: 3
Location: Chennai
|
|
|
|
| seshagir wrote: |
Now also it is not working.
Could you please give me the solution? |
What is the error this time? Provide the amended code/jcl . |
|
| Back to top |
|
|
dick scherrer
Global Moderator
Joined: 23 Nov 2006
Posts: 5930
Location: 221 B Baker St
|
|
|
|
Hello,
| Quote: |
| Could you please give me the solution? |
In addition to the info already requested, it will help if you post the definition of the vsam file. |
|
| Back to top |
|
|
seshagir
New User
Joined: 12 Sep 2007
Posts: 9
Location: chennai
|
|
|
|
I didn't use any VSAM in the program. used PS file only and the copy book is already provided in previous posts.
The code where the error occurred is
WRITE MON-REP-REC FROM WS-TEMP-REC |
|
| Back to top |
|
|
gcicchet
Active User
Joined: 28 Jul 2006
Posts: 130
|
|
|
|
Hi,
doesn't the LRECL add up to 33 bytes and not 34 ?
Gerry |
|
| Back to top |
|
|
seshagir
New User
Joined: 12 Sep 2007
Posts: 9
Location: chennai
|
|
|
|
| I hope PIC 9(09).9(02) will consume 12 bytes. Am I correct? |
|
| Back to top |
|
|
|
|
