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

Fixed, /Free and Fully Free RPG


Line Command in SEU AS400

Line Command in SEU AS400
Line Command in SEU AS400,line command in SEU,Inserting blank lines,copy record in SEU,Moving lines in SEU,Repeat lines in SEU,Repeat copy in SEU, strseu, wrkmbrpdm,I(insert line command),C(Copy record command), M(Move record command), R(Repeat line command),X(Exclude lines)
Line Command in SEU AS400

LINE command

It is used to insert, delete, copy, overlay, and edit the source statement in the source member opened with STRSEU or WRKMBRPDM.

Insert blank lines

Here we will discuss commands which are used to Insert one or n number of lines in the source code.

I

I is used to inserting a blank line below the source statement where the command I is written. Every time you insert the source statement on the blank inserted line and press ENTER, SEU will insert a new blank line below it.

Type I and press ENTER on line 7

 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                                
I007.00      A            MANAGERNAM                JREF(2) RENAME(EMPNAME)                  211201                                
        ****************** End of data ******************************************************************************************  

New blank line inserted after line 7

 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 ******************************************************************************************  

When you write the source statement on blank inerted line number 8 and press ENTER will automatically insert a new blank line.

 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                                
0008.00      A          K EMPID                                                              211204                                
'''''''                                                                                                                            
        ****************** End of data ******************************************************************************************  

In

In is used to insert n number of the blank lines below the source statement where the command In is written.

Type I5 and press ENTER on line 8

 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                                 
I508.00      A          K EMPID                                                              211204                                 
        ****************** End of data ******************************************************************************************   

New 5 blank lines inserted after line 8

 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                                
0008.00      A          K EMPID                                                              211204                                
'''''''                                                                                                                            
'''''''                                                                                                                            
'''''''                                                                                                                            
'''''''                                                                                                                            
'''''''                                                                                                                            
        ****************** End of data ******************************************************************************************  

Copy lines

We will discuss the commands which are used to copy one line or set of lines from one location to another location within or outside the source member.

C

C is used to copy the current source line on which this command is written to another location.

Cn

Cn is used to copy the n number of the source line from the beginning of this line where Cn is specified to another location. N can be any integer number let's say C5

CC

CC is used to copy all the lines between and including the line on which CC command is written and the next occurrence of CC command to another location.

CR

CR is used to copy the current source line on which this command is written to another location and retain the CR command to perform the repeated copy of the same line.

CCR

CCR is used to copy all the lines between and including the line on which CCR command is written and the next occurrence of CCR command to another location and retain the CCR command to perform the repeated copy of the same block of lines.

Specify the new location for copied lines

Following commands are used to specify the new location for the copied lines using above commands starts with C

A

Ais used to specify that please Add the copied lines after this line.

An

An is used to specify that please Add the copied lines after this line, n number of times. where n is integer let's say A5.

B

Bis used to specify that please Add the copied lines before this line.

An

Bn is used to specify that please Add the copied lines before this line, n number of times. where n is integer let's say B5.

O

is used to specify that please overlay this line with the copied line.

On

On is used to specify that please overlay n lines including this line with the copied line. where n is integer let's say O5.

OO

OO is used to specify that please overlay block of lines with the copied block of lines between and including OO command and its next occurrence.

Moving lines

We will discuss the commands which are used to move one line or set of lines from one location to another location within the source member.

M

M is used to move this current source line on which this command is written to another location.

Mn

Mn is used to move the n number of the source line from the beginning of this line where Mn is specified to another location. N can be any integer number let's say M5

MM

MM is used to move all the lines between and including the line on which MM command is written and the next occurrence of MM command to another location.

Important Note for Copy and Move commands

After the copy or move commands please specify the commands (A, An, B, Bn, O, On) to actually copy/move the selected lines to the target location.

Repeat lines

We will discuss the commands which are used to repeat one line or set of lines from one location to another location within the source member.

RP

RP is used to repeat this current source line on which this command is written to the immediate next line.

RPn

RPn is used to repeat this current source line, n number of times on which this command is written to the immediate next line. N can be any integer number let's say M5

RPP

RPP is used to repeat all the lines between and including the line on which RPP command is written and the next occurrence of RPP command to immediately below the next occurrence of RPP.

RPPn

RPP is used to repeat all the lines between and including the line on which RPP command is written and the next occurrence of RPP command n number of times to immediately below the next occurrence of RPP.

Deleting lines

We will discuss the commands which are used to delete one line or set of lines from the source member.

D

D is used to delete this current source line on which this command is written.

Dn

Dn is used to delete the n number of the source line from the beginning of this line where Dn is specified. N can be any integer number let's say D5

DD

DD is used to delete all the block of lines between and including the line on which DD command is written and the next occurrence of DD command.

Related Post

Post a Comment

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