IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

I O error


IBM Mainframe Forums -> COBOL Programming
Post new topic   Reply to topic
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
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
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
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
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
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 View Bookmarks
All times are GMT + 6 Hours
Forum Index -> COBOL Programming

 


Similar Topics
Topic Forum Replies
No new posts Error to read log with rexx CLIST & REXX 11
No new posts Error when install DB2 DB2 2
No new posts CLIST - Virtual storage allocation error CLIST & REXX 5
No new posts Error while running web tool kit REXX... CLIST & REXX 5
No new posts Getting Error while trying to establi... DB2 3
Search our Forums:

Back to Top