View previous topic :: View next topic |
Author |
Message |
venkat Guest
|
Posted: Wed Aug 11, 2004 1:34 am Post subject: Error converting Telon to Cobol |
|
|
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
Joined: 26 Nov 2002 Posts: 12376 Topics: 75 Location: San Jose
|
Posted: Wed Aug 11, 2004 4:50 am Post subject: |
|
|
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 |
|
|
venkat Guest
|
Posted: Wed Aug 11, 2004 5:20 am Post subject: Problem Determination |
|
|
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
Joined: 26 Nov 2002 Posts: 12376 Topics: 75 Location: San Jose
|
Posted: Wed Aug 11, 2004 5:59 am Post subject: |
|
|
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 |
|
|
venkat Guest
|
Posted: Thu Aug 12, 2004 6:30 am Post subject: |
|
|
Hi Kolusu,
Any updates on my problem.
Regards
Venkat |
|
Back to top |
|
|
kolusu Site Admin
Joined: 26 Nov 2002 Posts: 12376 Topics: 75 Location: San Jose
|
Posted: Thu Aug 12, 2004 7:34 am Post subject: |
|
|
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 |
|
|
venkat Guest
|
Posted: Thu Aug 12, 2004 10:01 am Post subject: |
|
|
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
Joined: 26 Nov 2002 Posts: 12376 Topics: 75 Location: San Jose
|
|
Back to top |
|
|
Mike Chantrey Intermediate
Joined: 10 Sep 2003 Posts: 234 Topics: 1 Location: Wansford
|
Posted: Thu Aug 12, 2004 10:55 am Post subject: |
|
|
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 |
|
|
|
|