Ü  SEU (Source entry Utility)

 

·      This is source code entry/editor application that is used in AS400 to create any type of member.

·      To open the SEU we can go to WRKMBRPDM and then press F6 (Create) or you can type STRSEU on the command line. Then you will be prompted for source member name, source member type, member description. Just enter the detail and press Enter.

·      To edit a member we can give option 2 against the member in PDM.

·      To delete a member we can give option 4 against the member in PDM.

·      To browse the member we can give option 5 against the member in PDM.

·      To rename the member we can give option 7 against the member in PDM.

·      To change text description of the member we can select option 13 against the member in PDM.

 

                           Work with Members Using PDM                    PUB1     
                                                                                
 File  . . . . . .   QRPGLESRC                                                  
   Library . . . .     IROBO1               Position to  . . . . .              
                                                                                
 Type options, press Enter.                                                     
  2=Edit         3=Copy  4=Delete 5=Display       6=Print     7=Rename          
  8=Display description  9=Save  13=Change text  14=Compile  15=Create module...
                                                                                
 Opt  Member      Type        Text                                              
      ACCOUNT     PF          ACCOUNT RELATED INFORMATION                       
      PRINT1      PRTF        PRINTER DDS RLU GENERATED                         
      PRINT1PGM   RPGLE       rpgle program for print1                          
                                                                                
                                                                                
                                                                                
                                                                         Bottom 
 Parameters or command                                                          
 ===>                                                                           
 F3=Exit          F4=Prompt             F5=Refresh            F6=Create  >>>> It opens SEU
 F9=Retrieve      F10=Command entry     F23=More options      F24=More keys     

 

 

F6=Create è Press Enter

 


                       Start Source Entry Utility (STRSEU)                      
                                                                                
 Type choices, press Enter.                                                     
                                                                                
 Source file  . . . . . . . . . . SRCFILE      > QRPGLESRC                      
   Library  . . . . . . . . . . .              >   IROBO1                       
 Source member  . . . . . . . . . SRCMBR         member1                        
 Source type  . . . . . . . . . . TYPE           rpgle                          
 Text 'description' . . . . . . . TEXT           This is rpgle program to print 
                                                                                
                                          
                                         
                                                                                
                                                                         Bottom 
 F3=Exit   F4=Prompt   F5=Refresh   F12=Cancel   F13=How to use this display    
 F24=More keys                                                                  

           

 

Press Enter

 


Columns . . . :    6 100                Edit                          IROBO1/QRPGLESRC
SEU==>                                                                        MEMBER1
FMT H  HKeywords++++++++++++++++++++++++++++++++++++++++++++Comments++++++++++++
*************** Beginning of data ********************************************
'''''''
'''''''
'''''''
'''''''
'''''''
'''''''
'''''''
'''''''
'''''''
'''''''
'''''''
****************** End of data ***********************************************

F3=Exit   F4=Prompt   F5=Refresh   F9=Retrieve   F10=Cursor   F11=Toggle
F16=Repeat find       F17=Repeat change          F24=More keys
Member MEMBER1 added to file IROBO1/QRPGLESRC.                                +

 

Ü  Changing Session Defaults (F13)

Before you start entering the source code make sure the session environment for SEU is set-up as you wanted.

In Session environment you can edit the session attributes highlighted below.

We can change the session default that will be used during source entry/editing process.


                              Change Session Defaults                           
                                                                                
 Type choices, press Enter.                                                     
                                                                                
   Amount to roll . . . . . . . . . . .   C            H=Half, F=Full           
                                                       C=Cursor, D=Data         
                                                       1-999                    
   Uppercase input only . . . . . . . .   N            Y=Yes, N=No              
   Tabs on  . . . . . . . . . . . . . .   N            Y=Yes, N=No              
   Increment of insert record . . . . .   0.01         0.01-999.99              
   Full screen mode . . . . . . . . . .   N            Y=Yes, N=No              
                                                                                
   Source type  . . . . . . . . . . . .   RPGLE                                 
   Syntax checking:                                                             
     When added/modified  . . . . . . .   Y            Y=Yes, N=No              
     From sequence number . . . . . . .                0000.00-9999.99          
     To sequence number . . . . . . . .                0000.00-9999.99          
    
   Set records to date  . . . . . . . .     /  /       YY/MM/DD or YYMMDD       
   Resequence member default  . . . . .   P            Y=Yes, N=No              
                                                       P=Previous               
   Default to uppercase input                                                   
     for this source type . . . . . . .   N            Y=Yes, N=No              
                                                                                
   User exit program  . . . . . . . . .   *REGFAC      *REGFAC, *NONE, Name     
     Program selection filter . . . . .   *ALL         *ALL, *USRPRF, String    
                                                                                
                                                                         Bottom 
 F3=Exit      F5=Refresh   F12=Cancel                                           
 F14=Find/Change options   F15=Browse/Copy options                              

 

