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

Fixed, /Free and Fully Free RPG


Display Column Line in SEU AS400

Display Column Line in SEU AS400
Display Column Line in SEU AS400Displaying a Columns Line in SEU, STRSEU
Display Column Line in SEU AS400

Display FREE format column line

In this blog, we will discuss which command we can use to ask SEU (Source entry utility) to display free format column lines.

COLS command is used as below to insert the free format column line above the source statement on which COLS command is written.

Type COLS as below on any line and press ENTER.

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

After pressing ENTER, you will see column line as below

 Columns . . . :    1  80                                       Edit                                             EASYCLASS1/WEBSITE
 SEU==>                                                                                                                        JLF1
 FMT **  ...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8                                           
        *************** Beginning of data ***************************************************************************************  
FMT **   ...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8                                           
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 ******************************************************************************************  

Once you press the F5 key the above column line gets removed from the source as below.

 Columns . . . :    1  80                                       Edit                                             EASYCLASS1/WEBSITE
 SEU==>                                                                                                                        JLF1
 FMT **  ...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8                                           
        *************** 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 ******************************************************************************************  

Related Post

Post a Comment

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