MVSFORUMS.com Forum Index MVSFORUMS.com
A Community of and for MVS Professionals
 
 FAQFAQ   SearchSearch   Quick Manuals   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Error converting Telon to Cobol

 
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Problem Determination
View previous topic :: View next topic  
Author Message
venkat
Guest






PostPosted: Wed Aug 11, 2004 1:34 am    Post subject: Error converting Telon to Cobol Reply with quote

Hi,
For one of the Programs namely batch program in production one of the variables namely description varies from 1 to 3500.But it is not working for (If we compile with E.Cobol),the program abends with FILE_STATUS '44'.it is working fine when we complie with os/vs cobol.we are doing telon to cobol conversion.for that we are compiling the telon program with OS/VS Cobol and the converted one with Enterprise cobol.iam enclosing the following code below.first statement description is for telon program.second one is for converted program.If i am not changing from 1 to 0 in the occurs clause in the second one i am getting U4094 Abend ie i am compiling with Enterprise cobol.First statement is compiled with OS/VS Cobol.If i am changing the second statement to from 1 to 0 i am getting return code 0.But i am getting empty output file.i have to compare the output file between the telon program and the converted one .I should not get any differences between the two output files when i compare.can you kindly tell me how to resolve this problem.
Code:

01 STATEMENT-DESCRIPTION.                                     
  05 A1         PIC 9(7) COMP-3.           
  05 BYTE-COUNTER                   PIC 9(4) COMP-3.           
  05 A2  OCCURS 1 TO 3500                         
           DEPENDING ON BYTE-COUNTER                           
                   INDEXED BY SI.                             
     11 ONE-BYTE                      PIC X.


01 STATEMENT-DESCRIPTION.                               
  05 A1         PIC 9(7) COMP-3.   
  05 BYTE-COUNTER                   PIC 9(4) COMP-3.   
  05 A2 OCCURS 0 TO 3500                   
           DEPENDING ON BYTE-COUNTER                   
                   INDEXED BY SI.                       
     11 ONE-BYTE                      PIC X.
Back to top
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12376
Topics: 75
Location: San Jose

PostPosted: Wed Aug 11, 2004 4:50 am    Post subject: Reply with quote

Venkat,

please open posts with more meaningful topics. A title like 'abend' does not tell anything. Also choose the approriate forum. Abends & debugging go into the Problem determination forum. I am editing the title to reflect the post and also moving this post to the problem determination forum.

A file status code of 44 means that A boundary violation exists because an attempt was made to rewrite a record to a file and the record was not the same size as the record being replaced, or an attempt was made to write or rewrite a record that was larger than the largest or smaller than the smallest record allowed by the RECORD IS VARYING clause of the associated file-name.

Possible causes are:


  • Attempting to WRITE or REWRITE a record that is larger than the largest, or smaller than the smallest record allowed by the RECORD IS VARYING clause of the associated file

  • Attempting to REWRITE a record to a file and the record is not the same size as the record being replaced.


So I would check your file declaration and the write paragraph to see if the any of the above is true.

Hope this helps...

Cheers

kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu
Back to top
View user's profile Send private message Send e-mail Visit poster's website
venkat
Guest






PostPosted: Wed Aug 11, 2004 5:20 am    Post subject: Problem Determination Reply with quote

Hi,
I have checked for both the telon and the converted one.I am enclosing the jcl below.both are having varying record lengths.Logical record length is the same.

Telon Version
//DD1 DD DSN=A1.A2.A3(+1),DISP=(,CATLG,DELETE),
// UNIT=SYSDA,
// DCB=MODDSCB,RECFM=VB,BLKSIZE=0,LRECL=3511,DSORG=PS),
// SPACE=(3511,(10,1),RLSE),AVGREC=K

Converted version


/DD2 DD DSN=A4.A5.A6,DISP=(,CATLG,DELETE),
// UNIT=SYSDA,
// DCB=MODDSCB,RECFM=VB,BLKSIZE=0,LRECL=3511,DSORG=PS),
// SPACE=(3511,(10,1),RLSE),AVGREC=K

Regards

Venkat
Back to top
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12376
Topics: 75
Location: San Jose

PostPosted: Wed Aug 11, 2004 5:59 am    Post subject: Reply with quote

venkat,

Did you miss reading this statement in my program?
Quote:

So I would check your file declaration and the write paragraph to see if the any of the above is true.


Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu
Back to top
View user's profile Send private message Send e-mail Visit poster's website
venkat
Guest






PostPosted: Thu Aug 12, 2004 6:30 am    Post subject: Reply with quote

Hi Kolusu,
Any updates on my problem.

Regards

Venkat
Back to top
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12376
Topics: 75
Location: San Jose

PostPosted: Thu Aug 12, 2004 7:34 am    Post subject: Reply with quote

Quote:

Any updates on my problem.


Venkat,

Even though I would like to help people, sometimes it hard to answer a question when I don't have sufficient information. Please remember that I am not a psychic. I can't see through your problem unless you post a post detailed information.

I pointed out twice to check the WRITE paragraph, and you did nothing, instead you come back and ask me for an update of the problem.

call me dumb but I can't answer a question without proper information.

Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu
Back to top
View user's profile Send private message Send e-mail Visit poster's website
venkat
Guest






PostPosted: Thu Aug 12, 2004 10:01 am    Post subject: Reply with quote

Hi Kolusu,
After the write statement it is giving file status code 44 if it is same as the production copybook like 1 to 3500 times.Before the write statement it was 0 and after the write statement it is giving 4094 abend for the converted code.But if we change the copybook like 0 to 3500 times it is not giving abend but an empty output file is created.I am not able to compare the output files between the telon version and the converted version.Could you tell me any information how to go about for the variable length record in enterprise cobol.

Venkat
Back to top
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12376
Topics: 75
Location: San Jose

PostPosted: Thu Aug 12, 2004 10:36 am    Post subject: Reply with quote

venkat,

Go thru the solution posted by me in this topic.

http://www.mvsforums.com/helpboards/viewtopic.php?t=2733

Also check this link which explains in detail about Requesting variable-length format

http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/IGY3PG10/1.9.1.1.3?DT=20020923143836#HDRWQ294

Hope this helps...

Cheers

Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu
Back to top
View user's profile Send private message Send e-mail Visit poster's website
Mike Chantrey
Intermediate


Joined: 10 Sep 2003
Posts: 234
Topics: 1
Location: Wansford

PostPosted: Thu Aug 12, 2004 10:55 am    Post subject: Reply with quote

Note that this was posted on 'the other board' (bre's one I mean!) and I noted that it was not clear whether the poster had gone through the migration process from OS/VS COBOL to later releases or if they were just recompiling it without doing this. Following the migration guide might well solve any/all of the problems.
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Problem Determination All times are GMT - 5 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


MVSFORUMS
Powered by phpBB © 2001, 2005 phpBB Group