Blog Archive

RPGLE free format *ENTRY parms prototype definition

All you need to do is create a prototype definition and a procedure interface. Any procedure interface found in the global definitions is assumed to be the procedure interface for the main procedure. The name is required for the procedure interface for the main procedure, and the prototype with the matching name must precede the procedure interface in the source. You do not need to code anything special to define the main procedure; it consists of everything before the first Procedure specification. Here is an example ...

Free format RPGLE example replacing *ENTRY with procedure

d MainRoutine     PR                  Extpgm('PROGRAMC')   
d                               30a                        
d                                3s 0                      
d MainRoutine     PI                                       
d $name                         30a                        
d $age                           3s 0                      
d $message        s             52a                        
    $message = 'My name is ' + %trim($name) + ', ' +       
              'age ' + %trim(%editc($age:'Z')) + ' years.'; 
    dsply $message;                                        
    eval *inlr = *on;                                      

Sample RPGLE program calling another program without *ENTRY

d $name           s             30a   inz('as400')      
d $age            s              3s 0 inz(21)           
d ProgramC        PR                  Extpgm('PROGRAMC')
d $name_                        30a                     
d $age_                          3s 0                   
    eval *inlr = *on;                                   


  1. مدونة العاب فلاش الصعيدي تقدم لكم مجموعة العاب بنات 2018 اكثر من رائعة ومميزة جدا ونتمني ان تنال اعجابكم لانها مجموعة مميزة جدا وايضا نقدم لكم العاب بنات 2017 كما تقدم لكم المدونة العاب طبخ 2018 مدونة العاب فلاش الصعيدي رائعة جدا ونتمني منك ان تلقي نظرة عليها انها حقا رائعة واكثر من رائعة