Re: Data Structures with Structures

["Simon Coulter" <shc@xxxxxxxxxxxxxxxxx>]

Œ
Hello Erick,

You wrote:
>As for the command qualifier format that I am using it looks like this:
>
> FAXPARM:    ELEM       TYPE(*CHAR) LEN(10) CHOICE(*PGM) +          
>                          CHOICEPGM(*LIBL/SMR3000) PROMPT('Fax +    
>                          parameter')                               
>             ELEM       TYPE(*DEC) LEN(4) PROMPT('Beginning column')
>             ELEM       TYPE(*DEC) LEN(4) PROMPT('Ending column')   

That's good.  In this case your structure will have offset values after the 
initial element count so the structure you originally defined won't work.  
You'll need something like my final example.  Also, *DEC values are PACKED 
values but your data structure maps them as ZONED.  That isn't going to 
work either.

>Now I did consider using *INT2, but the command processor is using a CL 
>and according the command help I can't do this. This is the help text that 
>I received:
....
>CL programs do not support using binary values in variables.                   
>    
                                                              
Don't believe everything you read in the help text!  *INT2 and *INT4 can be 
represented in CL as CHAR(2) and CHAR(4).  They can be manipulated with the 
%BIN function.  In this case the numeric values are defined inside an 
element list so from CL's point of view the parameter is just one big 
character field.  It seems that the real processing of the element list 
happens in your RPG program so CL simply passes the address of the element 
list.  It doesn't care that there are binary values in the data.

Regards,
Simon Coulter.

«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»
«» FlyByNight Software         AS/400 Technical Specialists       «»
«» Eclipse the competition - run your business on an IBM AS/400.  «»
«»                                                                «»
«» Phone: +61 3 9419 0175   Mobile: +61 0411 091 400        /"\   «»
«» Fax:   +61 3 9419 0175   mailto: shc@flybynight.com.au   \ /   «»
«»                                                           X    «»
«»               ASCII Ribbon campaign against HTML E-Mail  / \   «»
«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»
+---
| 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
+---