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

Fixed, /Free and Fully Free RPG


Change the display in SEU AS400

Change the display in SEU AS400
Change the display in SEU AS400,X(Exclude lines),EU,SEU commands,source entry utility,WRKMBRPDM,Work with Members Using PDM,Start Source Entry Utility,STRSEU,Positioning in SEU,Excluding Lines from SEU,Showing Excluded Lines in SEU,HIDE command in SEU,Shifting Lines without Truncating Data in SEU
Change the display in SEU AS400

Introduction

There are several SEU commands that can change the SEU display at any time which means we can change which source statements are to be displayed on the display.

Position to the design report display

We can position the particular source statement line by using some commands on the SEU display

n

write n (1,2,3...) on any line number in the source member to move the display to the exact line number entered. Please note that if the source member has 10 lines in total and you write 11 and press ENTER will move the display to the last line i.e. 10 at the top on the SEU display.

In the below example, we move the display to the 5th line.

 Columns . . . :    1  80                                       Edit                                             EASYCLASS1/WEBSITE
 SEU==>                                                                                                                        JLF1
 FMT PF .....A..........T.Name++++++RLen++TDpB......Functions+++++++++++++++++++++++++++                                           
        *************** Beginning of data ***************************************************************************************  
0005.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 ******************************************************************************************  

pressing ENTER will move the display to the 5th source line of the source member.

 Columns . . . :    1  80                                       Edit                                             EASYCLASS1/WEBSITE
 SEU==>                                                                                                                        JLF1
 FMT PF .....A..........T.Name++++++RLen++TDpB......Functions+++++++++++++++++++++++++++                                           
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 ******************************************************************************************  

+n

write +n (1,2,3...) on any line number in the source member to move the display forward by n number of the line number. Please note that if the source member has 10 lines in total and you write +11 and press ENTER will move the display to the *****End of Data**** source line on the SEU display.

In the below example, we move the display forward by +5 line.

 Columns . . . :    1  80                                       Edit                                             EASYCLASS1/WEBSITE
 SEU==>                                                                                                                        JLF1
 FMT PF .....A..........T.Name++++++RLen++TDpB......Functions+++++++++++++++++++++++++++                                           
        *************** Beginning of data ***************************************************************************************  
+501.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 ******************************************************************************************  

Display move forward by 5 lines

 Columns . . . :    1  80                                       Edit                                             EASYCLASS1/WEBSITE
 SEU==>                                                                                                                        JLF1
 FMT PF .....A..........T.Name++++++RLen++TDpB......Functions+++++++++++++++++++++++++++                                           
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 ******************************************************************************************  

-n

write -n (1,2,3...) on any line number in the source member to move the display backward by the n number of the line number.

In the below example, we move the display backward by a -5 line.

 Columns . . . :    1  80                                       Edit                                             EASYCLASS1/WEBSITE
 SEU==>                                                                                                                        JLF1
 FMT **  ...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8                                           
-5      ****************** End of data ******************************************************************************************  

Display move backward by 5 lines. pointing at the 3rd line on top since a total of 7 lines are there in a source member and we are at End of the Data line.

 Columns . . . :    1  80                                       Edit                                             EASYCLASS1/WEBSITE
 SEU==>                                                                                                                        JLF1
 FMT PF .....A..........T.Name++++++RLen++TDpB......Functions+++++++++++++++++++++++++++                                           
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 ******************************************************************************************  

Exclude lines on the design report display

There are SEU commands which can exclude a single line or a block of lines in the SEU display source member.

X

Write X on the source line to exclude that line from the SEU display.

 Columns . . . :    1  80                                       Edit                                             EASYCLASS1/WEBSITE
 SEU==>                                                                                                                        JLF1
 FMT PF .....A..........T.Name++++++RLen++TDpB......Functions+++++++++++++++++++++++++++                                           
        *************** Beginning of data ***************************************************************************************  
0001.00      A                                      JDFTVAL                                  211201                                
X002.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 ******************************************************************************************  

pressing ENTER will exclude Line no. 2 from the SEU display

 Columns . . . :    1  80                                       Edit                                             EASYCLASS1/WEBSITE
 SEU==>                                                                                                                        JLF1
 FMT PF .....A..........T.Name++++++RLen++TDpB......Functions+++++++++++++++++++++++++++                                           
        *************** Beginning of data ***************************************************************************************  
