Re: Prompting in a Program

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