Previous Topic: RESET CommandNext Topic: RESHOW Line Command


RESET Line Command

The RESET line command resets any pending M, MM, C, CC, RR, A, or B line commands and errors.

This command has the following format:

RESET

You can enter the RESET line command on any line. It applies to all pending line commands.

Example

The following example illustrates how you enter the RESET line command in the sequence number and command field. A move is pending on lines 500 through 700.

=>

....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+.... IDEAL: PROCEDURE DEFINITION PGM CRTEST (001) TEST SYS: $ID FILL-IN PENDING: MM(500) MM(700) Command....+....1....+....2....+....3....+....4....+....5....+....6....+....7.. 001402 FOR PAYROLL 001403 WHERE NUMBER = EMPLOYEE.NUMBER 001404 AND NUMBER > 100 AND < 150 001405 SET SALARY = YTD_WAGES + YTD_COMMISSION - YTD_TAX 001500 PRODUCE CARM1 001600 ENDFOR 001700 ENDFOR RESET0 FOR EACH EMPLOYEE 001900 FOR EACH EMPLOYEE 002000 ORDERED BY STATE_ADDRESS CITY_ADDRESS EMPLOYEE.NAME 002100 WHERE STATE_ADDRESS = 'CA' OR 'IL' 002200 AND NUMBER > 125 AND < 150 002300 WHEN $PF11 002400 SET DISPANEL.MSG = 'UNABLE TO INTERPRET KEY ENTERED' 002500 SET NEXT_PANEL = 'DISPANEL' 002600 ENDSEL ====== ============================= B O T T O M ============================

After the data is applied, the pending move command is deleted and the PENDING message ends.

=>

....+....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.. 001402 FOR PAYROLL 001403 WHERE NUMBER = EMPLOYEE.NUMBER 001404 AND NUMBER > 100 AND < 150 001405 SET SALARY = YTD_WAGES + YTD_COMMISSION - YTD_TAX 001500 PRODUCE CARM1 001600 ENDFOR 001700 ENDFOR 001800 FOR EACH EMPLOYEE 001900 FOR EACH EMPLOYEE 002000 ORDERED BY STATE_ADDRESS CITY_ADDRESS EMPLOYEE.NAME 002100 WHERE STATE_ADDRESS = 'CA' OR 'IL' 002200 AND NUMBER > 125 AND < 150 002300 WHEN $PF11 002400 SET DISPANEL.MSG = 'UNABLE TO INTERPRET KEY ENTERED' 002500 SET NEXT_PANEL = 'DISPANEL' 002600 ENDSEL ====== ============================= B O T T O M ============================