Ü 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