Ü SET Command

Another way of changing the environment is using SET command.

 

¤  SET ROLL value

Specifies the number of lines or columns that move on the display at one time when you press the Page Up key, Page Down key, Shift+F7(Left), or Shift+F8 (Right).

 

The possible values are:

FULL or F: Specifies that the display moves one full display.

HALF or H:Specifies that the display moves one half of a display.

CSR or C:   Specifies that the display moves by the position of the cursor.

DATA or D:Specifies that the display moves one full display minus one line or column.

N (where N = 1, 2, 3…): Specifies that the display moves N no. of lines.

 

 

¤  SET MATCH value

It specifies whether the case of the letters must match in a search string. The initial value is OFF.

 

The possible values are:

ü ON:  Specifies that uppercase and lowercase letters must match.

ü OFF: Specifies that uppercase and lowercase letter do not have to match.

 

Ü Line Command

Line command is used to enter/edit, copy, insert, overlay and delete the source statement.

 

¤ Inserting blank lines

 

I      To insert a blank line below the record where the command is written. Each time we insert data on

            the blank line and press Enter, SEU inserts another blank line.

I n   To insert n blank line below the record where the command is written. After the last line data is

            inserted and Enter is pressed, SEU inserts another blank line.

 

 

Writing I8 just before sequence no. 1 as a line command inserts 8 blank lines.

 

Columns . . . :    6 100               Edit
SEU==>
FMT F  FFilename++IPEASFRlen+LKlen+AIDevice+.Keywords+++++++++++++Comments+
I8      *************** Beginning of data **************************************
0001.00 FPRINT1    o    E             PRINTER OFLIND(*IN90)
0002.00 FACCOUNT   IF   E           K DISK
0003.00 C                   Z-ADD     *ZEROS        COUNT             2 0
0004.00 C                   WRITE     HEADER1
0005.00 C                   WRITE     HEADER2
0006.00 C                   READ      REC1                                   80
0007.00 C                   DOW       *IN80=*OFF
0008.00 C                   WRITE     DETAIL                               90
0009.00 C   90              WRITE     HEADER2
0010.00 C                   EVAL      COUNT=COUNT+1
0011.00 C                   READ      REC1                                   80
0012.00 C                   ENDDO
0013.00 C                   EVAL      TOTAL=COUNT
0014.00 C                   WRITE     FOOTER
0015.00 C                   SETON                                        LR
****************** End of data ******************************************

 

 

Press Enter:

 

Columns . . . :    6 100                   Edit
SEU==>
FMT F  FFilename++IPEASFRlen+LKlen+AIDevice+.Keywords++++++++++++++++++++Comments+
*************** Beginning of data *****************************************
'''''''
'''''''
'''''''
'''''''
'''''''
'''''''
'''''''
'''''''
0001.00 FPRINT1    o    E             PRINTER OFLIND(*IN90)
0002.00 FACCOUNT   IF   E           K DISK
0003.00 C                   Z-ADD     *ZEROS        COUNT             2 0
0004.00 C                   WRITE     HEADER1
0005.00 C                   WRITE     HEADER2
0006.00 C                   READ      REC1                                   80
0007.00 C                   DOW       *IN80=*OFF
0008.00 C                   WRITE     DETAIL                               90
0009.00 C   90              WRITE     HEADER2
0010.00 C                   EVAL      COUNT=COUNT+1
0011.00 C                   READ      REC1                                   80


If we paste some source code on these blank lines, the sequence no. will be generated automatically as a extension in seq. no. 0000.00. If we insert 2 lines then the generated seq. no. will be 0000.01 and 0000.02.

 

                       


Columns . . . :    6 100                   Edit
SEU==>
FMT F  FFilename++IPEASFRlen+LKlen+AIDevice+.Keywords+++++++++++++++++++Comments+
*************** Beginning of data ****************************************
0000.01 FPRINT2    o    E             PRINTER OFLIND(*IN92)
0000.02 FPARTY        IF   E           K DISK
0001.00 FPRINT1    o    E             PRINTER OFLIND(*IN90)
0002.00 FACCOUNT   IF   E           K DISK
0003.00 C                   Z-ADD     *ZEROS        COUNT             2 0
0004.00 C                   WRITE     HEADER1
0005.00 C                   WRITE     HEADER2
0006.00 C                   READ      REC1                                   80
0007.00 C                   DOW       *IN80=*OFF
0008.00 C                   WRITE     DETAIL                               90
0009.00 C   90              WRITE     HEADER2
0010.00 C                   EVAL      COUNT=COUNT+1
0011.00 C                   READ      REC1                                   80
0012.00 C                   ENDDO
0013.00 C                   EVAL      TOTAL=COUNT
0014.00 C                   WRITE     FOOTER
0015.00 C                   SETON                                        LR
****************** End of data *********************************************

 

 

 

 

