The RENUMBER command renumbers the sequence numbers of the current entity and sets the increment the sequence numbers use.
This command has the following format:
RENUMBER [[BY] n]
Specifies the increment used in the sequence numbers. The value of n can be any integer (that completely renumbers the entity). If no increment is specified, a default of 100 is used. However, if RENUMBER BY 10 is issued, then subsequent renumber commands, without specifying an increment, still use 10.
Example
The following example illustrates the RENUMBER command. First, a move is specified.
=>
....+....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 ================================= 001602 SET NEXT_PANEL = 'EMPMENU' 001603 WHEN $PF12 001604 DO TERMINATE_SES 001605 WHEN OTHER 001606 FOR EACH EMPLOYEE MM1607 WHERE STATE_ADDRESS = 'CA' OR 'IL' 001608 AND NUMBER > 125 AND < 150 001609 FOR PAYROLL 001610 WHERE NUMBER = EMPLOYEE.NUMBER 001611 AND NUMBER > 100 AND < 150 MM1612 SET SALARY = YTD_WAGES + YTD_COMMISSION - YTD_TAX 001613 SET STATE1 = 'CA' 001614 SET STATE3 = 'MO' 001615 SET STATE2 = 'IL' B01616 PRODUCE CARM1 001617 ENDFOR 001618 ENDFOR
After the move, new sequence numbers are assigned to the new locations. The RENUMBER command is entered.
=> RENUMBER BY 100 ....+....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 ================================= 001602 SET NEXT_PANEL = 'EMPMENU' 001603 WHEN $PF12 001604 DO TERMINATE_SES 001605 WHEN OTHER 001606 FOR EACH EMPLOYEE 001613 SET STATE1 = 'CA' 001614 SET STATE3 = 'MO' 001615 SET STATE2 = 'IL' 001616 WHERE STATE_ADDRESS = 'CA' OR 'IL' 001617 AND NUMBER > 125 AND < 150 001618 FOR PAYROLL 001619 WHERE NUMBER = EMPLOYEE.NUMBER 001620 AND NUMBER > 100 AND < 150 001621 SET SALARY = YTD_WAGES + YTD_COMMISSION - YTD_TAX 001622 PRODUCE CARM1 001623 ENDFOR 001624 ENDFOR
The following example illustrates the renumbered 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 SET NEXT_PANEL = 'EMPMENU' 000200 WHEN $PF12 000300 DO TERMINATE_SES 000400 WHEN OTHER 000500 FOR EACH EMPLOYEE 000600 SET STATE1 = 'CA' 000700 SET STATE3 = 'MO' 000800 SET STATE2 = 'IL' 000900 WHERE STATE_ADDRESS = 'CA' OR 'IL' 001000 AND NUMBER > 125 AND < 150 001100 FOR PAYROLL 001200 WHERE NUMBER = EMPLOYEE.NUMBER 001300 AND NUMBER > 100 AND < 150 001400 SET SALARY = YTD_WAGES + YTD_COMMISSION - YTD_TAX 001500 PRODUCE CARM1 001600 ENDFOR 001700 ENDFOR
|
Copyright © 2015 CA Technologies.
All rights reserved.
|
|