RE: Two Questions.

["Chaudhary, Sachin \(GE Equipment Services, Consultant\)" <sachin.chaudhary@xxxxxx>]

Hi Syed,
External DS works good for point# 1.
There is no direct way in a CL that I know of, but you may use DSPFD ...get the 
information in an outfile (use INFO TYPE *RCDFMT) , which will return the 
length of the record format, which you may use in your CL.

Sachin

-----Original Message-----
From: rpg400-l-bounces+sachin.chaudhary=ge.com@xxxxxxxxxxxx
[mailto:rpg400-l-bounces+sachin.chaudhary=ge.com@xxxxxxxxxxxx]On Behalf
Of Tony Carolla
Sent: Wednesday, May 11, 2005 11:51 AM
To: RPG programming on the AS400 / iSeries
Subject: Re: Two Questions.


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
-- 
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.