¤ Copy records

 

We can copy a record or a block of records to another location in a member or to another member with the following line commands:

 

C     : To copy this line to another location.

Cn   : To copy n lines (beginning with this line) to another location.

CC  :  To copy all the lines between (and including) this one and the next occurrence of CC to another  location.

CR   : To copy this line to another location and retain the CR command in the sequence area of the display for repeated copy operations.

CCR : To copy the lines between (and including) this line and the next occurrence of CCR to another location and retain the CCR command in the sequence area of the display for repeated copy operations.

 


Columns . . . :    6  76            Edit            Pending . . . . . :   CR   
 SEU==>                                                                         
 FMT FX FFilename++IPEASF.....L.....A.Device+.Keywords+++++++++++++++++++++++++ 
        *************** Beginning of data ************************************* 
0001.00 FREC11000  UF A E           K DISK                                      
0001.01 FREC1100DSPCF   E             WORKSTN SFILE(RECSFL:RRN)                 
CR      DI                S              5  0                                   
0002.01 DRRN              S              5  0                                   
0002.02 DI                S              5  0                                   
0002.03 DI                S              5  0                                   
0002.04 DI                S              5  0                                   
0002.05 C                   EVAL      RCDNBR=9900                               
0002.06 C                   DOW       *IN03=*OFF                                
0002.07 C   03              LEAVE                                               
0002.08 C                   EXSR      CLRSFL                                    
0002.09 C                   EXSR      FILSFL                                    
0002.10 C                   EXSR      DSPSFL                                    
0002.11 C                   ENDDO                                               
0005.00 C                   SETON                                        LR     
0005.01  *                                                                      
                                                                                
 F3=Exit   F4=Prompt   F5=Refresh   F9=Retrieve   F10=Cursor   F11=Toggle       
 F16=Repeat find       F17=Repeat change          F24=More keys                 

 

 

 

To specify the new location for copied lines, type one of the following sequence line commands:

 

A    :           To add the copied lines after this line

An  :           To add the copied lines after this line n times

B    :           To add the copied lines before this line

Bn  :           To add the copied lines before this line n times

O    :           To overlay this line with the copied line

On  :           To overlay n lines (including this line) with the copied lines

OO :           To overlay the group of lines between (and including) this line and the next occurrence of OO with

                    the copied lines

 

 

¤ Moving Lines in a Report

 

M          To move this line to another location

Mn        To move n lines (beginning with this line) to another location

      MM      To copy all the lines between (and including) this one and the next occurrence of MM to another  

                    location

After the line command specify the new location for copied lines by the relevant target command (A, An, B, Bn, O, On)

¤ Repeating Lines in a Report

 

RP                    To repeat this line immediately below this line

RPn      To repeat this line n times immediately below this line

RPP      To repeat all the lines between (and including) this one and the next occurrence of RPP

immediately below the next occurrence of RPP

RPPn    To repeat all the lines between (and including) this one and the next occurrence of RPP n

                   times immediately below the next occurrence of RPP

 

 

After the line command specify the new location for copied lines by the relevant target command (A, An, B, Bn, O, On)

 

 

 

Ü Displaying a Columns Line

 

Use the following line command to request SEU to show a free-format columns line:

 

COLS:  Insert a columns line above this record.


	Columns . . . :    6 100               Edit                 
 SEU==>                                                                              
 FMT ** ... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 .
        *************** Beginning of data *******************************************
0001.00 FPRINT1    o    E             PRINTER OFLIND(*IN90)                          
0002.00 FACCOUNT   IF   E           K DISK                                           
FMT **  ... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 .
0003.00 C                   Z-ADD     *ZEROS        COUNT             2 0            
0004.00 C                   WRITE     HEADER1                                        
0005.00 C                   WRITE     HEADER2                                        
0006.00 C                   READ      REC1                                   80      
0014.00 C                   WRITE     FOOTER                                         
0015.00 C                   SETON                                        LR          
        ****************** End of data **********************************************

 

 

 

 

Press F5 to remove the above.

 

 

 

 

Ü  Showing Format Lines              

 

F: To display a format line above this line

 


Columns . . . :    6  76            Edit                      AMITCC/QRPGLESRC 
 SEU==>                                                                 TESTSEU 
 FMT FX FFilename++IPEASF.....L.....A.Device+.Keywords+++++++++++++++++++++++++ 
        *************** Beginning of data ************************************* 
