Re: Subfile Control Issue

["Michael Ryan" <michaelrtr@xxxxxxxxx>]

Would it be different if you used CF09 (to return data to the program)
rather than CA09?

On 8/10/07, Jerry Adams <jerry@xxxxxxxxxxxxxxx> wrote:
> The subfile control contains fields defined as both input and output.
> The subfile itself is a list of all previously entered transactions
> (with a select field that can be used to select the transaction for
> update or deletion).  Two of the subfile control fields are promptable;
> if the client presses F9 while positioned on the field, an appropriate
> inquiry program is called from which the client may select the value to
> use for the field.
>
>
> The problem that I am having is that, after the F9 key is pressed and
> the primary program's subfile is re-displayed, any previously entered
> fields are cleared (blank or zero).  The control logic is:
>
>
>     DOW FKey  <>  F3;
>
>       WRITE MCU004AFK;  // Function keys
>       WRITE MSGSFLB;    // Message subfile
>       EXFMT MCU004ACTL; // Subfile control
>       EXSR  $CMsg;      // Clear message subfile
>
>       IF  FKey  = F3;
>         LEAVE;
>       ENDIF;
>
>
>       IF  FKey  = F9    // Prompt function
>       AND zzfld = 'UMA';
>         s#um = '***';
>         arq018(s#um:term);
>         IF  s#um <> *Blanks;
>           uma = s#um;
>         ENDIF;
>         ITER;
>      ENDIF;
>
>
> I have done this several times before with success; i.e., previously
> entered fields are re-displayed with the values entered before the
> prompt fills in data.  The difference is that, in those cases, these
> have been simple record panels, not subfile controls.
>
>
> The subfile control record has:
>
>               R MCU004ACTL                SFLCTL(MCU004A)
>                                           OVERLAY
>                                           SFLSIZ(9999)
>                                           SFLPAG(0014)
>       33                                  SFLDSP
>      N31                                  SFLDSPCTL
>       31                                  SFLCLR
>       90                                  SFLEND(*MORE)
>                                           CA09
>                                           RTNCSRLOC(&ZZRCD &ZZFLD &ZZPOS)
>                 ZZRCD         10A  H
>                 ZZPOS          4S 0H
>                 ZZFLD         10A  H
>                 RRN            4S 0H      SFLRCDNBR
>
>
> Am I missing a SFLxxx keyword, or is it not possible to do what I want
> with a subfile control?
>
> Thanks.
> --
>         * Jerry C. Adams
> *IBM System i Programmer/Analyst
> B&W Wholesale Distributors, Inc.* *
> voice
>         615.995.7024
> fax
>         615.995.1201
> email
>         jerry@xxxxxxxxxxxxxxx <mailto:jerry@xxxxxxxxxxxxxxx>
>
>
> --
> This is the RPG programming on the AS400 / iSeries (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.