MVSFORUMS.com

[mwhelan]

Hi all,

I am receiveing the following error :

*****PROGRAM INTERRUPT 002*****
DATE: 04231 TIME: 17.59.27
_____ _____
PROGRAM CHECK: 0C4 AT DISPLACEMENT: 000020A6 IN MODULE: ABCD01 C2 1.4.0 08/18/04 17.33.07
______________ ________________ __________
PROTECTION EXCEPTION - Reference was made to a main-storage location that is protected against this type of reference.

The statement at displacement 20A6 is as follows :

INITIALIZE READER3-DELETE-RECORD.

And READER3-DELETE-RECORD is defined as :

FD SORT-OUT
RECORDING MODE IS F
BLOCK CONTAINS 0 CHARACTERS
RECORD CONTAINS 80 CHARACTERS
LABEL RECORDS STANDARD.
01 READER3-DELETE-RECORD.
05 RD3-POL.
10 RD3-POL-PREFIX PICTURE IS X.
10 RD3-POL-NUMBER PICTURE IS 9(7).
05 RD3-CONTRACT-YR PICTURE IS 9(4).
05 RD3-FILL01 PICTURE IS X (68).


The JCL statement is :

//SORTF1 DD UNIT=SYSOUT3,
// SPACE=(80,(10,10),RLSE),DISP=(,PASS),
// BLKSIZE=0,LRECL=80,RECFM=FB
//READER3 DD DSN=&&READER3,UNIT=SYSOUT3,DISP=(,PASS),
// SPACE=(80,(10,10),RLSE),
// BLKSIZE=0,LRECL=80,RECFM=FB


I cannot figure out what may be causing the error.

Can anyone help ?

Many thanks in advance...

Moss

[kolusu]

moss,

Did you try the procedure suggested in this thread?

http://www.mvsforums.com/helpboards/viewtopic.php?t=214

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

[bade_miya]

Hi moss,
I dont know wether this will help or not. but i remember getting this kind of error when i initialized the file record before opening it. That was in my first cobol program. ..