Shift

Summary

The following table summarizes the SHIFT command.

Command	Action	Result
<n	Enter < and the number of columns you want the display to shift to the left.	Shifts the display the specified number of columns to the left.
>n	Enter > and the number of columns you want the display to shift to the right.	Shifts the display the specified number of columns to the right.

Description

The SHIFT command allows you to shift a line of text to the right or left.

Action

You can shift the display area right or left by using the < and > keys. <n shifts the display the specified number of columns left. >n shifts the display the specified number of columns right. You cannot shift to the left or the right if it would cause non-blank characters to be shifted past column 1 or column 80.

Example—Shift Right

 =>
 ------------------------------------------------------------------------DQD10
 DATAQUERY:  EDITOR
 -----------------------------------------------------------------------------
 NAME:          SAMPLE                            TYPE: QUERY   STATUS: PRIVATE
 DESCRIPTION:   SHIFT A LINE TO THE RIGHT n COLUMNS
    ....+....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
 >9 */THIS PART OF THE QUERY CREATES NEW TEMPORARY RESULTS*/
 05 SET NET-COST (8.2) = CAI-SLSHST-REC SHIP-QTY * UNIT-PRICE
 06 SET DISCOUNT (5.2) = NET-COST * DISC-PCT
 07 SET DISCOUNT-COST (8.2) = NET-COST - DISCOUNT
 08 SORT CAI-RCPTS-REC BY (ITM-ID)
 09 CAI-SLSHST-REC BY (ITM-ID)
 10 CAI-SLSHST-REC BY (ITM-ID)
 11 CAI-SLSHST-REC BY (ITM-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

Result

 =>
 ------------------------------------------------------------------------DQD10
 DATAQUERY:  EDITOR
 -----------------------------------------------------------------------------
 NAME:          SAMPLE                            TYPE: QUERY   STATUS: PRIVATE
 DESCRIPTION:   SHIFT A LINE TO THE RIGHT n COLUMNS
    ....+....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          */THIS PART OF THE QUERY CREATES NEW TEMPORARY RES         ULTS*/
 05 SET NET-COST (8.2) = CAI-SLSHST-REC SHIP-QTY * UNIT-PRICE
 06 SET DISCOUNT (5.2) = NET-COST * DISC-PCT
 07 SET DISCOUNT-COST (8.2) = NET-COST - DISCOUNT
 08 SORT CAI-RCPTS-REC BY (ITM-ID)
 09 CAI-SLSHST-REC BY (ITM-ID)
 10 CAI-SLSHST-REC BY (ITM-ID)
 11 CAI-SLSHST-REC BY (ITM-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—Shift a Line to the Left

 =>
 ------------------------------------------------------------------------DQD10
 DATAQUERY:  EDITOR
 -----------------------------------------------------------------------------
 NAME:          SAMPLE                            TYPE: QUERY   STATUS: PRIVATE
 DESCRIPTION:   SHIFT A LINE TO THE LEFT 3 POSITIONS
    ....+....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
 <3          */THIS PART OF THE QUERY CREATES NEW TEMPORARY RES         ULTS*/
 05 SET NET-COST (8.2) = CAI-SLSHST-REC SHIP-QTY * UNIT-PRICE
 06 SET DISCOUNT (5.2) = NET-COST * DISC-PCT
 07 SET DISCOUNT-COST (8.2) = NET-COST - DISCOUNT
 08 SORT CAI-RCPTS-REC BY (ITM-ID)
 09 CAI-SLSHST-REC BY (ITM-ID)
 10 CAI-SLSHST-REC BY (ITM-ID)
 11 CAI-SLSHST-REC BY (ITM-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

Result

 =>
 ------------------------------------------------------------------------DQD10
 DATAQUERY:  EDITOR
 -----------------------------------------------------------------------------
 NAME:          SAMPLE                            TYPE: QUERY   STATUS: PRIVATE
 DESCRIPTION:   SHIFT A LINE TO THE LEFT 3 POSITIONS
    ....+....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       */THIS PART OF THE QUERY CREATES NEW TEMPORARY RESULT         S*/
 05 SET NET-COST (8.2) = CAI-SLSHST-REC SHIP-QTY * UNIT-PRICE
 06 SET DISCOUNT (5.2) = NET-COST * DISC-PCT
 07 SET DISCOUNT-COST (8.2) = NET-COST - DISCOUNT
 08 SORT CAI-RCPTS-REC BY (ITM-ID)
 09 CAI-SLSHST-REC BY (ITM-ID)
 10 CAI-SLSHST-REC BY (ITM-ID)
 11 CAI-SLSHST-REC BY (ITM-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