0001.00 FREC11000  UF A E           K DISK                                      
0001.01 FREC1100DSPCF   E             WORKSTN SFILE(RECSFL:RRN)                 
0002.00 DI                S              5  0                                   
0002.01 DRRN              S              5  0                                   
0002.02 C                   EVAL      RCDNBR=9900                               
0002.03 C                   DOW       *IN03=*OFF                                
FMT C   CL0N01Factor1+++++++Opcode&ExtFactor2+++++++Result++++++++Len++D+HiLoEq 
0002.04 C   03              LEAVE                                               
0002.05 C                   EXSR      CLRSFL                                    
0002.06 C                   EXSR      FILSFL                                    
0002.07 C                   EXSR      DSPSFL                                    
0002.08 C                   ENDDO                                               
0005.00 C                   SETON                                        LR     
0005.01  *                                                                      
0005.02 C     CLRSFL        BEGSR                                               
0005.03 C                   SETON                                        40     
                                                                                
 F3=Exit   F4=Prompt   F5=Refresh   F9=Retrieve   F10=Cursor   F11=Toggle       
 F16=Repeat find       F17=Repeat change          F24=More keys                 


Press F5 to remove the above.

 

 

 

 

 

Ü Prompt line command for New Records

 

¤ IP?

 


Columns . . . :    6 100                Edit             
 SEU==>                                                                          
 FMT ** ... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+...
        *************** Beginning of data ***************************************
0001.00 FPRINT1    o    E             PRINTER OFLIND(*IN90)                      
IP?2.00 FACCOUNT   IF   E           K DISK                                       
0003.00 C                   Z-ADD     *ZEROS        COUNT             2 0        
0004.00 C                   WRITE     HEADER1                                    
0005.00 C                   WRITE     HEADER2                                    

 

 

Fill the prompt type.

 


                                Select Prompt                            
                                                                         
 Type choice, press Enter.                                               
                                                                         
  Prompt type . . . . . . . . . . . .  _F_    Values listed below        
                                                                         
    ILE RPG/400:    H,F,FX,I,IX,J (I cont),JX,D,DX,C,CX,OD,P (O cont),PR,
                    PX,* (Comment),**                                    
    ILE COBOL/400:  CB,C*                                                
    REFORMAT/SORT:  RH,RR,RF,RC                                          
    DDS:            LF (Logical file),PF (Physical file),                
                    BC (Interactive Communications Feature file),        
                    DP (Display and Printer file),                       
                    A* (Comment)                                         
    MNU:            MS,MH,MD,MC (MD cont),CC (Comment)                   
    FORTRAN:        FT, F*                                               
    Other:          NC (No syntax checking),** (Free format)     
        


 

Or, we can directly insert the line command IPF.

 


Columns . . . :    6 100                 Edit              
 SEU==>                                                                           
 FMT ** ... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 
        *************** Beginning of data ****************************************
0001.00 FPRINT1    o    E             PRINTER OFLIND(*IN90)                       
IPF2.00 FACCOUNT   IF   E           K DISK                                        
0003.00 C                   Z-ADD     *ZEROS        COUNT             2 0         
0004.00 C                   WRITE     HEADER1                                     
0015.00 C                   SETON                                        LR       
        ****************** End of data *******************************************

 

 

 

 


Columns . . . :    6 100                   Edit
SEU==>
FMT ** ... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8
*************** Beginning of data *********************************************
0001.00 FPRINT1    o    E             PRINTER OFLIND(*IN90)
0002.00 FACCOUNT   IF   E           K DISK
'''''''
Prompt type . . .    F      Sequence number . . .  '''''''

File        File          End of        File
Filename      Type     Designation       File       Addition       Sequence
________      ____     ___________        ___          __           ______
File      Record      Limits        Length of          Record
Format    Length    Processing      Key Field       Address Type
_____      ____     ___________        ___              __
File
Organization        Device     Keywords
________            ____     ___________
Comment
___________
    


 

 

Line commands for insert prompt are:

 

·         IPH(H Spec)

·         IPF(F Spec)

·         IPD(D Spec)

·         IPI(I Spec)

·         IPC(C Spec)

·         IPO(O Spec)

·         IPPR(prototype definition)

·         IPPI(procedure interface)

·         IPDP(for display file)

·         IPPF(for physical file)

 

 

Ü Changing the Display

We can change which records or which part of the records will be on the display by using the following line commands.

 

 

¤ Positioning the Design Report Display

 

  n      To move the display so that line n is at the top

+n       To move the display forward by n lines

- n       To move the display backward by n lines


Columns . . . :    6 100                                       Edit           
 SEU==>                                                                        
 FMT F  FFilename++IPEASFRlen+LKlen+AIDevice+.Keywords+++++++++++++++++++++++++
