D (Delete)

Summary

The following table summarizes the DELETE command.

Command	Action	Result
D	Enter a D in the line number column of the line you want to delete.	Deletes the line you specified.
DB	Enter DB in the line number column of the first line you want to delete.	Deletes from the line you specified through the last line.
DD	Enter DD in the line number column of the first and last line you want to delete.	Deletes the block of lines marked off by the DD pair.
Dn	Enter a D with the number of lines you want to delete.	Deletes the specified number of lines starting with the line on which you entered the DELETE command.
DT	Enter DT on the line number of the last line you want to delete.	Deletes from line 1 through the line you specified.

Description

You can use the DELETE command to delete single lines or a specified number of lines.

Action

To delete one line, enter D in the first position of the line number column of the line. To use the other DELETE commands, enter them beginning in the first position of the line number column of the line you select.

Example—Delete a Line

 =>
 ------------------------------------------------------------------------DQD10
 DATAQUERY:  EDITOR
 -----------------------------------------------------------------------------
 NAME:          SAMPLE-QUERY2                     TYPE: QUERY   STATUS: PRIVATE
 DESCRIPTION:   DELETE ONE LINE ___________________________________________
    ....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+.
 .. ================================ T O P =====================================
 01 FIND 10 CAI-SLSHST-REC
 D2 WITH SHIP-QTY > 100
 03 RELATED BY ITM-ID TO CAI-RCPTS-REC
 04 SET NET-COST (8.2) = CAI-SLSHST-REC SHIP-QTY * UNIT-PRICE
 05 SET DISCOUNT (5.2) = NET-COST * DISC-PCT
 06 SET DISCOUNT-COST (8.2) = NET-COST - DISCOUNT
 07 SORT CAI-RCPTS-REC BY (ITM-ID)
 08 CAI-SLSHST-REC BY (ITM-ID)
 09 PRINT FROM CAI-RCPTS-REC ITM-ID 'ORD-ID'
 10 FROM CAI-SLSHST-REC ITM-ID
 11 SHIP-QTY
 -----------------------------------------------------------------------------
 <PF1>  HELP       <PF2>  RETURN       <PF3>  EXECUTE      <PF4>  SAVE
 <PF5>  DIALOG DEF <PF6>  DELETE       <PF7>  BACKWARD     <PF8>  FORWARD
 <PF9>  UPDATE     <PF10> VALIDATE     <PF11> RIGHT/LEFT   <PF12> CREATE MODE

Result

 =>
 ------------------------------------------------------------------------DQD10
 DATAQUERY:  EDITOR
 -----------------------------------------------------------------------------
 NAME:          SAMPLE-QUERY2                     TYPE: QUERY   STATUS: PRIVATE
 DESCRIPTION:   DELETE ONE LINE
    ....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+.
 .. ================================ T O P =====================================
 01 FIND 10 CAI-SLSHST-REC
 02 RELATED BY ITM-ID TO CAI-RCPTS-REC
 03 SET NET-COST (8.2) = CAI-SLSHST-REC SHIP-QTY * UNIT-PRICE
 04 SET DISCOUNT (5.2) = NET-COST * DISC-PCT
 05 SET DISCOUNT-COST (8.2) = NET-COST - DISCOUNT
 06 SORT CAI-RCPTS-REC BY (ITM-ID)
 07 CAI-SLSHST-REC BY (ITM-ID)
 08 PRINT FROM CAI-RCPTS-REC ITM-ID 'ORD-ID'
 09 FROM CAI-SLSHST-REC ITM-ID
 10 SHIP-QTY
 11 UNIT-PRICE
 -----------------------------------------------------------------------------
 <PF1>  HELP       <PF2>  RETURN       <PF3>  EXECUTE      <PF4>  SAVE
 <PF5>  DIALOG DEF <PF6>  DELETE       <PF7>  BACKWARD     <PF8>  FORWARD
 <PF9>  UPDATE     <PF10> VALIDATE     <PF11> RIGHT/LEFT   <PF12> CREATE MODE

Example—Delete Multiple Lines

 =>
 ------------------------------------------------------------------------DQD10
 DATAQUERY:  EDITOR
 -----------------------------------------------------------------------------
 NAME:          SAMPLE-QUERY2                     TYPE: QUERY   STATUS: PRIVATE
 DESCRIPTION:   DELETE MORE THAN ONE LINE
    ....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+.
 11 UNIT-PRICE
 D3 (NET-COST)
 13 DISCOUNT
 14 (DISCOUNT-COST)
 .. ===========================  B O T T O M  ==================================
 
 
 
 
 
 
 
 -----------------------------------------------------------------------------
 <PF1>  HELP       <PF2>  RETURN       <PF3>  EXECUTE      <PF4>  SAVE
 <PF5>  DIALOG DEF <PF6>  DELETE       <PF7>  BACKWARD     <PF8>  FORWARD
 <PF9>  UPDATE     <PF10> VALIDATE     <PF11> RIGHT/LEFT   <PF12> CREATE MODE

Result

 =>
 ------------------------------------------------------------------------DQD10
 DATAQUERY:  EDITOR
 -----------------------------------------------------------------------------
 NAME:          SAMPLE-QUERY2                     TYPE: QUERY   STATUS: PRIVATE
 DESCRIPTION:   DELETE MORE THAN ONE LINE
    ....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+.
 11 UNIT-PRICE
 .. ===========================  B O T T O M  ==================================
 
 
 
 
 
 
 
 
 
 
 -------------------------------------------------------------------------------
 <PF1>  HELP       <PF2>  RETURN       <PF3>  EXECUTE      <PF4>  SAVE
 <PF5>  DIALOG DEF <PF6>  DELETE       <PF7>  BACKWARD     <PF8>  FORWARD
 <PF9>  UPDATE     <PF10> VALIDATE     <PF11> RIGHT/LEFT   <PF12> CREATE MODE