Re: Catching F3/F12 from QCMDEXC?

[rob@xxxxxxxxx]

I am amazed.  You are doing something wrong with QCAPCMD.  A fella here
just did that last week and went nuts.

Granted, his code could use some work.  He thinks that CALLP is the root of
all evil and that if statements should be old fashioned and take up
multiple lines, but he doesn't seem to be api phobic.


...
     D ErrC0100        DS
     D  BytesProvided                10I 0 INZ(%Len(ErrC0100))
     D  BytesAvail                   10I 0 INZ(0)
     D  ExceptId                      7A
     D  Reserved1                     1A
     D  ExceptData                  250A
...
     C                   Call      'QCAPCMD'                            50
Error
     C                   Parm                    SrcCmd
     C                   Parm                    SrcCmdLen
     C                   Parm                    OptCtlBlk
     C                   Parm                    OptCtlBlkLen
     C                   Parm                    OptCtlBlkFmt
     C                   Parm                    ChgCmd
     C                   Parm                    ChgCmdLenAvl
     C                   Parm                    ChgCmdLenRet
     C                   Parm                    ErrC0100

     C     ExceptId      IfGT      *Blanks
     C     *In50         OrEq      *On
     C                   MoveL     ExceptData    FnKey
     C                   Move      Failed        Result
     C                   Else
     C                   Move      Okay          Result
     C                   EndIf
...
     C     FnKey         IfEq      F3
     C                   GoTo      #MntB
     C                   EndIf
...


Rob Berendt
--
"They that can give up essential liberty to obtain a little temporary
safety deserve neither liberty nor safety."
Benjamin Franklin



                    "Brad Stone"
                    <brad@bvstools.co       To:     rpg400-l@midrange.com
                    m>                      cc:
                    Sent by:                Fax to:
                    rpg400-l-admin@mi       Subject:     Catching F3/F12 from 
QCMDEXC?
                    drange.com


                    01/09/2002 08:42
                    PM
                    Please respond to
                    rpg400-l






I was wondering,

In PDM when you do a repeat option on a list of member, say
5=Display, while displaying a member, if the user presses F3
or F12, how does PDM catch this and not process the rest of
the entries in the list?

I've tried using QCAPCMD as well, but nothing is returned
and no messages are placed into the job log to notify of
this.
_______________________________________________
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
or email: RPG400-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.