The input line command opens a window of null lines for insertion of data. You can specify how many lines to insert.
This command has the following format:
[n]I[n] [n]IB[n]
The SET EDIT MULTIPLIER command determines whether n is placed on the left or right.
I Specified on the line after which null lines are inserted.
IB Specified on the line before which null lines are inserted.
n Optional. The number of null lines (1 through 100) to insert. If you do not specify n, one null line is inserted.
If the value of n exceeds the number of lines remaining in the region, the maximum number of lines that can fit are inserted.
Any unused null lines are removed when the data is applied (when you press the Enter key or any function key).
Sequence numbers do not appear on blank lines inserted in a window until data is applied. The inserted lines are assigned sequence numbers in increments of one starting from the previous existing line. When the number of inserted lines exceeds the number of integers between the sequence numbers of the existing lines, the sequence numbers on the lines following the insertion are changed.
To renumber sequence numbers refer to the RENUMBER primary editing command.
Example
The following examples illustrate the use of the input line command and the numbering of inserted lines.
In the following example, the input line command, 5I, is entered in line 800.
=> ....+....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 FOR EACH EMPLOYEE 000200 WHERE STATE_ADDRESS = 'CA' OR 'IL' 000300 AND NUMBER > 125 AND < 150 000400 FOR PAYROLL 000500 WHERE NUMBER = EMPLOYEE.NUMBER 000600 AND NUMBER > 100 AND < 150 000700 SET SALARY = YTD_WAGES + YTD_COMMISSION - YTD_TAX 5I0800 SET STATE1 = 'CA' 000900 SET STATE2 = 'IL' 001000 PRODUCE CARM1 001100 ENDFOR 001200 ENDFOR
After you press the Enter key, five null lines are inserted as shown in the next example. Neither the null lines nor the newly added lines have sequence numbers.
=> ....+....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 FOR EACH EMPLOYEE 000200 WHERE STATE_ADDRESS = 'CA' OR 'IL' 000300 AND NUMBER > 125 AND < 150 000400 FOR PAYROLL 000500 WHERE NUMBER = EMPLOYEE.NUMBER 000600 AND NUMBER > 100 AND < 150 000700 SET SALARY = YTD_WAGES + YTD_COMMISSION - YTD_TAX 000800 SET STATE1 = 'CA' ...... SET STATE3 = 'VT' ...... SET STATE4 = 'ME' ...... ...... ...... 000900 SET STATE2 = 'IL' 001000 PRODUCE CARM1 001100 ENDFOR 001200 ENDFOR
After pressing the Enter key, the unused null lines are removed and the new lines are inserted with sequence numbers.
=> ....+....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 FOR EACH EMPLOYEE 000200 WHERE STATE_ADDRESS = 'CA' OR 'IL' 000300 AND NUMBER > 125 AND < 150 000400 FOR PAYROLL 000500 WHERE NUMBER = EMPLOYEE.NUMBER 000600 AND NUMBER > 100 AND < 150 000700 SET SALARY = YTD_WAGES + YTD_COMMISSION - YTD_TAX 000800 SET STATE1 = 'CA' 000801 SET STATE3 = 'VT' 000802 SET STATE4 = 'ME' 000900 SET STATE2 = 'IL' 001000 PRODUCE CARM1 001100 ENDFOR 001200 ENDFOR
In the following example, the input‑before line command, IB2, is entered in line 1300.
=> ....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+.... IDEAL: PROCEDURE DEFINITION PGM NEWTEST (001) TEST SYS: $ID FILL-IN Command....+....1....+....2....+....3....+....4....+....5....+....6....+....7.. ====== ================================ T O P ================================= 000100 FOR EACH EMPLOYEE 000200 WHERE STATE_ADDRESS = 'CA' OR 'IL' 000300 AND NUMBER > 125 AND < 150 000400 FOR PAYROLL 000500 WHERE NUMBER = EMPLOYEE.NUMBER 000600 AND NUMBER > 100 AND < 150 000700 SET SALARY = YTD_WAGES + YTD_COMMISSION - YTD_TAX 000800 SET STATE1 = 'CA' 000801 SET STATE3 = 'MO' 000900 SET STATE2 = 'IL' 001000 PRODUCE CARM1 001100 ENDFOR 001200 ENDFOR IB2300 FOR EACH EMPLOYEE 001400 ORDERED BY STATE_ADDRESS CITY_ADDRESS EMPLOYEE.NAME 001500 WHERE STATE_ADDRESS = 'CA' OR 'IL' 001600 AND NUMBER > 125 AND < 150
After you press the Enter key, two null lines are inserted as shown in the next example. The newly added lines do not have sequence numbers.
=> ....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+.... IDEAL: PROCEDURE DEFINITION PGM NEWTEST (001) TEST SYS: $ID FILL-IN Command....+....1....+....2....+....3....+....4....+....5....+....6....+....7.. ====== ================================ T O P ================================= 000100 FOR EACH EMPLOYEE 000200 WHERE STATE_ADDRESS = 'CA' OR 'IL' 000300 AND NUMBER > 125 AND < 150 000400 FOR PAYROLL 000500 WHERE NUMBER = EMPLOYEE.NUMBER 000600 AND NUMBER > 100 AND < 150 000700 SET SALARY = YTD_WAGES + YTD_COMMISSION - YTD_TAX 000800 SET STATE1 = 'CA' 000801 SET STATE3 = 'MO' 000900 SET STATE2 = 'IL' 001000 PRODUCE CARM1 001100 ENDFOR 001200 ENDFOR ...... WHEN $PF11 ...... SET NEXT_PANEL = 'EMPMENU' 001300 FOR EACH EMPLOYEE 001400 ORDERED BY STATE_ADDRESS CITY_ADDRESS EMPLOYEE.NAME 001500 WHERE STATE_ADDRESS = 'CA' OR 'IL' 001600 AND NUMBER > 125 AND < 150
After pressing the Enter key, the new lines are inserted with sequence numbers.
=> ....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+.... IDEAL: PROCEDURE DEFINITION PGM NEWTEST (001) TEST SYS: $ID FILL-IN Command....+....1....+....2....+....3....+....4....+....5....+....6....+....7.. ====== ================================ T O P ================================= 000100 FOR EACH EMPLOYEE 000200 WHERE STATE_ADDRESS = 'CA' OR 'IL' 000300 AND NUMBER > 125 AND < 150 000400 FOR PAYROLL 000500 WHERE NUMBER = EMPLOYEE.NUMBER 000600 AND NUMBER > 100 AND < 150 000700 SET SALARY = YTD_WAGES + YTD_COMMISSION - YTD_TAX 000800 SET STATE1 = 'CA' 000801 SET STATE3 = 'MO' 000900 SET STATE2 = 'IL' 001000 PRODUCE CARM1 001100 ENDFOR 001200 ENDFOR 001201 WHEN $PF11 001202 SET NEXT_PANEL = 'EMPMENU' 001300 FOR EACH EMPLOYEE 001400 ORDERED BY STATE_ADDRESS CITY_ADDRESS EMPLOYEE.NAME 001500 WHERE STATE_ADDRESS = 'CA' OR 'IL' 001600 AND NUMBER > 125 AND < 150
|
Copyright © 2015 CA Technologies.
All rights reserved.
|
|