Re: Built in Functions

[Dave Mahadevan <mahadevan@xxxxxxxx>]

Carol:

Thanks for the suggestion.  I am aware of the CSRLOC.  The drawback is you have 
to hard
code the row and column.  You cant position by a field name in V3R2.   Managing 
all
those hard coded row and column becomes unwieldy.    We still need the PC 
attribute
added to the program-to-system field.

Carol Bastien wrote:

> Hi Dave,
>
> You may already know this but you can position the cursor w/o an indicator.  
>I'll
> paste a sample of the code here so you can see it.  I've had this sample for 
>so long
> I can't remember where I got it originally (probably from Bob Cosi).  Sorry 
>it's not
> ILE but if you want to use it, you can convert it easily.  Anyway you'll get 
>the
> idea.  Not sure it's more efficient than the indicator, but it gives you more
> control over the cursor.
>
> Position Cursor
>
> DDS Keywords:
>   A                                      CSRLOC(ROW COL)
>   A            ROW            3  0H
>   A            COL             3  0H
>
> RPG Routines:
>   FDSPF    CF  E                    WORKSTN
>   F                                              KINFDS CSRPOS
>    *
>    * File Information Data Structure to determine cursor position
>   ICSRPOS      DS
>   I                                    B 370 3710SCR
>   I                                    B 382 3830WDW
>    * If not a window, position cursor based on screen location
>   C           WDW       IFEQ *ZEROS
>   C           SCR          DIV  256       ROW
>   C                            MVR            COL
>   C                            ELSE
>    *
>    * Else (a window), position cursor based on window location
>   C           WDW       DIV  256       ROW
>   C                            MVR            COL
>   C                            ENDIF
>
> - cb
>
> Dave Mahadevan wrote:
>
> > Position cursor display attribute is badly needed.  I just wish IBM 
>addressed
> > this  situation.  The AS/400 community has requested this ever since the 
>program
> > to system field was conceived.  This will really eliminate the use of 
>indicators
> > in DDS.   What good is the &FIELD when you also have to use an indicator to
> > position cursor, this kinda defeats its purpose.   Also, program to system 
>field
> > should be made available in the buffer (so idiots like me will know what I
> > passed to it in the first place :-) )
> >
> > "Hatzenbeler, Tim" wrote:
> >
> > > I'm in complete favor of all the opcodes being %BIF's  It makes coding a 
>lot
> > > more readable when you don't have to mess with  column based indicators...
> > > I say the more bif's the better....
> > >
> > > Now if there was only way to give named indicators out of the DDS for
> > > DSPF/PRTF life would be perfect, or to increase the functionality of the
> > > DspAtr in the DDS to do position cursoring...
> > >
> > > tim
> > > * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
> > > * This is the RPG/400 Discussion Mailing List!  To submit a new         *
> > > * message, send your mail to "RPG400-L@midrange.com".  To unsubscribe   *
> > > * from this list send email to MAJORDOMO@midrange.com and specify       *
> > > * 'unsubscribe RPG400-L' in the body of your message.  Questions should *
> > > * be directed to the list owner / operator: david@midrange.com          *
> > > * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
> >
> > --
> > Thank You.
> >
> > Regards
> >
> > Dave Mahadevan.. mailto:mahadevan@fuse.net
> >
> > * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
> > * This is the RPG/400 Discussion Mailing List!  To submit a new         *
> > * message, send your mail to "RPG400-L@midrange.com".  To unsubscribe   *
> > * from this list send email to MAJORDOMO@midrange.com and specify       *
> > * 'unsubscribe RPG400-L' in the body of your message.  Questions should *
> > * be directed to the list owner / operator: david@midrange.com          *
> > * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
>
> * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
> * This is the RPG/400 Discussion Mailing List!  To submit a new         *
> * message, send your mail to "RPG400-L@midrange.com".  To unsubscribe   *
> * from this list send email to MAJORDOMO@midrange.com and specify       *
> * 'unsubscribe RPG400-L' in the body of your message.  Questions should *
> * be directed to the list owner / operator: david@midrange.com          *
> * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

--
Thank You.

Regards

Dave Mahadevan.. mailto:mahadevan@fuse.net


* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* This is the RPG/400 Discussion Mailing List!  To submit a new         *
* message, send your mail to "RPG400-L@midrange.com".  To unsubscribe   *
* from this list send email to MAJORDOMO@midrange.com and specify       *
* 'unsubscribe RPG400-L' in the body of your message.  Questions should *
* be directed to the list owner / operator: david@midrange.com          *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *