Go4AS400-Image

The Web Ask Go4AS400
Share  
Homepage
See Sitemap
as400_FAQ
See Videos here
Contact me



Ü  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 2 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    

                                          (C) COPYRIGHT IBM CORP. 1981, 2003.

 

 

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.