Re: How to use the DSM QsnSetCsrAdr API?

["M. Lazarus" <mlazarus@xxxxxxxx>]

Bryan,

 Nifty program.  Since I am specifying all the parms, the prototype 
is not the issue.  I think that there needs to be a lot more setup 
done on the screen buffer before using this API.

 -mark

At 1/21/09 05:34 PM, you wrote:
> here:
> http://www.lisug.org/Techtipdspdspatr.htm
>
> they show
>
>   * Set cursor address.
> D SetCsrAdr       PR            10I 0 ExtProc( 'QsnSetCsrAdr' )
> D  FldID                        10I 0 Options( *Omit ) Const
> D  CsrRow                       10I 0 Options( *Omit ) Const
> D  CsrCol                       10I 0 Options( *Omit ) Const
> D  CmdBuf                       10I 0 Options( *Omit ) Const
> D  EnvHnd                       10I 0 Options( *Omit ) Const
> D  ErrorDS                            Options( *Omit ) Like(ApiErrCode)
>
>
> Maybe this will help
>
>
>
> M. Lazarus said the following on 1/21/2009 5:24 PM:
> >   I am attempting to add a panel to a program that contains many
> > indicators.  In order to avoid conflicting with the existing
> > indicator set I'd like to add the reverse image / position cursor
> > attributes without indicators.
> >
> >   For the color and underline I'm using DSPATR(&AttrField) in the
> > DDS.  That works fine.  Unfortunately, that doesn't work for the
> > position cursor.
> >
> >   For position cursor, I would like to attach the attribute to the
> > field, not to screen coordinates. I'm attempting to use the 
> following DSM API.
> >
> > D SetCsrAdr       PR                  ExtProc( 'QsnSetCsrAdr' )
> > D  FieldID                      10I 0 Const
> > D  Row                          10I 0 Const
> > D  Column                       10I 0 Const
> > D  CmdBuf                       10I 0
> > D  LowLevel                     10I 0 Const
> > D  ErrorCode                    10I 0 Const
> >
> >
> >   SetCsrAdr( 1: 0: 0: CmdBuf: 0: 0 ) ;
> >   EXFMT  FMT1 ;
> >
> >
> >   Error generated is:
> >
> > Message ID . . . . . . :   CPFA33C       Severity . . . . . . . :   40
> > Message type . . . . . :   Escape
> >
> > Message . . . . :   Undefined field ID 1.
> > Cause . . . . . :   The field ID 1 specified on the operation was 
> deleted or
> >    is undefined.
> > Recovery  . . . :   Specify a field ID that is defined through 
> the QsnSetFld
> >    API and try the request again.
> > __________________________________
> >
> >   Does that mean that the entire screen must be generated via
> > DSM?  Or can I retrofit this in combination with standard DDS?
> >
> >   Thanks.
> >
> >   -mark
> >
> --
> This is the RPG programming on the IBM i / System i (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.