Re: Prompting in a Program

[Mike <koldark@xxxxxxxxx>]

Thanks Michael, I think this is what I want.

On 6/28/06, Michael_Schutte@xxxxxxxxxxxx <Michael_Schutte@xxxxxxxxxxxx>
wrote:
> In the DDS, you must specify this for the screen.
>
> A                                      RTNCSRLOC(&RECLOC &FLDLOC)
> A            RECLOC        10A  H
> A            FLDLOC        10A  H
>
> Then in the RPG, I usually create a procedure that holds all of the
> PROMPTING code.
>
>   If *InKD;
>      Prompt();
>   EndIf;
>
>
> P Prompt    B
> D           PI
>
> /Free
>
>    If FLDLOC = 'FLD001';
>       // field one prompting
>       If selection <> *Blanks;
>          Fld001 = Selection;
>       EndIf;
>
>    elseIf fldloc = 'FLD002';
>       // field two prompting
>       If selection <> *Blanks;
>          Fld001 = Selection;
>       EndIf;
>    EndIf;
>
> /End-Free
> P Prompt     E
>
>
> Michael Schutte