|
View previous topic :: View next topic
|
| Author |
Message |
Stefan
Active User
Joined: 12 Jan 2006
Posts: 113
Location: Germany
|
|
|
|
My definitions in FILE-CONTROL and FILE SECTION are as follows:
| Code: |
SELECT RCXMLIN ASSIGN TO RCXMLIN
ORGANIZATION IS SEQUENTIAL
ACCESS IS SEQUENTIAL
FILE STATUS IS S-FILESTATUS-XMLIN.
FD RCXMLIN RECORDING MODE IS V
RECORD IS VARYING IN SIZE
FROM 1 TO 04000 CHARACTERS
DEPENDING ON Z-SL-RCXMLIN
LABEL RECORDS ARE OMITTED
BLOCK CONTAINS 0 RECORDS.
01 XMLIN-SATZ PIC X(04000).
|
And here is my READ statement:
| Code: |
READ RCXMLIN
AT END
SET S-STATUS-XMLIN-EOF TO TRUE
NOT AT END
SET S-STATUS-XMLIN-FOUND TO TRUE
END-READ
|
I don't understand why the compiler (version 6.4) issues the following message when parsing the READ statement:
IGYPG3178-I A "READ" statement was found for a file whose "FD" had a shortest record
length that was not equal to the lower "RECORD IS VARYING" integer or a
longest record length that was not equal to the higher "RECORD IS VARYING" integer.
A record length conflict could occur at execution.
For a more reliable program, change the "FD" so that the shortest and
longest record lengths match the "RECORD IS VARYING" integers.[/code] |
|
| Back to top |
|
 |
Garry Carroll
Senior Member
Joined: 08 May 2006
Posts: 1217
Location: Dublin, Ireland
|
|
|
|
For V format, should it be varying from 5 to 4004 - to allow for the RDW?
Garry. |
|
| Back to top |
|
|
Stefan
Active User
Joined: 12 Jan 2006
Posts: 113
Location: Germany
|
|
|
|
Thank you Gary for your quick reply.
I changed the boundaries to "FROM 5 to 4004 CHARACTERS" but got the same message. |
|
| Back to top |
|
|
prino
Senior Member
Joined: 07 Feb 2009
Posts: 1325
Location: Vilnius, Lithuania
|
|
|
|
| The message is inly "I", so you should be able/willing to ignore it. |
|
| Back to top |
|
|
prino
Senior Member
Joined: 07 Feb 2009
Posts: 1325
Location: Vilnius, Lithuania
|
|
|
|
| Better ask on the IBM-MAIN mailing list... |
|
| Back to top |
|
|
Stefan
Active User
Joined: 12 Jan 2006
Posts: 113
Location: Germany
|
|
|
|
Whenever the compiler issues a message, even if it is of type "I", I try at least to take it seriously and understand it.
Meanwhile the moderator of another forum solved the problem by changing the definition of the input records as follows:
| Code: |
01 XMLIN-SATZ.
05 XMLIN-SATZ-REC OCCURS 1 TO 4000
DEPENDING ON Z-SL-RCXMLIN
PIC X(01). |
This did the trick. Message IGYPG3178-I did not reappear. |
|
| Back to top |
|
|
|
|
