RE: Built in Functions -- RPG400-L

Yes, this routine is from me, but my name is spelled COZZI.  :)

Bob Cozzi

http://www.RPGIV.com




> -----Original Message-----
> From: owner-rpg400-l@midrange.com [mailto:owner-rpg400-l@midrange.com]On
> Behalf Of Carol Bastien
> Sent: Thursday, July 15, 1999 9:10 AM
> To: RPG400-L@midrange.com
> Subject: Re: Built in Functions
> 
> 
> 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          *
> * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
> 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* 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          *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *