The scroll line command scrolls a specific line to the top of the region with subsequent lines filling the region.
This command has the following format:
[+n] *[‑n]
* Positions the line to the top of the region.
+n The line n number of lines after the line containing the command.
‑n The line n number of lines before the line containing the command. The value of n can be any number from 1 to 100.
Example
The following example shows the use of the scroll line command, an asterisk (*) in line 1100, to position line 1100 to the top of the region.
=> ....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+.... IDEAL: PROCEDURE DEFINITION PGM CRTEST (001) TEST SYS: $ID FILL-IN Command....+....1....+....2....+....3....+....4....+....5....+....6....+....7.. ====== ================================ T O P =============================== 000100 SET NEXT_PANEL = 'EMPMENU' 000200 SET NEXT_PANEL = 'EMPMENU' 000300 WHEN $PF12 000400 DO TERMINATE_SES 000500 WHEN OTHER 000600 FOR EACH EMPLOYEE 000700 SET STATE1 = 'CA' 000800 SET STATE3 = 'MO' 000900 SET STATE2 = 'IL' 001000 WHERE STATE_ADDRESS = 'CA' OR 'IL' *01100 AND NUMBER > 125 AND < 150 001200 FOR PAYROLL 001300 WHERE NUMBER = EMPLOYEE.NUMBER 001400 AND NUMBER > 100 AND < 150 001500 SET SALARY = YTD_WAGES + YTD_COMMISSION - YTD_TAX 001600 AND NUMBER > 125 AND < 150 001700 FOR PAYROLL
Line 1100 is now at the top of the region with subsequent lines filling the region. To position line 200 to the top of the region, you can use the command *‑9.
=>
....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+.... IDEAL: PROCEDURE DEFINITION PGM CRTEST (001) TEST SYS: $ID FILL-IN Command....+....1....+....2....+....3....+....4....+....5....+....6....+....7.. *-9100 AND NUMBER > 125 AND < 150 001200 FOR PAYROLL 001300 WHERE NUMBER = EMPLOYEE.NUMBER 001400 AND NUMBER > 100 AND < 150 001500 SET SALARY = YTD_WAGES + YTD_COMMISSION - YTD_TAX 001600 AND NUMBER > 125 AND < 150 001700 FOR PAYROLL 001800 WHERE NUMBER = EMPLOYEE.NUMBER 001900 AND NUMBER > 100 AND < 150 002000 SET SALARY = YTD_WAGES + YTD_COMMISSION - YTD_TAX 002100 PRODUCE CARM1 002200 ENDFOR 002300 ENDFOR 002400 FOR EACH EMPLOYEE 002500 FOR EACH EMPLOYEE 002600 ORDERED BY STATE_ADDRESS CITY_ADDRESS EMPLOYEE.NAME 002700 WHERE STATE_ADDRESS = 'CA' OR 'IL' 002800 AND NUMBER > 125 AND < 150
Line 200 is now at the top of the region with subsequent lines filling the region.
=>
....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+.... IDEAL: PROCEDURE DEFINITION PGM CRTEST (001) TEST SYS: $ID FILL-IN Command....+....1....+....2....+....3....+....4....+....5....+....6....+....7.. 000200 SET NEXT_PANEL = 'EMPMENU' 000300 WHEN $PF12 000400 DO TERMINATE_SES 000500 WHEN OTHER 000600 FOR EACH EMPLOYEE 000700 SET STATE1 = 'CA' 000800 SET STATE3 = 'MO' 000900 SET STATE2 = 'IL' 001000 WHERE STATE_ADDRESS = 'CA' OR 'IL' 001100 AND NUMBER > 125 AND < 150 001200 FOR PAYROLL 001300 WHERE NUMBER = EMPLOYEE.NUMBER 001400 AND NUMBER > 100 AND < 150 001500 SET SALARY = YTD_WAGES + YTD_COMMISSION - YTD_TAX 001600 AND NUMBER > 125 AND < 150 001700 FOR PAYROLL 001800 WHERE NUMBER = EMPLOYEE.NUMBER 001900 AND NUMBER > 100 AND < 150
|
Copyright © 2015 CA Technologies.
All rights reserved.
|
|