*************** Beginning of data *************************************
+202.00 FACCOUNT   IF   E           K DISK                                     
0003.00 C                   Z-ADD     *ZEROS        COUNT             2 0      
0004.00 C                   WRITE     HEADER1                                  
0005.00 C                   WRITE     HEADER2                                  
0006.00 C                   READ      REC1                                   80
0007.00 C                   DOW       *IN80=*OFF                   

 

+2 Line command moves the display from seq. no. 0002.00 to 0004.00

 


Columns . . . :    6 100                                       Edit            
 SEU==>                                                                         
 FMT C  CL0N01Factor1+++++++Opcode&ExtFactor2+++++++Result++++++++Len++D+HiLoEq.
0004.00 C                   WRITE     HEADER1                                   
0005.00 C                   WRITE     HEADER2                                   
0006.00 C                   READ      REC1                                   80 
0007.00 C                   DOW       *IN80=*OFF                                

           

 

Now if we put Line command -2 then,


Columns . . . :    6 100                                       Edit           
 SEU==>                                                                        
 FMT C  CL0N01Factor1+++++++Opcode&ExtFactor2+++++++Result++++++++Len++D+HiLoEq
-204.00 C                   WRITE     HEADER1                                  
0005.00 C                   WRITE     HEADER2                                  
0006.00 C                   READ      REC1                                   80
0007.00 C                   DOW       *IN80=*OFF                               

 

-2 takes the display from seq. no. 0004.00 to 0002.00


Columns . . . :    6 100                                       Edit           
 SEU==>                                                                        
 FMT FX FFilename++IPEASF.....L.....A.Device+.Keywords+++++++++++++++++++++++++
0002.00 FACCOUNT   IF   E           K DISK                                     
0003.00 C                   Z-ADD     *ZEROS        COUNT             2 0      
0004.00 C                   WRITE     HEADER1                                  
0005.00 C                   WRITE     HEADER2                                  
0006.00 C                   READ      REC1                                   80
0007.00 C                   DOW       *IN80=*OFF                               

 

 

¤ Excluding Lines on the Design Report Display

 

X      To exclude this line from the display

Xn     To exclude n lines from the display

XX   To exclude all the lines between the first XX and the next occurrence of XX from the display

 


Columns . . . :    6 100                                       Edit           
 SEU==>                                                                        
 FMT F  FFilename++IPEASFRlen+LKlen+AIDevice+.Keywords+++++++++++++++++++++++++
        *************** Beginning of data *************************************
0001.00 FPRINT1    o    E             PRINTER OFLIND(*IN90)                    
0002.00 FACCOUNT   IF   E           K DISK                                     
0003.00 C                   Z-ADD     *ZEROS        COUNT             2 0      
X004.00 C                   WRITE     HEADER1                                  
0005.00 C                   WRITE     HEADER2                                  
0006.00 C                   READ      REC1                                   80

 

X line command at seq. no. 0004.00 excludes 1 record from the display.

 


Columns . . . :    6 100                                       Edit           
 SEU==>                                                                        
 FMT F  FFilename++IPEASFRlen+LKlen+AIDevice+.Keywords+++++++++++++++++++++++++
        *************** Beginning of data *************************************
0001.00 FPRINT1    o    E             PRINTER OFLIND(*IN90)                    
0002.00 FACCOUNT   IF   E           K DISK                                     
0003.00 C                   Z-ADD     *ZEROS        COUNT             2 0      
- - - - ------------- 1 data records excluded ---------------------------------
0005.00 C                   WRITE     HEADER2                                  
0006.00 C                   READ      REC1                                   80

 

 

F5:  To get all records again on the screen after X(exclusion).

 

¤ Showing Excluded Lines on the Design Report Display

SF   To show the first line in this group of excluded lines

SFn To show the first n lines in this group of excluded lines

SL To show the last line in this group of excluded lines

SLn To show the last n lines in this group of excluded lines

 


Columns . . . :    6 100                                       Edit           
 SEU==>                                                                        
 FMT F  FFilename++IPEASFRlen+LKlen+AIDevice+.Keywords+++++++++++++++++++++++++
        *************** Beginning of data *************************************
0001.00 FPRINT1    o    E             PRINTER OFLIND(*IN90)                    
0002.00 FACCOUNT   IF   E           K DISK                                     
0003.00 C                   Z-ADD     *ZEROS        COUNT             2 0      
SF- - - ------------- 1 data records excluded ---------------------------------
0005.00 C                   WRITE     HEADER2                                  
0006.00 C                   READ      REC1                                   80

 

Using SF line command on the excluded line shows the line.

 


