Now, Get RPG Codes in all three formats only on this website on every RPGLE related programming article.

Fixed, /Free and Fully Free RPG


FIND and CHANGE command in SEU AS400

FIND and CHANGE command in SEU AS400
FIND and CHANGE command in SEU AS400,FIND command in SEU, CHNAGE command in SEU
FIND and CHANGE command in SEU AS400

FIND and CHANGE command

Using the Find/Change command we can search for any string in the source member and change the string with the new string

Open any source member in Edit mode either using WRKMBRPDM or STRSEU as below.

 Columns . . . :    1  80                                       Edit                                             EASYCLASS1/WEBSITE
 SEU==>                                                                                                                        JLF1
 FMT PF .....A..........T.Name++++++RLen++TDpB......Functions+++++++++++++++++++++++++++                                           
        *************** Beginning of data ***************************************************************************************  
0001.00      A                                      JDFTVAL                                  211201                                
0002.00      A          R RJLF1                     JFILE(PF1 PF1)                           211201                                
0003.00      A          J                           JOIN(1 2)                                211201                                
0004.00      A                                      JFLD(MANAGERID EMPID)                    211201                                
0005.00      A            EMPID                     JREF(1)                                  211201                                
0006.00      A            EMPNAME                   JREF(1)                                  211201                                
0007.00      A            MANAGERNAM                JREF(2) RENAME(EMPNAME)                  211201                                
        ****************** End of data ******************************************************************************************  

Just press SHIFT + F2 to open the Find/Change option. We can see several parameters we can provide such as FIND (any string), CHANGE(change string with new string), etc.

                          Find/Change Options                                
                                                                             
Type choices, press Enter.                                                   
                                                                             
  Find  . . . . . . . . . . . . .                                            
  Change  . . . . . . . . . . . .                                            
  From column number  . . . . . .   8            1-80                        
  To column number  . . . . . . .                1-80 or blank               
  Occurrences to process  . . . .   2            1=Next, 2=All, 3=Previous   
                                                 4=First, 5=Last             
  Records to search . . . . . . .   1            1=All, 2=Excluded           
                                                 3=Non-excluded              
  Kind of match . . . . . . . . .   2            1=Same case                 
                                                 2=Ignore case               
  Allow data shift  . . . . . . .   N            Y=Yes, N=No                 
                                                                             
  Search for date . . . . . . . .   21/12/04     YY/MM/DD or YYMMDD          
    Compare . . . . . . . . . . .                1=Less than                 
                                                 2=Equal to                  
                                                 3=Greater than              

Related Post

Post a Comment

© AS400 and SQL Tricks. All rights reserved. Developed by Jago Desain