Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

I O error

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> COBOL Programming
View previous topic :: :: View next topic  
Author Message
tammy cook

New User


Joined: 30 Nov 2005
Posts: 2

PostPosted: Thu Dec 01, 2005 5:45 pm    Post subject: I O error
Reply with quote

I am trying to create a tape backup in COBOLII of three VSAM files, one of which is being changed to a spanned file (lrecl of > 100000). My program compiles, but I get an unsuccessful open or close error when I try to run the program. The error is on the open. The FD is
LABEL RECORDS ARE STANDARD
BLOCK CONTAINS 0 CHARACTERS
RECORDING MODE IS S.
Back to top
View user's profile Send private message

jon_s_rice

Active User


Joined: 24 Mar 2005
Posts: 102
Location: Douglasville, GA USA

PostPosted: Thu Dec 01, 2005 6:01 pm    Post subject:
Reply with quote

For a VSAM file you need to define a key if the file is KSDS, also a select similar to:
SELECT ACCTMSTR-FILE-IN
ASSIGN TO ACCTMIN
ORGANIZATION IS INDEXED
ACCESS IS SEQUENTIAL
RECORD KEY IS ACCTMSTR-KEY
FILE STATUS IS ACCTMSTR-FILE-STATUS.

There is a different assign for an ESDS file. I thing assign to as-ddname.
Back to top
View user's profile Send private message
tammy cook

New User


Joined: 30 Nov 2005
Posts: 2

PostPosted: Thu Dec 01, 2005 11:39 pm    Post subject:
Reply with quote

I am not creating a VSAM file as the backup, it is tape.
Is there a way around the size limit when creating a tape? I have seen a utility ADRDSSU which backs up to tape with no size limit.
Back to top
View user's profile Send private message
DavidatK

Active Member


Joined: 22 Nov 2005
Posts: 700
Location: Troy, Michigan USA

PostPosted: Fri Dec 02, 2005 4:05 am    Post subject: Re: I O error
Reply with quote

Tammy,

I think you?re limited to 32K record. One method would be to break the record up in the COBOL program and write the record in sections. Make it a variable record length, including an indicator, this could be a key (sequential number) that is applied to each piece of the record. This way, with the length and key you can re-assemble the record.
Back to top
View user's profile Send private message
mmwife

Super Moderator


Joined: 30 May 2003
Posts: 1592

PostPosted: Fri Dec 02, 2005 7:42 am    Post subject:
Reply with quote

Hi Tammy,

IBM now supports large block sizes. They call them something like BLOGS or BLOIS or some such. Problem is it's only supported in Assembler Language.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> COBOL Programming All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts DB2 Program abending without giving a... rahulgarg14 DB2 7 Mon May 29, 2017 8:10 pm
No new posts Getting error while opening a variabl... apandey1 COBOL Programming 5 Fri May 05, 2017 12:22 pm
No new posts IDC2902I Error tzeche ABENDS & Debugging 2 Tue Mar 28, 2017 11:39 am
No new posts Need help with below DB2 error ashek15 DB2 3 Sat Mar 18, 2017 5:56 am
No new posts FINDREP Syntax Error seahawk789 DFSORT/ICETOOL 4 Thu Mar 09, 2017 10:11 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us