0001.00      A                                      JDFTVAL                                  211201                                
- - - - ------------- 1 data records excluded -----------------------------------------------------------------------------------  
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 ******************************************************************************************  

Xn

Write Xn on the source line to exclude n(1,2,3....) number of lines from the SEU display.

 Columns . . . :    1  80                                       Edit                                             EASYCLASS1/WEBSITE
 SEU==>                                                                                                                        JLF1
 FMT PF .....A..........T.Name++++++RLen++TDpB......Functions+++++++++++++++++++++++++++                                           
        *************** Beginning of data ***************************************************************************************  
0001.00      A                                      JDFTVAL                                  211201                                
X202.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 ******************************************************************************************  

pressing ENTER will exclude Line no. 2 and Line no.3 from the SEU display

 Columns . . . :    1  80                                       Edit                                             EASYCLASS1/WEBSITE
 SEU==>                                                                                                                        JLF1
 FMT PF .....A..........T.Name++++++RLen++TDpB......Functions+++++++++++++++++++++++++++                                           
        *************** Beginning of data ***************************************************************************************  
0001.00      A                                      JDFTVAL                                  211201                                
- - - - ------------- 2 data records excluded -----------------------------------------------------------------------------------  
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 ******************************************************************************************  

XX

Write XX on 2 lines to select a set/block of lines to exclude from the SEU display

 Columns . . . :    1  80                                       Edit                                             EASYCLASS1/WEBSITE
 SEU==>                                                                                                                        JLF1
 FMT PF .....A..........T.Name++++++RLen++TDpB......Functions+++++++++++++++++++++++++++                                           
        *************** Beginning of data ***************************************************************************************  
0001.00      A                                      JDFTVAL                                  211201                                
XX02.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                                
XX06.00      A            EMPNAME                   JREF(1)                                  211201                                
0007.00      A            MANAGERNAM                JREF(2) RENAME(EMPNAME)                  211201                                
        ****************** End of data ******************************************************************************************  

pressing ENTER will exclude Line no. 2,2,4,5 and 6 from the SEU display

 Columns . . . :    1  80                                       Edit                                             EASYCLASS1/WEBSITE
 SEU==>                                                                                                                        JLF1
 FMT PF .....A..........T.Name++++++RLen++TDpB......Functions+++++++++++++++++++++++++++                                           
        *************** Beginning of data ***************************************************************************************  
0001.00      A                                      JDFTVAL                                  211201                                
- - - - ------------- 5 data records excluded -----------------------------------------------------------------------------------  
0007.00      A            MANAGERNAM                JREF(2) RENAME(EMPNAME)                  211201                                
        ****************** End of data ******************************************************************************************  

Re-Display the excluded lines on the design report display

We can show back the excluded source statement line excluded through commands such as X, Xn, XX by using some commands on the SEU display

SF

To display back the first line from the set of excluded lines.

Let's see an example where line numbers 2,3,4,5,6 are excluded

 Columns . . . :    1  80                                       Edit                                             EASYCLASS1/WEBSITE 
 SEU==>                                                                                                                        JLF1 
 FMT PF .....A..........T.Name++++++RLen++TDpB......Functions+++++++++++++++++++++++++++                                            
        *************** Beginning of data ***************************************************************************************   
0001.00      A                                      JDFTVAL                                  211201                                 
SF- - - ------------- 5 data records excluded -----------------------------------------------------------------------------------   
0007.00      A            MANAGERNAM                JREF(2) RENAME(EMPNAME)                  211201                                 
        ****************** End of data ******************************************************************************************   

Displayed back the first excluded line i.e line no.2

 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                                
- - - - ------------- 4 data records excluded -----------------------------------------------------------------------------------  
0007.00      A            MANAGERNAM                JREF(2) RENAME(EMPNAME)                  211201                                
        ****************** End of data ******************************************************************************************  

SFn

To display back the first n(1,2,3...) number of lines from the set of excluded lines.

Let's see an example where line numbers 2,3,4,5,6 are excluded

 Columns . . . :    1  80                                       Edit                                             EASYCLASS1/WEBSITE
 SEU==>                                                                                                                        JLF1
 FMT PF .....A..........T.Name++++++RLen++TDpB......Functions+++++++++++++++++++++++++++                                           
        *************** Beginning of data ***************************************************************************************  
