Re: Two Questions.

[Tony Carolla <carolla@xxxxxxxxx>]

If you know the record length at compile time, you would simply do what you 
have already done:

D1CustMast DS ExtName(CustMast) OR D1CustMast DS LikeRec(CustMast00)

Then create a DS that overlays the above DS:

D RecChunk DS Based(pRecord)
D Chunk 100A
D pRecord S * Inz(%Addr(CustMastDS))

Replace the 100A with the record length... I am sure there's an API to 
retrieve the record length, and if so, you could create a huge DS based on a 
pointer, and then point the pointer at a user space, and plunk down the 
record DS into the data area. Hopefully you would know the rec length at run 
time. 

I don't do much in CL anymore, thanks to system() and QCMDEXC, so can't help 
you on #2.

On 5/11/05, Shaheen Ahmed <Syed.Ahmed@xxxxxxxxxxxxxxx> wrote:
> 
> I have two Questions for RPG guru's.
> 
> a) Is it possible in RPG to define a data structure length same as the 
> record length of an externally define physical file?.
> I don't want to include the field names in my data structure.
> e.g. (D1CustMast DS ExtName(CustMast) OR D1CustMast DS LikeRec(CustMast00) 
> )
> 
> b) Is it possible to define the length of a variable in CLLE same as the 
> record length of an externally define physical file?.
> 
> --
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
> 
> 


-- 
"Enter any 11-digit prime number to continue..."
"In Hebrew SQL, how do you use right() and left()?..." - Random Thought