R (Repeat)

Summary

The following table summarizes the REPEAT command.

Command	Action	Result
R	Enter an R in the line number column of the line you want repeated.	Repeats the line on which you entered the R command.
Rn	Enter an R in the line number column of the line you want repeated and specify the number of times you want the line repeated.	Repeats the line the specified number of times.

Description

You can use the REPEAT command to repeat lines of existing text. The repeated lines are inserted below the line on which you entered the REPEAT command.

Action

Enter an R in the first position of the line number column to repeat a single line. To repeat a single line multiple times, enter an R in the first column of the line number column and the number of times you want the line repeated in the second column.

Example—Repeat One Line

 =>
 ------------------------------------------------------------------------DQD10
 DATAQUERY:  EDITOR
 -----------------------------------------------------------------------------
 NAME:          SAMPLE                            TYPE: QUERY   STATUS: PRIVATE
 DESCRIPTION:   REPEAT A LINE
    ....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+.
 .. ================================ T O P =====================================
 01 FIND 10 CAI-SLSHST-REC
 02 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)
 R8 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                            TYPE: QUERY   STATUS: PRIVATE
 DESCRIPTION:   REPEAT LINES
    ....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+.
 .. ================================ T O P =====================================
 01 FIND 10 CAI-SLSHST-REC
 02 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 CAI-SLSHST-REC BY (ITM-ID)
 10 PRINT FROM CAI-RCPTS-REC ITM-ID 'ORD-ID'
 -----------------------------------------------------------------------------
 <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—Repeat Multiple Lines

 =>
 ------------------------------------------------------------------------DQD10
 DATAQUERY:  EDITOR
 -----------------------------------------------------------------------------
 NAME:          SAMPLE                            TYPE: QUERY   STATUS: PRIVATE
 DESCRIPTION:   REPEAT LINES
    ....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+.
 .. ================================ T O P =====================================
 01 FIND 10 CAI-SLSHST-REC
 02 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)
 R2 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                            TYPE: QUERY   STATUS: PRIVATE
 DESCRIPTION:   REPEAT LINES
    ....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+.
 .. ================================ T O P =====================================
 01 FIND 10 CAI-SLSHST-REC
 02 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 CAI-SLSHST-REC BY (ITM-ID)
 10 CAI-SLSHST-REC BY (ITM-ID)
 11 PRINT FROM CAI-RCPTS-REC ITM-ID 'ORD-ID'
 -----------------------------------------------------------------------------
 <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