Columns . . . :    6 100                                       Edit           
 SEU==>                                                                        
 FMT F  FFilename++IPEASFRlen+LKlen+AIDevice+.Keywords+++++++++++++++++++++++++
        *************** Beginning of data *************************************
0001.00 FPRINT1    o    E             PRINTER OFLIND(*IN90)                    
0002.00 FACCOUNT   IF   E           K DISK                                     
0003.00 C                   Z-ADD     *ZEROS        COUNT             2 0      
0004.00 C                   WRITE     HEADER1                                  
0005.00 C                   WRITE     HEADER2                                  
0006.00 C                   READ      REC1                                   80

 

Notes: For Exclude and Show line commands:

1. You can use the Exclude line command with the Find/Change Options display to search only certain lines.

2. You can press F5 (Refresh) to show all excluded records.

 

Suppose we have excluded some records from the display as shown below:


Columns . . . :    6 100                                       Edit            
 SEU==>                                                                         
 FMT F  FFilename++IPEASFRlen+LKlen+AIDevice+.Keywords++++++++++++++++++++++++++
        *************** Beginning of data **************************************
0001.00 FPRINT1    o    E             PRINTER OFLIND(*IN90)                     
0002.00 FACCOUNT   IF   E           K DISK                                      
0003.00 C                   Z-ADD     *ZEROS        COUNT             2 0       
0004.00 C                   WRITE     HEADER1                                   
0005.00 C                   WRITE     HEADER2                                   
0006.00 C                   READ      REC1                                   80 
0007.00 C                   DOW       *IN80=*OFF                                
XX08.00 C                   WRITE     DETAIL                               90   
XX09.00 C   90              WRITE     HEADER2                                   
0010.00 C                   EVAL      COUNT=COUNT+1                             
0011.00 C                   READ      REC1                                   80 
0012.00 C                   ENDDO                                               

 

Using XX block command we have excluded 2 lines.


Columns . . . :    6 100                                       Edit            
 SEU==>                                                                         
 FMT F  FFilename++IPEASFRlen+LKlen+AIDevice+.Keywords++++++++++++++++++++++++++
        *************** Beginning of data **************************************
0001.00 FPRINT1    o    E             PRINTER OFLIND(*IN90)                     
0002.00 FACCOUNT   IF   E           K DISK                                      
0003.00 C                   Z-ADD     *ZEROS        COUNT             2 0       
0004.00 C                   WRITE     HEADER1                                   
0005.00 C                   WRITE     HEADER2                                   
0006.00 C                   READ      REC1                                   80 
0007.00 C                   DOW       *IN80=*OFF                                
- - - - ------------- 2 data records excluded ----------------------------------
0010.00 C                   EVAL      COUNT=COUNT+1                             
0011.00 C                   READ      REC1                                   80 
0012.00 C                   ENDDO                                               

 

Now we search “write” string in the non-excluded source by using option-3 in Records to search field in Find/Change Options (shift+F2) as shown below.

                           Find/Change Options                               
                                                                             
 Type choices, press Enter.                                                  
                                                                             
   Find  . . . . . . . . . . . . .   write                                   
   Change  . . . . . . . . . . . .                                           
   From column number  . . . . . .   1            1-100                      
   To column number  . . . . . . .   100          1-100 or blank             
   Occurrences to process  . . . .   1            1=Next, 2=All, 3=Previous  
                                                  4=First, 5=Last            
   Records to search . . . . . . .   3            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 . . . . . . . .   13/01/12     YY/MM/DD or YYMMDD         
     Compare . . . . . . . . . . .                1=Less than                
                                                  2=Equal to                 
                                                  3=Greater than             
                                                                             
 F3=Exit   F5=Refresh       F12=Cancel   F13=Change session defaults         
 F15=Browse/Copy options    F16=Find     F17=Change  

 

Just press Enter after this to get back to the source screen and press shift+F4 multiple times to get all the records satisfying the search criteria. Hence we find 2 records as highlighted below..

 


                        
Columns . . . :    6 100                                       Edit           
 SEU==>                                                                        
 FMT F  FFilename++IPEASFRlen+LKlen+AIDevice+.Keywords+++++++++++++++++++++++++
        *************** Beginning of data *************************************
0001.00 FPRINT1    o    E             PRINTER OFLIND(*IN90)                    
0002.00 FACCOUNT   IF   E           K DISK                                     
0003.00 C                   Z-ADD     *ZEROS        COUNT             2 0      
0004.00 C                   WRITE     HEADER1                                  
0005.00 C                   WRITE     HEADER2                                  
0006.00 C                   READ      REC1                                   80
0007.00 C                   DOW       *IN80=*OFF                               
- - - - ------------- 2 data records excluded ---------------------------------
0010.00 C                   EVAL      COUNT=COUNT+1                            
0011.00 C                   READ      REC1                                   80
0012.00 C                   ENDDO                                              

 

 

