Remove5250Attributes < Sandbox

You are here: DBG/400>Sandbox Web>Remove5250Attributes (11 Aug 2009, MartinRowe) (raw view)EditAttach
<verbatim>
      ****************************************************************                       
      * Program    SRCRMVHIL2                                                                
      * Desc       Remove highlights in source code - RPGLE                                  
      ****************************************************************                       
     FSRCFILE   UF   F  112        DISK                                                      
      ****************************************************************                       
     D LIN             S              1    Dim(80)                              Source line  
     D                 DS                                                                    
     D  RecordData            13    112                                                      
     D  TableStart            13     14                                                      
      *                                                                                      
     D  Record2        S            100                                                      
      *                                                                                      
     D Fancy           C                   Const(X'202122232425262728-                       
     D                                     292A2B2C2D2E2F303132-                             
     D                                     333435363738393A3B3C-                             
     D                                     3D3E3F')                                          
     D Fancy2          C                   Const(X'000102030405060708-                       
     D                                     090A0B0C0D0E0F101112-        
     D                                     131415161718191A1B1C-                                    
     D                                     1D1E1F')                                                 
      *                                                                                             
     D Blanks          C                   Const(X'404040404040404040-                              
     D                                     40404040404040404040-                                    
     D                                     40404040404040404040-                                    
     D                                     404040')                                                 
      ****************************************************************                              
     ISRCFILE   NS  01                                                                              
     I                                 13  112  SRCDTA                                              
      ****************************************************************                              
      *  Read the Source File and test for comments.                                                
      *  ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯                                                
B001 C                   DoU       *IN67 = *On                                                      
     C                   Read      SRCFILE                                67                        
      *                                                                                             
B002 C                   If        *IN67 = *Off                                                     
     C                   Eval      RecordData = SRCDTA                                              
      *                                                                                             
      *  If Table identifiers found, End Program.                                                   
      *  ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯                                                   
B003 C                   If        TableStart = '**'                                                
     C                   SetOn                                        LR                            
     C                   Return                                                                     
E003 C                   EndIf                                                                      
     C     Fancy:Blanks  Xlate     RecordData    Record2                                            
     C     Fancy2:Blanks Xlate     Record2       SRCDTA                                             
      *                                                                                             
     C                   Except    Update                                                           
E002 C                   EndIf                                                                      
      *                                                                                             
E001 C                   EndDo                                                                      
      *                                                                                             
     C                   SetOn                                        LR                            
     C                   Return                                                                     
      *                                                                                             
     OSRCFILE   E            Update                                                                 
     O                       SRCDTA             112                                                 
</verbatim>
Topic revision: r1 - 11 Aug 2009 - 21:33:36 - MartinRowe
Sandbox
Send a link to this page
Copyright © by the contributing authors. All material on this collaboration platform is the property of the contributing authors.
Ideas, requests, problems regarding DBG/400? Send feedback