Re: Prompting in a Program

[Michael_Schutte@xxxxxxxxxxxx]

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



                                                                           
             Mike                                                          
             <koldark@xxxxxxxx                                             
             m>                                                         To 
             Sent by:                  "RPG programming on the AS400 /     
             rpg400-l-bounces@         iSeries" <rpg400-l@xxxxxxxxxxxx>    
             midrange.com                                               cc 
                                                                           
                                                                   Subject 
             06/28/2006 10:19          Prompting in a Program              
             AM                                                            
                                                                           
                                                                           
             Please respond to                                             
              RPG programming                                              
              on the AS400 /                                               
                  iSeries                                                  
             <rpg400-l@midrang                                             
                  e.com>                                                   
                                                                           
                                                                           




I want to add a couple F4 prompts in a program I am writting. It has been
so
long, I don't remember at all and I can't find a great example here at
work.
Does anyone have a good sample or place I can go to see what needs to be
done. There will be two or more prompts on the screen.

--
Mike Wills
koldark@xxxxxxxxx
http://theriverbendpodcast.com
--
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.