* 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
As an Amazon Associate we earn from qualifying purchases.
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.