¤ HIDE (H) Command

It specifies that lines containing a particular character string be hidden.

The syntax of HIDE command is:

H   String   Column-From    Column-To    Area(Top/Bottom/All)

 

In the below source, the op-code “WRITE” falls between column 25-30. To hide the records containing that op-code, we give the H command at SEU command entry as H WRITE 25 30 A. This command will hide the records, which has “WRITE” string at position 25-30 in all source area.

 


Columns . . . :    6 100                                       Edit            
 SEU==> H WRITE 25 30 A                                                                        
 FMT F  FFilename++IPEASFRlen+LKlen+AIDevice+.Keywords++++++++++++++++++++++++++
        *************** Beginning of data **************************************
0001.00 FPRINT1    o    E             PRINTER OFLIND(*IN90)                     
0002.00 FACCOUNT   IF   E           K DISK                                      
0003.00 C                   Z-ADD     *ZEROS        COUNT             2 0       
0004.00 C                   WRITE     HEADER1                                   
0005.00 C                   WRITE     HEADER2                                   
0006.00 C                   READ      REC1                                   80 
0007.00 C                   DOW       *IN80=*OFF                                
0008.00 C                   WRITE     DETAIL                               90   
0009.00 C   90              WRITE     HEADER2                                   
0010.00 C                   EVAL      COUNT=COUNT+1                             
0011.00 C                   READ      REC1                                   80 
0012.00 C                   ENDDO                                               
0013.00 C                   EVAL      TOTAL=COUNT                               
0014.00 C                   WRITE     FOOTER                                    
0015.00 C                   SETON                                        LR     
        ****************** End of data *****************************************

 

Press Enter


Columns . . . :    6 100                                       Edit              
 SEU==>                                                                           
 FMT F  FFilename++IPEASFRlen+LKlen+AIDevice+.Keywords++++++++++++++++++++++++++++
        *************** Beginning of data ****************************************
0001.00 FPRINT1    o    E             PRINTER OFLIND(*IN90)                       
0002.00 FACCOUNT   IF   E           K DISK                                        
0003.00 C                   Z-ADD     *ZEROS        COUNT             2 0         
- - - - ------------- 2 data records excluded ------------------------------------
0006.00 C                   READ      REC1                                   80   
0007.00 C                   DOW       *IN80=*OFF                                  
- - - - ------------- 2 data records excluded ------------------------------------
0010.00 C                   EVAL      COUNT=COUNT+1                               
0011.00 C                   READ      REC1                                   80   
0012.00 C                   ENDDO                                                 
0013.00 C                   EVAL      TOTAL=COUNT                                 
- - - - ------------- 1 data records excluded ------------------------------------
0015.00 C                   SETON                                        LR       
        ****************** End of data *******************************************

 

 

¤ Shifting Lines without Truncating Data

 

L                 To shift data in this line to the left by 1 position

Ln             To shift data in this line to the left by n positions

LL              To shift a block of data to the left by 1 position

LLn            To shift a block of data to the left by n position

R                To shift data in this line to the right by 1 position

Rn              To shift data in this line to the right by n position

RR                         To shift a block of data to the right by 1 position

RRn            To shift a block of data to the right by n position

 

¤ Creating Horizontal Windows

 

W               To work with the data starting at column 1.

Wn                         To work with the data starting at column n.

 

Columns . . . :    6  76            Edit                      AMITCC/QRPGLESRC 
 SEU==>                                                                 TESTSEU 
 FMT FX FFilename++IPEASF.....L.....A.Device+.Keywords+++++++++++++++++++++++++ 
        *************** Beginning of data ************************************* 
W771.00 FREC11000  UF A E           K DISK                                      
0001.01 FREC1100DSPCF   E             WORKSTN SFILE(RECSFL:RRN)                 
0002.00 DI                S              5  0                                   
0002.01 DRRN              S              5  0                                   
0002.02 C                   EVAL      RCDNBR=9900                               
0002.03 C                   DOW       *IN03=*OFF                                
0002.04 C   03              LEAVE                                               
0002.05 C                   EXSR      CLRSFL                                    
0002.06 C                   EXSR      FILSFL                                    
0002.07 C                   EXSR      DSPSFL                                    
0002.08 C                   ENDDO                                               
0005.00 C                   SETON                                        LR     
                                                                                
 F3=Exit   F4=Prompt   F5=Refresh   F9=Retrieve   F10=Cursor   F11=Toggle       
 F16=Repeat find       F17=Repeat change          F24=More keys                 

                                                                                

Result of W77

Columns . . . :   77  80            Edit                      AMITCC/QRPGLESRC 
 SEU==>                                                                 TESTSEU 
 FMT FX ++++                                                                    
        *************** Beginning of data ************************************* 
