|
View previous topic :: View next topic
|
| Author |
Message |
kgumraj
Active User
Joined: 01 May 2006
Posts: 151
Location: Hyderabad
|
|
|
|
Hi,
I am getting File status - 92 can anyone help me to solve this, Thanks in Advance.
Please find the details below :
File-control:
| Code: |
SELECT STAR-INPUT-FILE ASSIGN TO INFILEA
FILE STATUS IS STAR-INPUT-STATUS. |
File-section :
| Code: |
FD STAR-INPUT-FILE
RECORDING MODE IS F
BLOCK CONTAINS 0 RECORDS
LABEL RECORDS ARE STANDARD
DATA RECORD IS STAR-INPUT-RECORD.
01 STAR-INPUT-RECORD.
05 PART1-1 PIC X(132).
05 NUM1-1A PIC 9(12).
05 FILLER PIC X(01).
05 NUM1-1B PIC 9(02).
05 PART1-2 PIC X(551).
05 NUM1-2A PIC 9(12).
05 FILLER PIC X(01).
05 NUM1-2B PIC 9(02).
05 PART1-3 PIC X(108).
|
I get File stus 92 at
| Code: |
| OPEN INPUT STAR-INPUT-FILE. |
|
|
| Back to top |
|
 |
kgumraj
Active User
Joined: 01 May 2006
Posts: 151
Location: Hyderabad
|
|
|
|
Sorry for not providing this before.
My JCL goes like this,
| Code: |
//INFILEA DD DSN=MC3716.RAVI.STAR.UPLOAD.MAY07,DISP=SHR
//OUTFILEA DD DSN=MC3716.MTW.STAR.UPLOAD.MAY07.OUTFILE,
// DISP=(NEW,CATLG,DELETE), |
and the dataseta details are insync with the record layout of COBOL. |
|
| Back to top |
|
|
murmohk1
Senior Member
.jpg)
Joined: 29 Jun 2006
Posts: 1436
Location: Bangalore,India
|
|
|
|
Kiran,
Your FD doesn't have RECORD CONTAINS...... statement. Include this and try one more time. |
|
| Back to top |
|
|
William Thompson
Global Moderator
Joined: 18 Nov 2006
Posts: 3156
Location: Tucson AZ
|
|
|
|
| murmohk1 wrote: |
| Your FD doesn't have RECORD CONTAINS...... statement. Include this and try one more time. |
It is not needed.
| kgumraj wrote: |
Sorry for not providing this before.
My JCL goes like this, |
What kind of file is this? VSAM? QSAM? |
|
| Back to top |
|
|
kgumraj
Active User
Joined: 01 May 2006
Posts: 151
Location: Hyderabad
|
|
|
|
William,
It is Flat file (PS) , Can You Please let me know where I went wrong ? |
|
| Back to top |
|
|
William Thompson
Global Moderator
Joined: 18 Nov 2006
Posts: 3156
Location: Tucson AZ
|
|
|
|
| I don't know, I don't recall seeing a logic error on anything other than a VSAM file..... Are you sure? |
|
| Back to top |
|
|
kgumraj
Active User
Joined: 01 May 2006
Posts: 151
Location: Hyderabad
|
|
|
|
Yes,
It is Flat file, We too are in Confusion !!! |
|
| Back to top |
|
|
Phrzby Phil
Senior Member
Joined: 31 Oct 2006
Posts: 1050
Location: Richmond, Virginia
|
|
|
|
| So let's see the actual error printout. |
|
| Back to top |
|
|
William Thompson
Global Moderator
Joined: 18 Nov 2006
Posts: 3156
Location: Tucson AZ
|
|
|
|
Phil, it won't show much, being a status return value.
Kiran, do a 3.4 on the file and let us know what the lrecl, recfm and blksize are. |
|
| Back to top |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006
Posts: 19243
Location: Inside the Matrix
|
|
|
|
Hello,
What connection is the 92 to the 0c4?
Is this a new program or were changes made to something existing (if so, what changed)?
If you post all of the jcl for this step, it may help. |
|
| Back to top |
|
|
Craq Giegerich
Senior Member
Joined: 19 May 2007
Posts: 1512
Location: Virginia, USA
|
|
|
|
| dick scherrer wrote: |
Hello,
What connection is the 92 to the 0c4?
Is this a new program or were changes made to something existing (if so, what changed)?
If you post all of the jcl for this step, it may help. |
More then likely the program doesn't know what action to take for a '92' so it just continues, the input record doesn't point to anything and that causes to OC4. |
|
| Back to top |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006
Posts: 19243
Location: Inside the Matrix
|
|
|
|
Very possibly. . .
I'd still like to see the replies to ques 2 & 3. . .
Sounds scary that the program detects the 92 and just keeps on running 
It might be interesting to take the "file status" out of the select and see what "real" abend is generated. Wouldn't keep it that way, just for a test.
Which reminds me of a question not yet asked - is this situation in test or production? |
|
| Back to top |
|
|
srebba
Warnings : 1
New User
Joined: 26 Apr 2007
Posts: 37
Location: USA
|
|
|
|
Hi,
can u please change the program name and program id and compile and run once.
please try once...I will let u know once its successfully completed.
Thank you
Sree |
|
| Back to top |
|
|
kgumraj
Active User
Joined: 01 May 2006
Posts: 151
Location: Hyderabad
|
|
|
|
My JCL has only one step, it is a new program.
I tried what Sree suggested but it didnt help.
This is my JCl
| Code: |
//STEP1 EXEC PGM=PAUB001P
//*INFILEA DD DSN=MC37TDSB.MTW.STAR.UPLOAD.MAY07,DISP=SHR
//INFILEA DD DSN=MC3716.RAVI.STAR.UPLOAD.MAY07,DISP=SHR
//OUTFILEA DD DSN=MC3716.MTW.STAR.UPLOAD.MAY07.OUTFILE,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// SPACE=(CYL,(1,15),RLSE),
// DCB=(RECFM=FB,LRECL=807,BLKSIZE=0) |
|
|
| Back to top |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006
Posts: 19243
Location: Inside the Matrix
|
|
|
|
Hello,
Please try this and post back what the abend is.
| Quote: |
| It might be interesting to take the "file status" out of the select and see what "real" abend is generated. Wouldn't keep it that way, just for a test |
Do you have another program that simply opens the input file and reads it? If not, you might want to create one and run that to see if the error persists. The only "logic" would be to read all of the records and possibly display a record count at end of file.
My guess is that there is a coding problem in the PAUB001P code. |
|
| Back to top |
|
|
kgumraj
Active User
Joined: 01 May 2006
Posts: 151
Location: Hyderabad
|
|
|
|
Dick,
When tried in sysout I got this message,
| Code: |
The system detected a protection exception (System Completion Code=0C4).
From compile unit PAUB001P at entry point PAUB001P at compile unit offset |
Let me know where did I go wrong. Thanks |
|
| Back to top |
|
|
srebba
Warnings : 1
New User
Joined: 26 Apr 2007
Posts: 37
Location: USA
|
|
|
|
Hi,
Please let me tell u possibilities of SOC4 which I have faced. so that u can concentate on these.(Strange)
1) I forgot to Code STOP RUN un the program. I got abend SOC4. I wasted 2 hours and I strugled. Then I analyzed the program once again from the top to bottom then I found and I coded the STOP RUN. program went fine.
2) (SOC4) it related to the Files. I have missed small period before file open( i did not remember exaclty) but its coding problem. then I analysed i coded exaclty . program went fine.
3) one of my team member coded one program. that program was fine and my team memebers are also involved. I was getting SOC4 abend. it was small program. SOC4 abend due to files (related ro Neither file status nor declare files status something like that ) . What happned was the program was compiled and created object program. The object program(some other are created with that name) was already in the Load module
then it was not updated. the program was picking up the old one. Thing the program was using same files. I have anaylysed and I have changed the program name and progam id and program went fine. (Strange problem)
4) Final. Pls put Display statement before of the File reads and after the file and analys the data in the file if abends at that file. (Pls anyalyse the code)
Any comments on these ur most welcome.
Thank you,
Sree |
|
| Back to top |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006
Posts: 19243
Location: Inside the Matrix
|
|
|
|
Hello,
What about the status 92? Was there no informatin about a file problem in the sysout datasets?
Have yo tried to read this file in a small "stand-alone" bit of code? Code with no business processing, just a read thru the file (i mentioned this last night).
You may have "fallen out the bottom" of this set of problem code. |
|
| Back to top |
|
|
|
|
