AIX COBOL Porting



Support for OS/VS COBOL, VS COBOL II, COBOL for OS/390 & VM and Enterprise COBOL for z/OS

AIX COBOL Porting

Postby gaya3 » Thu Jul 23, 2009 11:45 am

Hi All,

I have to port COBOL programs from MVS to AIX.
I have issue with the following code:
-----------------------------------------------------------------
SELECT FILECOB ASSIGN TO FILE1.

I have set the value of FILE1 as
export FILE1=/path-where-file-resides/Filename
------------------------------------------------------------------
The above code compiles & link edits without any error.
But during the execution, i get the following message :

IWZ200S Error detected during OPEN for file 'FILECOB'. File status is: 35.
File system indicated: File Not Found.
Message routine called from offset 0x38 of routine iwzWriteERRmsg.
iwzWriteERRmsg called from offset 0x574 of routine _iwzCallUseProc.
_iwzCallUseProc called from offset 0x1538 of routine _iwzSeqOpen.
_iwzSeqOpen called from offset 0x2ec of routine _iwzGenericOpen.
_iwzGenericOpen called from offset 0x458 of routine PGMFILE.
IWZ901S Program exits due to severe or critical error.


Could anyone PLEASE tell me how to correct this error..

Thanks!!
gaya3
 
Posts: 4
Joined: Tue Jun 16, 2009 10:24 am
Has thanked: 0 time
Been thanked: 0 time

Re: AIX COBOL Porting

Postby dick scherrer » Thu Jul 23, 2009 11:24 pm

Hello and welcome to the forum,

Talk with your sysadmin and make sure all of the permissions are set correctly.
Hope this helps,
d.sch.
User avatar
dick scherrer
Global moderator
 
Posts: 6268
Joined: Sat Jun 09, 2007 8:58 am
Has thanked: 3 times
Been thanked: 93 times

Re: AIX COBOL Porting

Postby gaya3 » Fri Jul 24, 2009 8:30 am

I am able to access the file if i write the code as
SELECT FILECOB ASSIGN TO FILE1
ORGANIZATION IS LINE SEQUENTIAL.
But i am not able to access the file for SEQUENTIAL files.

May i know what permissions are needed for accessing the SEQUENTIAL files?
gaya3
 
Posts: 4
Joined: Tue Jun 16, 2009 10:24 am
Has thanked: 0 time
Been thanked: 0 time

Re: AIX COBOL Porting

Postby dick scherrer » Fri Jul 24, 2009 10:10 am

Hello,

I suspect that if you can read the file as LINE SEQUENTIAL, the path/file permissions allow you at least read access.

Suggest you look in the cobol manual for the release/version of cobol you are using to learn what causes a file status 35 in that environment. This is an input or an output file? If this is an input file, perform an experiment by opening this file as output and see what happens. Use a test file name and not the real file name.
Hope this helps,
d.sch.
User avatar
dick scherrer
Global moderator
 
Posts: 6268
Joined: Sat Jun 09, 2007 8:58 am
Has thanked: 3 times
Been thanked: 93 times

Re: AIX COBOL Porting

Postby gaya3 » Fri Jul 24, 2009 11:48 am

I am working this problem out on the below code.
If i give organization as LINE SEQUENTIAL this code works properly. If I give organization as SEQUENTIAL, I get the below error during Execution.

-------------------------------------------------------------------------------------------------
IWZ200S Error detected during OPEN for file 'STUDENTFILE'. File status is: 35.
File system indicated: File Not Found.
Message routine called from offset 0x38 of routine iwzWriteERRmsg.
iwzWriteERRmsg called from offset 0x574 of routine _iwzCallUseProc.
_iwzCallUseProc called from offset 0x1538 of routine _iwzSeqOpen.
_iwzSeqOpen called from offset 0x2ec of routine _iwzGenericOpen.
_iwzGenericOpen called from offset 0x458 of routine SAMPLEFILE.
IWZ901S Program exits due to severe or critical error.
-------------------------------------------------------------------------------------------------

IDENTIFICATION DIVISION.
PROGRAM-ID. SampleFile.


ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT StudentFile ASSIGN EVFILE1. --------> This has been set outside the program as -- export EVFILE1=<path where StudentFile is present>
* SELECT StudentFile ASSIGN STL-EVFILE1.
* ORGANIZATION IS SEQUENTIAL.
* ORGANIZATION IS LINE SEQUENTIAL.


DATA DIVISION.
FILE SECTION.
FD StudentFile.
01 StudentDetails.
02 StudentId PIC 9(7).
02 StudentName PIC X(10).


PROCEDURE DIVISION.
Begin.
OPEN INPUT StudentFile
READ StudentFile
AT END MOVE HIGH-VALUES TO StudentDetails
END-READ
PERFORM UNTIL StudentDetails = HIGH-VALUES
DISPLAY StudentId SPACE StudentName
READ StudentFile
AT END MOVE HIGH-VALUES TO StudentDetails
END-READ
END-PERFORM
CLOSE StudentFile
STOP RUN.

========================================================
gaya3
 
Posts: 4
Joined: Tue Jun 16, 2009 10:24 am
Has thanked: 0 time
Been thanked: 0 time

Re: AIX COBOL Porting

Postby gaya3 » Fri Jul 24, 2009 12:03 pm

And when i try to Open the file in INPUT mode, I get the following error during execution..

IWZ200S Error detected during OPEN for file 'STUDENTFILE'. File status is: 95.
File system indicated: Duplicate File Name.
Message routine called from offset 0x38 of routine iwzWriteERRmsg.
iwzWriteERRmsg called from offset 0x574 of routine _iwzCallUseProc.
_iwzCallUseProc called from offset 0x1538 of routine _iwzSeqOpen.
_iwzSeqOpen called from offset 0x2ec of routine _iwzGenericOpen.
_iwzGenericOpen called from offset 0x140 of routine SAMPLEFILE.
IWZ901S Program exits due to severe or critical error.


Please let me know what else i should try out..
gaya3
 
Posts: 4
Joined: Tue Jun 16, 2009 10:24 am
Has thanked: 0 time
Been thanked: 0 time


Return to IBM Cobol

 


  • Related topics
    Replies
    Views
    Last post