0001.00          121022                                                         
0001.01          121022                                                         
0002.00          121022                                                         
0002.01          120821                                                         
0002.02          120821                                                         
0002.03          120821                                                         
0002.04          120821                                                         
0002.05          120821                                                         
0002.06          120821                                                         
0002.07          120821                                                         
0002.08          120821                                                         
0005.00          120821                                                         
                                                                                
 F3=Exit   F4=Prompt   F5=Refresh   F9=Retrieve   F10=Cursor   F11=Toggle       
 F16=Repeat find       F17=Repeat change          F24=More keys                 


 

 

Ü FIND/CHANGE Command

Shift-F2

We can search a string or search for date in source (included/excluded/all).

It has been discussed previously also in X line command section.

 

                           Find/Change Options                                  
                                                                                
 Type choices, press Enter.                                                     
                                                                                
   Find  . . . . . . . . . . . . .   ________       
   Change  . . . . . . . . . . . .                                              
   From column number  . . . . . .   1            1-80                          
   To column number  . . . . . . .   80           1-80 or blank                 
   Occurrences to process  . . . .   1            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 . . . . . . . .   12/10/22     YY/MM/DD or YYMMDD            
     Compare . . . . . . . . . . .                1=Less than                   
                                                  2=Equal to                    
                                                  3=Greater than                
                                                                                
 F3=Exit   F5=Refresh       F12=Cancel   F13=Change session defaults            
 F15=Browse/Copy options    F16=Find     F17=Change                             


 

An alternative way is to directly give the SEU command entry as F E A 8. This command will find(F) records with character ‘E’ at position 8 in all(A) source.

 

 

Columns . . . :    1  71            Edit                      AMITCC/QRPGLESRC 
 SEU==> F E A 8                                                         TESTSEU 
 FMT FX .....FFilename++IPEASF.....L.....A.Device+.Keywords++++++++++++++++++++ 
        *************** Beginning of data ************************************* 
0001.00      FREC11000  UF A E           K DISK                                 
0001.01      FREC1100DSPCF   E             WORKSTN SFILE(RECSFL:RRN)            
0002.00      DI                S              5  0                              
0002.01      DRRN              S              5  0                              
0002.02      C                   EVAL      RCDNBR=9900                          
0002.03      C                   DOW       *IN03=*OFF                           
0002.04      C   03              LEAVE                                          
0002.05      C                   EXSR      CLRSFL                               
0002.06      C                   EXSR      FILSFL                               
0002.07      C                   EXSR      DSPSFL                               
0002.08      C                   ENDDO                                          
0005.00      C                   SETON                                        LR 

 

 

F E NX 8 è Find string ‘E’ in the not excluded source in column no. 8.

 

F E X 8 è Find string ‘E’ in the excluded source in column no. 8.

 

Ü Specifying the Browse/Copy Option

SHIFT-F3


Columns . . . :    6  76            Edit                       AMITCC/QRPGLESRC 
 SEU==>                                                                 TESTSEU 
 FMT FX FFilename++IPEASF.....L.....A.Device+.Keywords+++++++++++++++++++++++++ 
        *************** Beginning of data ************************************* 
0001.00 FREC11000  UF A E           K DISK                                      
0001.01 FREC1100DSPCF   E             WORKSTN SFILE(RECSFL:RRN)                 
0002.00 DI                S              5  0                                   
0002.01 DRRN              S              5  0                                   
0002.02 DRRN              S              5  0                                   
0002.03 DI                S              5  0                                   
                                                                                
 Columns . . . :    1  71           Browse                       AMIT/QRPGLESRC 
 SEU==>                                                                  MASTER 
        *************** Beginning of data ************************************* 
0001.00      A                                      REF(REFER)                  
0002.00      A          R REC1                                                  
0003.00      A            ORG       R               REFFLD(ORG REFER)           
0004.00      A                                      COLHDG('ORG CODE')          
0005.00      A            ACC       R               REFFLD(ACC REFER)           
0006.00      A                                      COLHDG('ACC NUMBER')        
                                                                                
 F3=Exit   F4=Prompt   F5=Refresh   F9=Retrieve   F11=Toggle   F12=Cancel       
 F16=Repeat find       F17=Repeat change          F24=More keys                 

 

 

 

Ü SEU Command Line Commands

 

ü  FIND

ü  CHANGE

ü  SET MATCH

ü  SET SHIFT

ü  SET TABS

ü  TOP

ü  BOTTOM

ü  FILE

ü  SAVE

ü  HIDE

 











User Comments:



Copyright © www.go4as400.com, 2013-2023. Copyright notice   Terms of services   Privacy policy