|
Operand |
Description |
|---|---|
|
D |
Entered on a line of data to delete. You can specify several D line commands on the same screen. |
|
DT |
Indicates the end of a range of lines to delete, starting with the first line of the member. |
|
DB |
Indicates the start of a range of lines to delete, ending with the last line of the member. |
|
DD |
Used in pairs to indicate the start and end of a range of lines to delete. The second occurrence of this command on the same or subsequent screen is interpreted as the end of the range. After specifying the start of a range with the DD line command, you can scroll the region forward or backward and can perform other line commands. Until the end of the range started by a DD line command is found, a PENDING message appears in the message line. When interpreting line commands that mark ranges of lines to delete, the commands are matched into pairs from the top down, regardless of the order in which you entered the line commands. |
The sequence numbers of deleted lines are also deleted (see the following example). To renumber the sequence numbers and eliminate gaps in numbering caused by deletions, see the RENUMBER primary editing command.
Example
The following example illustrates deleting a single line, 000700, and a range of lines, 001200 to 001700.
=>
....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+.... IDEAL: PROCEDURE DEFINITION PGM EMPLST (001) TEST SYS: DEM FILL-IN Command....+....1....+....2....+....3....+....4....+....5....+....6....+....7.. ====== ================================ T O P ================================= 000100 SELECT 000200 WHEN $ENTER-KEY 000300 FOR EMPLOYEE 000400 WHERE EMPLOYEE.NUMBER = DISPLANEL.NUMBER 000500 MOVE DISPANEL TO EMPLOYEE BY NAME 000600 WHEN NONE D00700 SET DISPANEL.MSG = 'EMPLOYEE DELETED' 000800 SET ATTR HIGHLIGHT TEMP ON DISPANEL.NUMBER 000900 ENDFOR 001000 SET NEXT_PANEL = 'DISPANEL' 001100 WHEN $PF11 DD1200 SET NEXT_PANEL = 'EMPMENU' 001300 WHEN $PF12 001400 DO TERMINATE_SES 001500 WHEN OTHER 001600 SET DISPANEL.MSG = 'UNABLE TO INTERPRET KEY ENTERED' DD1700 SET NEXT_PANEL = 'DISPANEL'
Once the data is applied, the designated lines are deleted. The sequence numbers on deleted lines are also deleted.
=>
....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+.... IDEAL: PROCEDURE DEFINITION PGM EMPLST (001) TEST SYS: DEM FILL-IN Command....+....1....+....2....+....3....+....4....+....5....+....6....+....7.. ====== ================================ T O P ================================= 000100 SELECT 000200 WHEN $ENTER-KEY 000300 FOR EMPLOYEE 000400 WHERE EMPLOYEE.NUMBER = DISPLANEL.NUMBER 000500 MOVE DISPANEL TO EMPLOYEE BY NAME 000600 WHEN NONE 000800 SET ATTR HIGHLIGHT TEMP ON DISPANEL.NUMBER 000900 ENDFOR 001000 SET NEXT_PANEL = 'DISPANEL' 001100 WHEN $PF11
The following illustrates deleting lines 000800 to 001400, using the DB command.
=>
....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+.... IDEAL: PROCEDURE DEFINITION PGM EMPLST (001) TEST SYS: DEM FILL-IN Command....+....1....+....2....+....3....+....4....+....5....+....6....+....7.. ====== ================================ T O P ================================= 000100 SELECT 000200 WHEN $ENTER-KEY 000300 FOR EMPLOYEE 000400 WHERE EMPLOYEE.NUMBER = DISPLANEL.NUMBER 000500 MOVE DISPANEL TO EMPLOYEE BY NAME 000600 WHEN NONE 000700 SET ATTR HIGHLIGHT TEMP ON DISPANEL.NUMBER DB0800 ENDFOR 000900 SET NEXT_PANEL = 'DISPANEL' 001000 WHEN $PF11 001100 WHEN $PF12 001200 DO TERMINATE_SES 001300 WHEN OTHER 001400 SET DISPANEL.MSG = 'UNABLE TO INTERPRET KEY ENTERED'
Once the DB command is applied, the designated lines are deleted as shown below.
=>
....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+.... IDEAL: PROCEDURE DEFINITION PGM EMPLST (001) TEST SYS: DEM FILL-IN Command....+....1....+....2....+....3....+....4....+....5....+....6....+....7.. ====== ================================ T O P ================================= 000100 SELECT 000200 WHEN $ENTER-KEY 000300 FOR EMPLOYEE 000400 WHERE EMPLOYEE.NUMBER = DISPLANEL.NUMBER 000500 MOVE DISPANEL TO EMPLOYEE BY NAME 000600 WHEN NONE 000700 SET ATTR HIGHLIGHT TEMP ON DISPANEL.NUMBER
|
Copyright © 2015 CA Technologies.
All rights reserved.
|
|