0001.00      A                                      JDFTVAL                                  211201                                
SF2 - - ------------- 5 data records excluded -----------------------------------------------------------------------------------  
0007.00      A            MANAGERNAM                JREF(2) RENAME(EMPNAME)                  211201                                
        ****************** End of data ******************************************************************************************  

Displayed back the first excluded 2 lines i.e line no.2 and 3

 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                                
- - - - ------------- 3 data records excluded -----------------------------------------------------------------------------------  
0007.00      A            MANAGERNAM                JREF(2) RENAME(EMPNAME)                  211201                                
        ****************** End of data ******************************************************************************************  

SL

To display back the last line from the set of excluded lines.

Let's see an example where line numbers 2,3,4,5,6 are excluded

 Columns . . . :    1  80                                       Edit                                             EASYCLASS1/WEBSITE
 SEU==>                                                                                                                        JLF1
 FMT PF .....A..........T.Name++++++RLen++TDpB......Functions+++++++++++++++++++++++++++                                           
        *************** Beginning of data ***************************************************************************************  
0001.00      A                                      JDFTVAL                                  211201                                
SL- - - ------------- 5 data records excluded -----------------------------------------------------------------------------------  
0007.00      A            MANAGERNAM                JREF(2) RENAME(EMPNAME)                  211201                                
        ****************** End of data ******************************************************************************************  

Displayed back the last excluded line i.e line no.6

 Columns . . . :    1  80                                       Edit                                             EASYCLASS1/WEBSITE
 SEU==>                                                                                                                        JLF1
 FMT PF .....A..........T.Name++++++RLen++TDpB......Functions+++++++++++++++++++++++++++                                           
        *************** Beginning of data ***************************************************************************************  
0001.00      A                                      JDFTVAL                                  211201                                
- - - - ------------- 4 data records excluded -----------------------------------------------------------------------------------  
0006.00      A            EMPNAME                   JREF(1)                                  211201                                
0007.00      A            MANAGERNAM                JREF(2) RENAME(EMPNAME)                  211201                                
        ****************** End of data ******************************************************************************************  

SLn

To display back the Last n(1,2,3...) number of lines from the set of excluded lines.

Let's see an example where line numbers 2,3,4,5,6 are excluded

 Columns . . . :    1  80                                       Edit                                             EASYCLASS1/WEBSITE
 SEU==>                                                                                                                        JLF1
 FMT PF .....A..........T.Name++++++RLen++TDpB......Functions+++++++++++++++++++++++++++                                           
        *************** Beginning of data ***************************************************************************************  
0001.00      A                                      JDFTVAL                                  211201                                
SL2 - - ------------- 5 data records excluded -----------------------------------------------------------------------------------  
0007.00      A            MANAGERNAM                JREF(2) RENAME(EMPNAME)                  211201                                
        ****************** End of data ******************************************************************************************  

Displayed back the last excluded 2 lines i.e line no.5 and 6

 Columns . . . :    1  80                                       Edit                                             EASYCLASS1/WEBSITE
 SEU==>                                                                                                                        JLF1
 FMT PF .....A..........T.Name++++++RLen++TDpB......Functions+++++++++++++++++++++++++++                                           
        *************** Beginning of data ***************************************************************************************  
0001.00      A                                      JDFTVAL                                  211201                                
- - - - ------------- 3 data records excluded -----------------------------------------------------------------------------------  
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 ******************************************************************************************  

Note

You can press F5 at any time to display all the excluded records

Create horizontal windows

Following command used with horizontal windows

  • W command is used to work with statements written in column 1.
  • Wn command is used to work with statements written at column n(1,2,3....).
  • Shift lines without truncate source statement

  • L command is used to shift the source in the current line to the left by 1 position.
  • Ln command is used to shift the source in the current line to the left by n(1,2,3....) position.
  • LL command is used to shift the set/block of source in the current line to the left by 1 position.
  • LLn command is used to shift the set/block of source in the current line to the left by n(1,2,3....) position.
  • R command is used to shift the source in the current line to the right by 1 position.
  • Rn command is used to shift the source in the current line to the right by n(1,2,3....) position.
  • RR command is used to shift the set/block of source in the current right to the left by 1 position.
  • RRn command is used to shift the set/block of source in the current right to the left by n(1,2,3....) position.
  • Related Post

    Post a Comment

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