MVSFORUMS.com

pvrajs · Beginner Joined: 07 Jan 2005 Posts: 41 Topics: 12

I have written a simple program which will read 2 generation files, compare the count of the records and set the return code of the cobol program.

The test job is returning me an error of Status 35. Please help me in rectifying the error. Details are as below -

Job:

//S005 EXEC PGM=<PRGNAME>
//SYSPRINT DD SYSOUT=*
//STEPLIB DD DISP=SHR,DSN=<LOADLIB>
//PREVGEN DD DISP=SHR,DSN=<PREV GEN>
//CURRGEN DD DISP=SHR,DSN=<CURR GEN>
//SYSIN DD *
01
/*

Program:

FILE-CONTROL.
SELECT CURRGEN ASSIGN S-CURR-GEN
ORGANIZATION IS SEQUENTIAL
ACCESS IS SEQUENTIAL.

SELECT PREVGEN ASSIGN S-PREV-GEN
ORGANIZATION IS SEQUENTIAL
ACCESS IS SEQUENTIAL.

0100-OPEN-READ.
OPEN INPUT PREVGEN
PERFORM UNTIL PREV-GEN-EOF
READ PREVGEN
AT END
................

Error:

IGZ0035S There was an unsuccessful OPEN or CLOSE of file GEN in program DSARECCM at relative location X'0660'. Neither FILE STATUS nor an ERROR declarative were specified. The status code was 35. From compile unit DSARECCM at entry point DSARECCM at compile unit offset +00000660 at entry offset +00000660 address 20800908.
Description Online:

An OPEN statement with the INPUT, I-O, or EXTEND phrase was attempted on a non-optional file that was not present.

Thanks,
Vijay

Bill Dennis · Posted: Fri Dec 29, 2006 3:00 pm Post subject:

Where do you open CURRGEN?
_________________
Regards,
Bill Dennis

Disclaimer: My comments on this foorum are my own and do not represent the opinions or suggestions of any other person or business entity.

kolusu · Posted: Fri Dec 29, 2006 3:59 pm Post subject:

pvrajs · Beginner Joined: 07 Jan 2005 Posts: 41 Topics: 12

Thanks Bill and Kolusu. It executed fine.

Bill, to answer your question I opened the other file using another statement.

Kolusu, apologize for getting into the basics. I understand from the syntax of SELECT clause that S-CURR-GEN refers to the device-name and can be any valid dataname. Please clarify.

Thanks,
Vijay

kolusu · Posted: Tue Jan 02, 2007 12:09 pm Post subject:

Pvrajs,

Any thing you specify before the first hyphen is considered as the device name. But you had the hyphen even after CURR. It is not a valid device name. The Assign clause for the old cobol compilers had to contain specific device specifications. In that was a Symbolic-Device this was to assign a specific number to each device (ie. SYS001-255) and with it was a Device Class (UR,UT,DA).

Check this link for detailed explanation

http://www.mvsforums.com/helpboards/viewtopic.php?p=7137#7137

Hope this helps...

Cheers

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

pvrajs · Beginner Joined: 07 Jan 2005 Posts: 41 Topics: 12

Thanks a lot Kolusu