Information Systems:Tracking source code changes on IBM i

From uniWIKI
Jump to navigation Jump to search

Change Log

Whenever a change is made to a base ASW program, it must be moved to library XX2480BP.

Any changes made, should be logged in the start of the source. For example -

     F****************************************************************
     F* This program is written by IBS R&D                          **
     F****************************************************************
     F* Changes made to base version :                              **
WND  F* Window generated 001114                                     **
     F*                                                             **
     F* Date / Author                                               **
uwd1  * 2010Jun SV - at least one order number must be entered - do **
uwd1  *              not allow user to process all records          **
     F*                                                             **
     F****************************************************************

All changes made to the program must be marked; in this case with 'uwd1'.

Whenever a line of code is to be removed, it is changed to a comment.

Whenever a line of code is to be changed, it is commented out, and a new line is added.

     C* No order numbers selected?                                          
     C*                                                                     
     C                   XFOOT     XX1           XXN150                     
uwd1 C*    XXN150        CABEQ     *ZEROS        SD5110                   40
                                                                            
uwd1  * error if no order numbers selected                                  
                                                                            
uwd1 c                   if        xxn150 = *zero                           
uwd1 c                   eval      xmsg51 = 'E'                             
uwd1 c                   eval      msgid = 'DM52099'                        
uwd1 c                   call      'ASGC801 '    asg801                     
uwd1 c                   movea     '1111111111'  *in(55)                    
uwd1 c                   endif