Re: data structure length problem

[Marco Facchinetti <facchinetti@xxxxxxxxx>]

In RPGIV it will work, wanna try CVTRPGSRC?
If you still want to use RPGIII try this:
IMM          DS                        801            
I                                        1 200 X1     
I                                        1  10 FIELD1 
I                                       11  15 FIELD2 
I                                      201 400 X2     
I                                      401 402 FIELDA 
I                                      403 415 FIELDB 

MM is 801 bytes long only the subfields must be not longer
than 256.

--- Sean Porterfield <sporter@bestdist.com> wrote:
> Hi all, I'm new to the list and having a problem.  I've
> never had any
> RPG training, so please forgive my ignorance.
> 
> I'm trying to write a record to a file that is one 801
> character field.
> It is made up of various different bits of information,
> so I created a
> data structure based on the record format.  I've been
> getting all kinds
> of errors and finally reduced it to one level 10 severity
> error:
> 
> 
>  * QRG4140 Severity:  10   Number:    1
>            Message . . . . :   Data-Structure-Subfield
> length exceeds
> 256.
>              Subfield length defaults to 256.
> 
> I tried compiling anyway (changing the severity on the
> CRTRPGPGM
> command) to see what would happen, but it wrote blank
> records to my
> file.  Is there a trick to making it work?  Would it work
> in RPG IV
> instead of RPG III?
> 
> I've tried many, many different ways of creating the data
> structure, but
> nothing has worked.   The online manual wasn't very
> helpful to me.
> 
> I'd be happy to provide code if that will help.  Thanks!
> 
> +---
> | This is the RPG/400 Mailing List!
> | To submit a new message, send your mail to
> RPG400-L@midrange.com.
> | To subscribe to this list send email to
> RPG400-L-SUB@midrange.com.
> | To unsubscribe from this list send email to
> RPG400-L-UNSUB@midrange.com.
> | Questions should be directed to the list
> owner/operator: david@midrange.com
> +---


__________________________________________________
Do You Yahoo!?
Yahoo! Mail - Free email you can access from anywhere!
http://mail.yahoo.com/
+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---