RE: Compiling Errors - Record Contains

[Winchester Terry <terry.winchester@xxxxxxxxxxxxxxx>]

Eric,

Why are you using the RECORD CONTAINS statment?
This is not really necessary with ILE/Cobol unless
your trying to stay platform neutral.

Terry


> -----Original Message-----
> From: Eric Tubbs [mailto:eatubbs@email.com]
> Sent: Sunday, July 28, 2002 8:01 PM
> To: cobol400-l@midrange.com
> Subject: Compiling Errors - Record Contains
>
>
> Greetings again,
>
> I have been working on RECORD CONTAINS error problem for over
> 2 hours now. I cannot seem to figure out what I am doing
> wrong. The physical file has a record format of 42. Do I have
> to make this number higher? I have tried all the way up to 76 or more.
>
> The file listings below are:
>
> Physical File Listing
> Source Code
> Section of Codes where errors are located by compiler
> Error listings
>
> I believe my problem stems from either the physical file or I
> am somehow not referencing or leaving out something
> important. Fi you could point me in the right direction of my
> errors, i would be greatful. But please do not just give out
> the code, I guess a hint would be a better way of putting it.
>
>
                   < CODE SNIPPED>
>
>
> Error listings:
>
>   5769CB1 V4R4M0  990521            AS/400 COBOL Messages
>       TUBBS/CHPT0
>    STMT
>  *   13  MSGID: LBL0116  SEVERITY: 20  SEQNBR:  003000
>          Message . . . . :   Largest record description does not match
>            RECORD CONTAINS clause for file. '40' assumed.
>  *   13  MSGID: LBL0117  SEVERITY: 20  SEQNBR:  003000
>          Message . . . . :   Smallest record description '40'
> characters.
>           Does not match RECORD CONTAINS. '40' assumed.
> *   13  MSGID: LBL0650  SEVERITY: 00  SEQNBR:  003000
>         Message . . . . :   Blocking/Deblocking for file
>           'CUSTOMER-TRANSACTION-FILE' will be performed by
>           compiler-generated code.
>
> This third error message, I know what this one means, because
> it was pointed out to me on this list.
>
> *   21  MSGID: LBL0116  SEVERITY: 20  SEQNBR:  004000
>         Message . . . . :   Largest record description does not match
>           RECORD CONTAINS clause for file. '70' assumed.
> *   21  MSGID: LBL0117  SEVERITY: 20  SEQNBR:  004000
>         Message . . . . :   Smallest record description '70'
> characters.
>           Does not match RECORD CONTAINS. '70' assumed.
>
>
> Thanks,
>
> Eric
> --
> __________________________________________________________