| View previous topic :: View next topic |
| Author |
Message |
stefan
Beginner
Joined: 20 Nov 2003
Posts: 43
Topics: 3
Location: Germany
|
 Posted: Wed May 13, 2026 9:02 am Post subject: IGYPG3178-I when compiling a pgm reading a VB file |
 |
|
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.
_________________
Stefan
There are 10 types of people in the world: Those who understand binary, and those who don't. |
|
| Back to top |
|
 |
kolusu
Site Admin
Joined: 26 Nov 2002
Posts: 12404
Topics: 75
Location: San Jose
|
| Posted: Thu May 14, 2026 1:55 pm Post subject: Re: IGYPG3178-I when compiling a pgm reading a VB file |
|
|
| stefan wrote: |
| Code: |
01 XMLIN-SATZ PIC X(04000). |
|
Stefan,
Try changing your XMLIN-SATZ definition to the following
| Code: |
01 XMLIN-SATZ.
05 XMLIN-SATZ-REC OCCURS 1 TO 4000
DEPENDING ON Z-SL-RCXMLIN
PIC X(01).
|
_________________
Kolusu
www.linkedin.com/in/kolusu |
|
| Back to top |
|
|
stefan
Beginner
Joined: 20 Nov 2003
Posts: 43
Topics: 3
Location: Germany
|
| Posted: Fri May 15, 2026 2:22 am Post subject: |
|
|
Thank you Kolusu for the quick reply. 
Your recommendation did the trick.
_________________
Stefan
There are 10 types of people in the world: Those who understand binary, and those who don't. |
|
| Back to top |
|
|
|
|
|
FAQ
Search
Quick Manuals
Register
Profile
Log in to check your private messages
Log in
