This section describes the functions that are available for all object types using main commands and/or line commands.
This section describes the line commands and main commands available to insert and delete lines.
The following line commands are available to insert and delete lines on your editor screen.
| Line Command | Explanation |
|---|---|
D |
Deletes this line. |
Dn |
Deletes the next n lines.
|
DD |
Marks the first line of a block to be deleted. A second
DD line command is required to delineate the block.
The deletion is performed after the second DD is
entered.
|
DX |
Deletes the line labeled .X.
|
DY |
Deletes the line labeled .Y.
|
DX-Y |
Deletes the block of lines from the line labeled .X to the
line labeled .Y.
|
I |
Inserts one line after this one. The editor switches to insert mode. This
means if you type data or enter a blank in the new line and press
ENTER, a new line is automatically inserted and the cursor placed
in it.
If you enter no new data in an inserted line and press
ENTER, the editor leaves insert mode and the blank line is
deleted. If you have defined a mask line and the |
In |
Inserts n lines after this one. You
can type data in the new lines. When you press ENTER, unused lines
are deleted but one blank line remains with the cursor in it (editor stays in
insert mode).
|
TE |
Switches the editor to text enter mode. This means that beginning with this
line the editor screen is blank (without line numbers) and you can enter data.
When you press ENTER, any remaining blank lines are deleted, the line numbers are re-displayed and the text is reformatted within the set margins and with the specified justification. See also POWER Command. |
W |
Opens a window of one line. No new line is inserted if you enter data in the window line and press ENTER. |
Wn |
Opens a window of n lines. When you
press ENTER, all unused lines are deleted.
|
You can also use the POWER main command to switch to text enter
mode.
When you issue the POWER main command, you are presented
with a blank editor screen (without line numbers) and you can enter data. When you press
ENTER, any remaining blank lines are deleted, the line numbers are
redisplayed and the text is reformatted within the set margins and with the specified
justification.
Line deletion can also be performed with the DELETE
main command.
For example, the command:
DEL C'Abc' .X .Y 10 30 ALL
deletes all lines containing the string Abc exactly as entered here
between columns 10 to 30 within the block delineated by the labels .X and
.Y.
You can specify all operands described for the FIND command
above, except that the ALL direction operand specifies deletion of all
lines with the given string. An unqualified DELETE command
deletes the current line.
With the following line commands, you can copy, move or repeat lines or blocks of data.
| Line Command | Explanation |
|---|---|
A |
Marks the target line for a copy (C,
Cn,
CC) or move (M,
Mn,
MM) line command. Data is inserted after
this line.
|
B |
Marks the target line for a copy (C,
Cn,
CC) or move (M,
Mn,
MM) line command. Data is inserted before
this line.
|
C |
Copies this line to the position marked by an A,
B or O line
command.
|
Cn |
Copies the next n lines to the
position marked by an A, B
or O line command.
|
CC |
Marks the first line of the block to be copied. A second
CC is required to the delineate block. Copying is
performed after target has been marked by an A,
B or O line
command.
|
CX |
Copies the line labeled .X. Inserts data after this
line.
|
CY |
Copies the line labeled .Y. Inserts data after this
line.
|
CX-Y |
Copies the block of lines from the line labeled .X to the line
labeled .Y. Inserts data after this line.
|
M |
Moves this line to the position marked by an A,
B or O line
command.
|
Mn |
Moves the next n lines to the
position marked by an A or B
line command.
|
MM |
Marks the first line of the block to be moved. A second
MM is required to delineate the block. The move is
performed after the target has been marked by an A,
B or O line
command.
|
MX |
Moves the line labeled .X. Inserts data after this line.
|
MY |
Moves the line labeled .Y. Inserts data after this line.
|
MX-Y |
Moves the block of lines from the line labeled .X to the line
labeled .Y. Inserts data after this line.
|
O |
Marks the target line for a copy (C,
Cn,
CC) or move (M,
Mn,
MM) line command. Data is merged with this line.
(Only blank characters within boundaries are changed).
See also Example of Overlaying Data. |
On |
Marks this line and the next n lines as the target
lines for a copy (C,
Cn,
CC) or move (M,
Mn,
MM) line command. The moved or copied lines are
merged with these lines, that is, blank characters in the lines are overlaid.
See also Example of Overlaying Data. |
OO |
Marks the first line of a block of target lines for a copy
(C,
Cn,
CC) or move (M,
Mn,
MM) line command. A second
OO command is required to mark the last line of the
block of target lines.
The moved or copied line(s) are merged with these lines, that is, blank characters in the lines are overlaid. See also Example of Overlaying Data. |
R |
Repeat this line once. |
Rn |
Repeat this line n times.
|
RR |
Marks the first line of a block to be repeated. A second
RR is required to delineate the block. The repeat is
performed after second RR is entered.
|
RRn |
Repeat block delineated by two
RRn line commands
n times.
The |
) |
Moves this line right by one column beginning with left boundary. |
)n |
Moves this line right by n
columns.
|
))n |
Marks first line of a block to be moved right by
n columns. A second
))n is required to
delineate the block. The move is performed after the second
))n command is entered.
Two unqualified )) line commands move the block right
by 1 column.
|
( |
Moves this line left by one column. |
(n |
Moves this line left by n
columns.
|
((n |
Marks first line of a block to be moved left by
n columns. A second
((n is required to
delineate the block. The move is performed after the second
((n command is entered.
Two unqualified (( line commands move the block left by
1 column.
If you use the |
> |
Moves this line right by one column. |
>n |
Moves this line right by n
columns.
|
>>n |
Marks first line of a block to be moved right by
n columns. A second
>> is required to delineate the block. The move
is performed after the second >> command is
entered. Two unqualified >> line commands move
the block right by 1 column.
|
< |
Moves this line left by one column. |
<n |
Moves this line left by n
columns.
|
<<n |
Marks first line of a block to be moved left by
n columns. A second
<< is required to delineate the block. The move
is performed after the second << command is
entered. Two unqualified << line commands move
the block left by 1 column.
|
An overlay line command (O,
On or
OO) allows you to merge single-column lists into
multi-column format (that is, tabular form). You can use an overlay line command in
conjunction with a copy (C,
Cn or
CC) or move (M,
Mn or
MM) line command.
The following two figures illustrate this function:
EDIT-NAT:NATLIB1(JOB1JCL)-Program->Struct-Free-77K ------------ Columns 001 072
COMMAND===> SCROLL===> CSR
000090 //JOBNAME JOB NAT,MSGCLASS=X,CLASS=G,TIME=1400
000100 /*JOBPARM LINES=2000
000110 //COPY EXEC PGM=NATBAT,TIME=60,
000120 // PARM=('DBID=9,FNR=33,FNAT=(,15),FSIZE=19',
000130 // 'EJ=OFF,IM=D,ID='';'',MAINPR=1,INTENS=1')
OO0140 //STEPLIB DD
000150 // DD
000160 // DD
OO0170 // DD
MM0180 DISP=SHR,DSN=SPF.SYSF.ADALOAD
000190 DISP=SHR,DSN=SPF.SYSF.LOAD
000200 DISP=SHR,DSN=SPF.SYSF.PROD.INST * OPS INSTALL
MM0210 DISP=SHR,DSN=SPF.SYSF.SOURCE * OPS DOCUMENTS
000220 //DDCARD DD *
000230 ADARUN DA=9,DE=3380,SVC=249
000240 //CMPRINT DD SYSOUT=X
000250 //CMPRT01 DD SYSOUT=X
000260 //CMWKF01 DD DUMMY
000270 //CMSYNIN DD *
000280 LOGON SYSMAIN2
000290 CMD C C * FM #FL DBID #FD FNR #FF TO #TL DBID #TD FNR #TF REP
000300 FIN
000310 /*
****** **************************** bottom of data ****************************
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12---
Help Split End Suspe Rfind Rchan Up Down Swap Left Right Curso |
In the figure above, lines 180 to 210 are marked by the MM
(Move) line command. They are to be overlaid on lines 140 to 170, which are marked by
the OO (Overlay) line command.
This figure shows the result of the line commands displayed in the previous figure. Lines 180 to 210 have been overlaid on lines 140 to 170:
EDIT-NAT:NATLIB1(JOB1JCL)-Program->Struct-Free-76K ------------ Checkpoint done
COMMAND===> SCROLL===> CSR
000090 //JOBNAME JOB NAT,MSGCLASS=X,CLASS=G,TIME=1400
000100 /*JOBPARM LINES=2000
000110 //COPY EXEC PGM=NATBAT,TIME=60,
000120 // PARM=('DBID=9,FNR=33,FNAT=(,15),FSIZE=19',
000130 // 'EJ=OFF,IM=D,ID='';'',MAINPR=1,INTENS=1')
000140 //STEPLIB DD DISP=SHR,DSN=SPF.SYSF.ADALOAD
000150 // DD DISP=SHR,DSN=SPF.SYSF.LOAD
000160 // DD DISP=SHR,DSN=SPF.SYSF.PROD.INST * OPS INSTALL
000170 // DD DISP=SHR,DSN=SPF.SYSF.SOURCE * OPS DOCUMENTS
000180 //DDCARD DD *
000190 ADARUN DA=9,DE=3380,SVC=249
000200 //CMPRINT DD SYSOUT=X
000210 //CMPRT01 DD SYSOUT=X
000220 //CMWKF01 DD DUMMY
000230 //CMSYNIN DD *
000240 LOGON SYSMAIN2
000250 CMD C C * FM #FL DBID #FD FNR #FF TO #TL DBID #TD FNR #TF REP
000260 FIN
000270 /*
****** **************************** bottom of data ****************************
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12---
Help Split End Suspe Rfind Rchan Up Down Swap Left Right Curso |
You can specify a window with data for move or copy operations. This allows you to copy or move data that does not start or end at the beginning or end of a line. This function can be performed by using editor line commands and/or main commands.
When you define a window, all data on your screen between start and end of the window becomes part of the window.
This section covers the following topics:
| Line Command | Explanation |
|---|---|
WS |
Marks start of data window. Cursor position marks the column from which data is read. If the cursor is not in the line for which the command is entered, the window starts in column 1. |
WSn |
Data window starts in column n of
this line.
|
WE |
Marks end of data window. Works in the same way as
WS. If the window is to start and end in the same
line, type the WS command over the
WE command. The editor acknowledges the set window
with messages WS
(WSn) and
WE
(WEn) in the prefix
area, or with WW if the start and end of the window
are in the same line.
Before defining a new window, reset the old window with
the |
WEn
|
Data window ends in column n of
this line.
|
WC |
Copies the data window. The cursor position marks the column at which this line is to be split to insert the copied data. |
WCn
|
Splits this line in column n, and
copies the data between the two parts of the line.
|
WM |
Moves the data window. Works in the same way as
WC, but the original data is deleted after the copy
operation.
|
WMn
|
Splits this line in column n, and
moves the data between the two parts of the line.
|
| Main Command | Explanation |
|---|---|
WINDOW |
Defines a window. The starting line and column, and the end line column
are specified in the command parameters. At least one parameter is required.
Examples:
Defines a window starting in line 5 / column 24, and ending in line 10, column 13.
Defines a window starting in line 5 / column 24, and ending in line 10 / last column.
Defines a window starting in line 5 / first column, and ending in line 10 / last column.
Defines a window starting in line 5 / first column, and ending in line 5 / last column. |
CWINDOW |
Copies a window defined with the WINDOW
command. Optional parameters specify the line at which the window is to be
inserted. Examples:
Copies the window after line 5.
Splits line 5 at column 24 and copies the window in between the two parts. |
DWINDOW |
Deletes a window of data defined by the WINDOW
command.
|
MWINDOW |
Moves window defined by the WINDOW command.
Works like the CWINDOW command, but data in the
original window is deleted after the copy operation.
|
This section provides an example of defining and moving text with a data window by using either line commands or corresponding main commands.
The example refers to the text shown in Step 1 below and assumes that you want to move
the whole sentence starting Note that when... (line 8) to follow the first
sentence of the displayed text ending ...copy operations (line 3).
To define and move a window using line commands
EDIT-NAT:NATLIB1(WINEX)-Text->Struct-Free-78K ----------------- Columns 001 072
COMMAND===> SCROLL===> CSR
****** ****************************** top of data *****************************
000001 Copy a Window with Data
000002
000003 You can specify a window with data for move or copy operations. This
000004 allows you to copy or move data that does not start or end at the
000005 beginning or end of a line. This function can be performed using
000006 editor line commands and/or main commands.
000007
000008 Below are some examples of copying windows with data. Note that when
000009 you define a window, all data on your screen between start and end of
000010 the window become part of the window. Available line commands are:
****** **************************** bottom of data ****************************
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12---
Help Split End Suspe Rfind Rchan Up Down Swap Left Right Curso |
Type the line command WS in line 8, the first line of
data to be moved, place the cursor in the required column (N of the
word Note) and press ENTER.
The message WS55 appears in the prefix area of line 8, indicating
the column number selected:
EDIT-NAT:NATLIB1(WINEX)-Text->Struct-Free-78K ---------------- Block is pending
COMMAND===> SCROLL===> CSR
****** ****************************** top of data *****************************
000001 Copy a Window with Data
000002
000003 You can specify a window with data for move or copy operations. This
000004 allows you to copy or move data that does not start or end at the
000005 beginning or end of a line. This function can be performed using
000006 editor line commands and/or main commands.
000007
WS55 Below are some examples of copying windows with data. Note that when
000009 you define a window, all data on your screen between start and end of
000010 the window become part of the window. Available line commands are:
****** **************************** bottom of data ****************************
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12---
Help Split End Suspe Rfind Rchan Up Down Swap Left Right Curso |
Type the line command WE in line 10, the last line of
data to be moved, move the cursor to the last column to be moved (full stop
(.) after window) and press ENTER.
The message WE37 appears in the prefix area of line 10:
EDIT-NAT:NATLIB1(WINEX)-Text->Struct-Free-78K ---------------- Block is pending
COMMAND===> SCROLL===> CSR
****** ****************************** top of data *****************************
000001 Copy a Window with Data
000002
000003 You can specify a window with data for move or copy operations. This
000004 allows you to copy or move data that does not start or end at the
000005 beginning or end of a line. This function can be performed using
000006 editor line commands and/or main commands.
000007
WS55 Below are some examples of copying windows with data. Note that when
000009 you define a window, all data on your screen between start and end of
WE37 the window become part of the window. Available line commands are:
****** **************************** bottom of data ****************************
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12---
Help Split End Suspe Rfind Rchan Up Down Swap Left Right Curso |
Type the line command WM in line 3 (the data will be
moved to the following line, line 4), and move the cursor to the column at which
line 3 is to be split (the blank before the word This). Press
ENTER.
The specified text section is moved:
EDIT-NAT:NATLIB1(WINEX)-Text->Struct-Free-78K ----------------- Checkpoint done
COMMAND===> SCROLL===> CSR
****** ****************************** top of data *****************************
000001 Copy a Window with Data
000002
000003 You can specify a window with data for move or copy operations.
000004 Note that when
000005 you define a window, all data on your screen between start and end of
000006 the window become part of the window.
000007 This
000008 allows you to copy or move data that does not start or end at the
000009 beginning or end of a line. This function can be performed using
000010 editor line commands and/or main commands.
000011
000012 Below are some examples of copying windows with data.
000013 Available line commands are:
****** **************************** bottom of data ****************************
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12---
Help Split End Suspe Rfind Rchan Up Down Swap Left Right Curso |
You can achieve the same result described in the instructions above when using the command sequence indicated below.
To define and move a window using main commands
Type in the text shown in Step 1 above.
In the command line, enter the following:
WINDOW 8 10 55 37;MWINDOW 3 64
The specified text section is moved as illustrated in Step 4 above.
The editor provides commands which allow you to set horizontal and vertical boundaries
within which certain functions can be performed such as the main commands
FIND, CHANGE,
CENTER, ORDER,
JLEFT and JRIGHT, as well as their
corresponding line commands (for example, TC,
TO, LJ or
RJ).
This section covers the following topics:
With the BNDS main command, you can define horizontal
boundaries as described in the following example instructions.
To set and display boundaries
Issue the following main command:
BNDS 20 50
Horizontal limits are set at columns 20 and 50.
To display the current boundary settings, issue the following line command:
BNDS
The following figure shows the result of the BNDS 20
50 main command followed by a BNDS line
command in line 2:
EDIT-NAT:NATLIB1(JOB1JCL)-Program->Struct-Free-77K ------------ Columns 001 072
COMMAND===> SCROLL===> CSR
****** ****************************** top of data *****************************
=cols> ----+----1----+----2----+----3----+----4----+----5----+----6----+----7--
=bnds> < >
000010 RESET #JOBNAME(A8)
000020 RESET #FD(N3) #FL(A8) #FF(N3)
000030 RESET #TD(N3) #TL(A8) #TF(N3)
000040 COMPRESS *INIT-USER 'SM' INTO #JOBNAME LEAVING NO SPACE
000050 SET CONTROL 'WL60C6B005/010F'
000060 INPUT 'ENTER PARAMETERS FOR LIBRARY COPY:'
000070 / 'FROM: DBID:' #FD 'FNR:' #FF 'LIB:' #FL
000080 / 'TO : DBID:' #TD 'FNR:' #TF 'LIB:' #TL
000090 // #JOBNAME JOB JWO,MSGCLASS=X,CLASS=G,TIME=1400
000100 /*JOBPARM LINES=2000
000110 //COPY EXEC PGM=NATBAT21,REGION=2000K,TIME=60,
000120 // PARM=('DBID=9,FNR=33,FNAT=(,15),FSIZE=19',
000130 // 'EJ=OFF,IM=D,ID='';'',MAINPR=1,INTENS=1')
000140 //STEPLIB DD DISP=SHR,DSN=OPS.SYSF.V5.ADALOAD
000150 // DD DISP=SHR,DSN=OPS.SYSF.PROD.LOAD
000160 //DDCARD DD *
000170 ADARUN DA=9,DE=3380,SVC=249
000180 //CMPRINT DD SYSOUT=X
000190 //CMPRT01 DD SYSOUT=X
000200 //CMWKF01 DD DUMMY
000210 //CMSYNIN DD *
000220 LOGON SYSMAIN2
000230 CMD C C * FM #FL DBID #FD FNR #FF TO #TL DBID #TD FNR #TF REP
000240 FIN
000250 /*
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12---
Help Split End Suspe Rfind Rchan Up Down Swap Left Right Curso |
You can label the current line (line currently at the top of editing area) or a block
of lines by using either the LABEL main commands or
corresponding line commands.
To label current lines using LABEL
Issue the following main command:
LABEL .X
The current line is labeled .X.
To delineate a block of lines, you can now scroll to the next required delimiting line and issue the following main command:
LABEL .Y
The new current line is labeled .Y denoting the last line of a block
of lines.
To label specific lines using line commands
Next to the first line to be labeled, issue the following line command:
.X
The specified line is labeled .X.
Next to the last line to be labeled, issue the following line command:
.Y
The specified line is labeled .Y delimiting a block of lines that
starts with the line labeled .X.
Tip
You can use any string to label lines, for example .START and
.END.
For examples of using labeled lines, see the sections Finding a Character String and Replacing a Character String.
You can define data that is automatically placed in a line added through a line insertion
operation (for example, by using the line command I or
W). Such a line is referred to as a mask line. A mask line is
useful when you must write several lines of code which are identical or very similar.
Note
You can only have one mask line during an editing session. If you define a new mask
line, any existing mask line definition is automatically updated with the new
value.
Issue the following line command:
MASK
A blank line indicated by =mask> appears above the line in which
you entered the command.
In the blank line, enter the data you want to define as a mask line and press ENTER.
The mask line is now available for the current source until you update the mask with a new mask line or until you deactivate the mask function.
Issue the following main command:
MASK ON
The mask function is activated. The defined mask line now appears in all lines added through a line insert operation.
Issue an insert line command, for example:
I2
Two new lines are inserted into the source with the text of the mask line. The text of a mask line appears in all lines added with an insert command.
Modify the text in the new lines. If you do not modify the text, any inserted line is deleted the next time you press ENTER.
If required, deactivate the mask function with the following main command:
MASK OFF
The MASK OFF command deactivates the mask function but
does not delete the contents of the mask line.
See also MASK in Summary of Main
Commands.
You can change the indentation of specified lines by using the ORDER main
command together with a boundary setting. For example, the command sequence:
BNDS 3;ORDER 5 20
moves lines 5 to 20 right to start in column 3.
Note
If the end of any ordered line traverses the right boundary, it is automatically
split.
To re-justify the shifted data to the left, use a JLEFT
command.
You can also change the indentation of lines or of a block of data by using line commands. Here, too, if the end of any line traverses the right boundary, it is automatically split.
| Line Command | Explanation |
|---|---|
TF |
Orders data from the line on which it was entered to the end of the paragraph
or to the next blank line with the right boundary. This line command can be
entered with a numerical value specifying the right boundary, for example, the
line command TF50 orders data with column 50.
|
TO |
Marks one line to be ordered. |
TOO |
Marks the first line of a block of data to be ordered. Requires a second
TOO line command to delineate the block. Ordering is
performed after the second TOO is issued.
|
Data can be ordered within set boundaries and justified to the left boundary, right
boundary or both by using the JUSTIFY command. For example, the command:
BNDS 6 60;JUSTIFY BOTH
activates justification to columns 5 and 60. To perform the ordering, mark a block of
data with two TOO line commands.
The editor also provides a line command with which you can split a single line into two.
Type the line command S in the prefix area of the line you want
to split, move the cursor to the position where the split is to occur and press
ENTER.
The editor also provides commands with which you can center specified data within set boundaries. For example, the sequence:
BNDS 5 60;CENTER 5 15
centers data in lines 5 to 15 between columns 5 and 60.
Note
Only text already within the boundaries is centered. Text to the left and right of
the boundaries is not affected.
Alternatively, you can use line commands to perform the centering function:
| Line Command | Explanation |
|---|---|
TC |
Centers this line within the set boundaries. |
TCC |
Marks the first line in a block of data to be centered. Requires a second
TCC line command to delineate the block. The
centering is performed after the second TCC command is
issued.
|
A number of main commands and line commands are available to rearrange lines or blocks of
data on your screen, depending on the setting of your horizontal boundaries (BNDS main
command); see the section Setting
Horizontal and Vertical Boundaries.
The JLEFT and JRIGHT main
commands justifies the specified data with the left and right boundaries respectively. For
example, the sequence:
BNDS 16 80;JLEFT 140 170
justifies the data between columns 16 to 80 in lines 140 to 170 with column 16.
The figure below illustrates this example:
EDIT-NAT:NATLIB1(JOB1JCL)-Program->Struct-Free-77K ------------ Columns 001 072
COMMAND===> BNDS 16 80;JLEFT 140 170 SCROLL===> CSR
=cols> ----+----1----+----2----+----3----+----4----+----5----+----6----+----7--
000090 // #JOBNAME JOB NAT,MSGCLASS=X,CLASS=G,TIME=1400
000100 /*JOBPARM LINES=2000
000110 //COPY EXEC PGM=NATBAT,TIME=60,
000120 // PARM=('DBID=9,FNR=33,FNAT=(,15),FSIZE=19',
000130 // 'EJ=OFF,IM=D,ID='';'',MAINPR=1,INTENS=1')
000140 //STEPLIB DD DISP=SHR,DSN=SPF.SYSF.ADALOAD
000150 // DD DISP=SHR,DSN=SPF.SYSF.LOAD
000160 // DD DISP=SHR,DSN=SPF.SYSF.PROD.INST * OPS INSTALL
000170 // DD DISP=SHR,DSN=SPF.SYSF.SOURCE * OPS DOCUMENTS
000180 //DDCARD DD *
000190 ADARUN DA=9,DE=3380,SVC=249
000200 //CMPRINT DD SYSOUT=X
000210 //CMPRT01 DD SYSOUT=X
000220 //CMWKF01 DD DUMMY
000230 //CMSYNIN DD *
000240 LOGON SYSMAIN2
000250 CMD C C * FM #FL DBID #FD FNR #FF TO #TL DBID #TD FNR #TF REP
000260 FIN
000270 /*
****** **************************** bottom of data ****************************
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12---
Help Split End Suspe Rfind Rchan Up Down Swap Left Right Curso |
The following screen shows the result of the command displayed in the command line of the previous screen:
EDIT-NAT:NATLIB1(JOB1JCL)-Program->Struct-Free-77K ------ File has been ordered
COMMAND===> SCROLL===> CSR
=cols> ----+----1----+----2----+----3----+----4----+----5----+----6----+----7--
000090 // #JOBNAME JOB NAT,MSGCLASS=X,CLASS=G,TIME=1400
000100 /*JOBPARM LINES=2000
000110 //COPY EXEC PGM=NATBAT,TIME=60,
000120 // PARM=('DBID=9,FNR=33,FNAT=(,15),FSIZE=19',
000130 // 'EJ=OFF,IM=D,ID='';'',MAINPR=1,INTENS=1')
000140 //STEPLIB DD DISP=SHR,DSN=SPF.SYSF.ADALOAD
000150 // DD DISP=SHR,DSN=SPF.SYSF.LOAD
000160 // DD DISP=SHR,DSN=SPF.SYSF.PROD.INST * OPS INSTALL
000170 // DD DISP=SHR,DSN=SPF.SYSF.SOURCE * OPS DOCUMENTS
000180 //DDCARD DD *
000190 ADARUN DA=9,DE=3380,SVC=249
000200 //CMPRINT DD SYSOUT=X
000210 //CMPRT01 DD SYSOUT=X
000220 //CMWKF01 DD DUMMY
000230 //CMSYNIN DD *
000240 LOGON SYSMAIN2
000250 CMD C C * FM #FL DBID #FD FNR #FF TO #TL DBID #TD FNR #TF REP
000260 FIN
000270 /*
****** **************************** bottom of data ****************************
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12---
Help Split End Suspe Rfind Rchan Up Down Swap Left Right Curso |
The sequence:
BNDS 10;JRIGHT 15
justifies the data on the right of column 10 in line 15 to the end of the screen with the last column of your editor screen (column 88 of your terminal screen).
Alternatively, you can justify lines or blocks of data by using any of the line commands listed in the following table:
| Line Command | Explanation |
|---|---|
LJ |
Justifies the data within the set boundaries in this line with the left boundary. |
LJJ |
Marks the first line of a block of data within the boundaries (set with the
BNDS main command) to be justified to the left. A
second LJJ line command is required to delineate the
block. Justification is performed after the second LJJ
is issued.
|
RJ |
Justifies the data within the set boundaries in this line with the right boundary. |
RJJ |
Marks the first line of a block of data within the boundaries (set with the
BNDS main command) to be justified to the right. A
second RJJ line command is required to delineate the
block. Justification is performed after the second RJJ
is issued.
|
You can also justify data to the left boundary, or order data between left and right
boundary in conjunction with the JUSTIFY command.
For example, the command sequence:
BNDS 10 60;JUSTIFY LEFT
enables justification to the left boundary. Mark a block of data with two
TOO line commands (explained below) to reformat the data
between columns 10 and 60, justified to column 10.
This section provides instructions for using the TABS main
command and/or the TABS line command to control tabulator
settings.
In the examples of tabulation provided in this section, the ampersand (&) is assumed
to be the tabulation character; the COLS line command has been
issued to display column positions.
This section covers the following topics:
When you issue the TABS ON main command, the standard tab
positions set in your editor profile are turned on and tabs on std appears
in your profile. Issue the TABS OFF main command to turn
tabulation off again.
For detailed information on the command syntax that applies to TABS, see
the relevant section in Summary of Main Commands.
This section covers the following topics:
To turn tabulation on and set the standard tab positions for your profile to columns
10, 20, 30, 40 and 50, for example, issue the main command TABS 10 20 30
40 50.
To turn tabulation on and set the logical tab character to & (ampersand), for
example, issue the main command TABS &.
You can enter data and automatically move it to a specific tab position by preceding it with a logical tab character. One tab character moves the data to the next tab position, two tab characters moves the data to the second tab position, and so on.
Apart from tab positions, you can specify the following parameters with the
TABS main command:
| Parameter | Explanation |
|---|---|
DECIMAL |
Orders data with the decimal point in the data at the tab position.
See also Example 3 - TABS DECIMAL. |
LEFT |
Orders data to the left of the tab position.
See also Example 1 - Tab Positions. |
RIGHT |
Orders data to the right of the tab position.
See also Example 2 - TABS RIGHT. |
To display the current logical tab character and shift parameter (excluding tab
positions), issue the PROFILE main command.
When you issue the TABS line command in any line, the
current tab positions set in your editor profile are displayed in that line and marked
with asterisks (*) if no logical tab character has been set. This command does not turn
tabulation on.
For example, issue the TABS line command to display the
positions set with the main command TABS 10 20 30 40 50.
This displays the current tab positions as follows:
=tabs> * * * * * * |
To tabulate data in a specific column and with a specific shift, multiple logical tab characters and mixed justification parameters are possible.
To set the multiple logical tab characters, issue the TABS
line command and type a special character over each asterisk (*). Any data typed in
preceded by any of these logical tab characters are tabulated in the corresponding
column.
To set the mixed justification parameters, type L (Left), R
(Right) or D (Decimal) to the right of each logical tab character for
left, right or decimal ordering.
See also Example 4 - Mixed Justification.
The command
TABS 10 20 40 LEFT
activates logical tabs with tabulation columns 10, 20, and 40 with left justification. After you press ENTER, the input text line
&abc &def &ghi
is displayed as follows:
=cols> ----+----1----+----2----+----3----+----4----+----5----+----6
abc def ghi |
The command
TABS RIGHT
activates logical tabs with right justification. After you press ENTER, the input text line
&abc &def &ghi
is displayed as follows:
=cols> ----+----1----+----2----+----3----+----4----+----5----+----6
abc def ghi |
The command
TABS DECIMAL
activates logical tabs with justification of the decimal point in the tab position. After you press ENTER, the input text line
&15.27$ &16.3 EUR &13 IS
is displayed as follows:
=cols> ----+----1----+----2----+----3----+----4----+----5----+----6
15.27$ 16.3 EUR 13 IS |
Issue the command:
TABS 10 20 30 40 50
Then issue the TABS line command. This displays the current
tab positions as follows:
=tabs> * * * * * |
Type an L, R or D next to each tab position as
required (unmarked tab positions assume the value of the last
TAB command):
=tabs> *R *D *D *D *L |
After you press ENTER, the input text line
&start &0.01 &0.02 &0.03 &end
is displayed as follows:
=cols> ----+----1----+----2----+----3----+----4----+----5----+----6
start 0.01 0.02 0.03 end |
Issue the command
TABS ' '
which activates tabulation with one blank as tabulation character. This means that words separated by one blank are tabulated. After you press ENTER, the input text line
this is a blank tabulation
is displayed as follows:
=cols> ----+----1----+----2----+----3----+----4----+----5----+----6
this is a blank tabulation |
You can sort data lines in ascending or descending alphabetical order according to sorting criteria. For example, the command:
SORT 10 15
sorts all lines in the source in ascending order according to the characters beginning in column 10 and ending in column 15.
To sort only a block of lines, for example, label the lines where the block is to start
and end with .X and .Y respectively. The command:
SORT .X .Y D
sorts all lines in the block marked with .X and .Y in
descending order.
To sort a block of lines according to the characters beginning in column 5 and ending in
column 20, for example, label the lines where the block is to start and end with
.X and .Y respectively. The command:
SORT 5 20 .X .Y
sorts all lines in the block marked by .X and .Y in ascending
order according to the characters beginning in column 5 and ending in column 20.
To locate a specific character string, you can use the FIND
main command with operands defining the string, the area to be searched and the direction
of search. The cursor is placed on the first character of the string. If the line
containing the string was excluded from display, it is now included in the display.
The following sections describe the possible command operands.
The string operand defines the character string to be located.
You can specify any of the following:
| Operand | Explanation | ||||||||||||||||
|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
* |
Finds the string specified in previous FIND
command.
|
||||||||||||||||
'abc' |
Finds the string abc regardless of whether the string is upper
case or lower case.
|
||||||||||||||||
C'Abc' |
Finds the string exactly as entered here. | ||||||||||||||||
P'a(char)c' |
Finds the string whose first character is a and third
character is c. (char)
stands for a special character acting as a wildcard character with the following
meaning:
|
||||||||||||||||
T'abc' |
Finds the string abc regardless of whether the string is upper
case or lower case.
|
||||||||||||||||
X'D4A8' |
Finds the string that corresponds to hexadecimal D4A8.
|
The string-matching operand specifies whether any special occurrence of the string is to be located. The following options are possible:
| Operand | Explanation |
|---|---|
CHARS |
No restrictions (any occurrence of the string). |
PREFIX |
Only those occurrences which are the prefix of a word. |
SUFFIX |
Only those occurrences which are the suffix of a word. |
WORD |
Only those occurrences which form a word. |
Default is CHARS.
The direction operand specifies the direction of the search operation.
The following options are possible:
| Operand | Explanation |
|---|---|
ALL |
Any occurrence of the string (search all directions). |
FIRST |
First occurrence of the string. |
LAST |
Last occurrence of the string. |
NEXT |
Next occurrence of the string starting from the cursor position. |
PREV |
Previous occurrence of the string. |
Default is NEXT.
This line-type operand specifies whether excluded or included lines only are to be searched. The following options are possible:
| Operand | Explanation |
|---|---|
X |
Search excluded lines only. |
NX |
Search non-excluded lines only. |
If this operand is omitted, the editor searches all data for the given string, included and excluded lines. If the string is found in an excluded line, it is returned to display.
If you have labeled lines or a block of lines, you can use the block operand to
restrict the search area for the FIND command.
Two examples of the block operand follow:
| Operand | Explanation |
|---|---|
.X |
Search from line labeled .X to end of data.
|
.X .Y |
Search from line labeled .X to line labeled
.Y.
|
where X and Y can be any alphabetic character or
four-character string.
The column operand allows you to restrict the search for the given string between certain columns. Below are two examples of the columns operand.
| Operand | Explanation |
|---|---|
20 |
Locate given string starting in column 20 (the first character of the string must be in column 20). |
20 40 |
Locate given string anywhere between columns 20 to 40. |
F C'HILITE' X PREV
Find the previous occurrence of the string HILITE exactly as entered here;
search excluded lines only.
F P'RCV#' .X .Z 20 30
Find the string starting RCV with a numeric fourth character within the
block .X .Z and between columns 20 to 30.
F X'6C' SUFFIX NX
Find the character corresponding to the hexadecimal 6C in non-excluded
lines only. The character must end a word.
| Command | Explanation |
|---|---|
F C'HILITE' X PREV |
Find the previous occurrence of the string HILITE exactly as
entered here; search excluded lines only.
|
F P'RCV#' .X .Z 20 30 |
Find the string starting RCV with a numeric fourth character
within the block .X .Z and between columns 20 to 30.
|
F X'6C' SUFFIX NX |
Find the character corresponding to the hexadecimal 6C in
non-excluded lines only. The character must end a word.
|
If single quotation marks are part of the string to be found, you must use a different
separator in the FIND command, for example double quotation
marks:
FIND C"'string'"
You can repeat a previous FIND command with the
RFIND main command.
You can find and replace a given character string by another character string by using
the CHANGE main command.
If apostrophes are part of the string to be replaced, you must use a different separator
in the CHANGE command, for example quotation marks:
CHANGE "'string1'" "'string2'"
The same operands as for the FIND command can be used with the
CHANGE command. For the CHANGE
command, however, the ALL directions operand means change all occurrences of
the specified string.
After the replace operation is performed, the message ==chg> appears in
the prefix area of the changed line.
This section covers the following topics:
| Command | Explanation |
|---|---|
CHG 'LOW' 'HIGH' |
Replaces the first occurrence of LOW by HIGH
(upper and lower case ignored).
|
CHG C'OPS' 'SPF' .X .Y 28 32
all |
Replaces OPS (exactly as entered here) by
SPF; replace all
occurrences in the block labeled .X and .Y and between
the columns 28 and 32.
See also the example screens below. |
|
Repeated
CHANGE
commands: |
|
CHG * 'NEW' |
Replaces the next occurrence of the string specified in the last
CHANGE command by the new string
NEW.
|
CHG 'OLD' * |
Replaces OLD by the same new string as specified in the last
CHANGE command.
|
The screen below illustrates the second example before the command is executed with ENTER:
EDIT-NAT:NATLIB1(JOB1JCL)-Program->Struct-Free-77K ------------ Columns 001 072
COMMAND===> CHG C'OPS' 'SPF' .X .Y 28 32 ALL SCROLL===> CSR
****** ****************************** top of data *****************************
=cols> ----+----1----+----2----+----3----+----4----+----5----+----6----+----7--
000010 RESET #JOBNAME(A8)
000020 RESET #FD(N3) #FL(A8) #FF(N3)
000030 RESET #TD(N3) #TL(A8) #TF(N3)
000040 COMPRESS *INIT-USER 'SM' INTO #JOBNAME LEAVING NO SPACE
000050 SET CONTROL 'WL60C6B005/010F'
000060 INPUT 'ENTER PARAMETERS FOR LIBRARY COPY:'
000070 / 'FROM: DBID:' #FD 'FNR:' #FF 'LIB:' #FL
000080 / 'TO : DBID:' #TD 'FNR:' #TF 'LIB:' #TL
000090 // #JOBNAME JOB NAT,MSGCLASS=X,CLASS=G,TIME=1400
000100 /*JOBPARM LINES=2000
000110 //COPY EXEC PGM=NATBAT,TIME=60,
000120 // PARM=('DBID=9,FNR=33,FNAT=(,15),FSIZE=19',
000130 // 'EJ=OFF,IM=D,ID='';'',MAINPR=1,INTENS=1')
.X //STEPLIB DD DISP=SHR,DSN=OPS.SYSF.ADALOAD
000150 // DD DISP=SHR,DSN=OPS.SYSF.LOAD
000160 // DD DISP=SHR,DSN=OPS.SYSF.PROD.INST * OPS INSTALL
.Y // DD DISP=SHR,DSN=OPS.SYSF.SOURCE * OPS DOCUMENTS
000180 //DDCARD DD *
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12---
Help Split End Suspe Rfind Rchan Up Down Swap Left Right Curso |
The screen below illustrates the second example after the command is executed with ENTER:
EDIT-NAT:NATLIB1(JOB1JCL)-Program->Struct-Free-77K ------ 4 char 'OPS' changed
COMMAND===> SCROLL===> CSR
****** ****************************** top of data *****************************
=cols> ----+----1----+----2----+----3----+----4----+----5----+----6----+----7--
000010 RESET #JOBNAME(A8)
000020 RESET #FD(N3) #FL(A8) #FF(N3)
000030 RESET #TD(N3) #TL(A8) #TF(N3)
000040 COMPRESS *INIT-USER 'SM' INTO #JOBNAME LEAVING NO SPACE
000050 SET CONTROL 'WL60C6B005/010F'
000060 INPUT 'ENTER PARAMETERS FOR LIBRARY COPY:'
000070 / 'FROM: DBID:' #FD 'FNR:' #FF 'LIB:' #FL
000080 / 'TO : DBID:' #TD 'FNR:' #TF 'LIB:' #TL
000090 // #JOBNAME JOB NAT,MSGCLASS=X,CLASS=G,TIME=1400
000100 /*JOBPARM LINES=2000
000110 //COPY EXEC PGM=NATBAT,TIME=60,
000120 // PARM=('DBID=9,FNR=33,FNAT=(,15),FSIZE=19',
000130 // 'EJ=OFF,IM=D,ID='';'',MAINPR=1,INTENS=1')
.X //STEPLIB DD DISP=SHR,DSN=SPF.SYSF.ADALOAD
==chg> // DD DISP=SHR,DSN=SPF.SYSF.LOAD
==chg> // DD DISP=SHR,DSN=SPF.SYSF.PROD.INST * OPS INSTALL
.Y // DD DISP=SHR,DSN=SPF.SYSF.SOURCE * OPS DOCUMENTS
000180 //DDCARD DD *
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12---
Help Split End Suspe Rfind Rchan Up Down Swap Left Right Curso |
All occurrences of the string OPS have been replaced by the string
SPF between lines 140 and 170 and within the columns 28 to 32.
When changing character strings, good use can be made of the
RFIND (repeated FIND) and the
RCHANGE (repeated CHANGE)
commands, for example, the sequence:
FIND 'abc' CHANGE 'abc' 'def' RFIND RCHANGE
allows you to find occurrences of a certain string and optionally change them with relatively small effort.
