RE: Re: QDFRTVFD to get field's position (row column) on adisplay format

Tommy, you went SPAM again!

Jack

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Holden Tommy
Sent: Friday, January 27, 2006 12:49 PM
To: RPG programming on the AS400 / iSeries
Subject: RE: Re: QDFRTVFD to get field's position (row column) on adisplay
format

 * List Fields API Procedure                             
DListFields       pr                  ExtPgm('QUSLFLD')  
d  CUSFldUSName                 20a   Const              
d  CUSRcdFmt                     8a   Const              
d  CUSPFName                    20a   Const              
D  PFRcdFmt                     10a   Const              
d  OverrideProc                  1a   Const              
d  ErrorCode                 32766a   options(*varsize)  

 * List Fields DS                                    
D FldPtr          s               *                  
DLstFldDS         ds                  Based(FldPtr)  
D  FldName                      10a                  
D  FldDataType                   1a                  
D  FldUsage                      1a                  
D  FldOutBuffPos                10i 0                
D  FldInBuffPos                 10i 0                
D  FldLength                    10i 0                
D  FldDigits                    10i 0                
D  FldDecimals                  10i 0                
D  FldDesc                      50a                  
D  FldEditC                      2a                  
D  FldEditWLen                  10i 0                
D  FldEditWord                  64a                  
D  FldColHdg1                   20a                  
D  FldColHdg2                   20a                  
D  FldColHdg3                   20a       
D  FldIntName                   10a       
D  FldAltName                   30a       
D  FldAltLen                    10i 0     
D  FldDBCS#                     10i 0     
D  FldAllowNull                  1a       
D  FldHostVar                    1a       
D  FldDateFormat                 4a       
D  FldDateSep                    1a       
D  FldVarSize                    1a    
D  FldDescCCSID                 10i 0  
D  FldDataCCSID                 10i 0  
D  FldColHCCSID                 10i 0  
D  FldEdtWCCSID                 10i 0  
D  FldUSC2Len                   10i 0  
D  FldDataEncode                10i 0  
D  FldMaxObjLen                 10i 0  
D  FldPadLen                    10i 0  
D  FldUDTLen                    10i 0     
D  FldUDTName                  132a       
D  FldUDTLib                    10a       
D  FldDLCntl                     1a       
D  FldDLInteg                    1a       
d  FldDLRead                     1a       
d  FldDLWrite                    1a       
d  FldDLRecover                  1a       
d  FldDLUnlink                   1a       
d  FldDspRow                    10i 0   
d  FldDspColumn                 10i 0   
d  FldROWIDCol                   1a     
D  FldIdentity                   1a     
D  FldGenerateBy                 1a     
D  FldIDCycle                    1a     
D  FldIDOrgStart                31s 0   
D  FldIDCurStart                31s 0   
D  FldIDIncremet                10i 0   
D  FldIDMinVal                  31s 0         
d  FldIDMaxVal                  31s 0         
d  FldIDCache                   10i 0         
D  FldIDOrder                    1a           
D  FldIDReserve                 11a           

 // * Create Field List    
 ListFields(CUSFldUSName:  
            'FLDL0100':    
            CUSPFName:     
            RcdFmtName:    
            OverrideProc:  
            ErrorDS);      
                                        
 // * Access Data via Pointer           
 UserSpacePntr(CUSFldUSName:FldPtr);

That should get you most of the way there...


Thanks,
Tommy Holden


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Dan
Sent: Friday, January 27, 2006 11:23 AM
To: RPG programming on the AS400 / iSeries
Subject: **SPAM** Re: QDFRTVFD to get field's position (row column) on a
display format

On 1/27/06, Douglas Handy <dhandy@xxxxxxxxx> wrote:
>
> Michael,
>
> >Use the QUSLFLD api
>
> From what I can tell, no format in QUSLFLD returns the row/col
position of
> a
> DSPF field, which is the what Dan wants to do.  Or at least in the
version
> I
> looked at.


I haven't had much time to dig into this just yet, as I'm printing 1099s
today, but a cursory glance at the v5r2 Database & File API reference
*seems* to indicate that QUSLFLD does return row/column positions for
display file fields.  In the FLDL0100 structure, offset 448 & 452, the
"Display or print row number" and "Display or print column number" are
defined, respectively.

Now, I just gotta see if anyone's already invented that wheel.

- Dan