The RESHOW line command refreshes the region (that is, <<PROCESS‑PANEL>> PROC) with the data as it originally appeared before data was entered for the current transaction. Changes made to the data on the screen during the current transaction are not applied. You can specify the RESHOW line command on any line in the region. It applies to the entire region.
This command has the following format:
RESHOW
Example
The following example illustrates changes made to data in the region and the restoration of the data in the region without the changes being applied. The current transaction begins with the following data in the region.
=>
....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+.... IDEAL: PROCEDURE DEFINITION PGM CRPNL (001) TEST SYS: $ID FILL-IN Command....+....1....+....2....+....3....+....4....+....5....+....6....+....7.. ====== ================================ T O P =============================== 000001 <<PROCESS_PANEL>> PROC 000002 TRANSMIT DISPANEL 000003 SELECT 000004 WHEN $PF11 000005 SET NEXT_PANEL = 'EMPMENU' 000006 WHEN $PF12 000007 DO TERMINATE_SES 000008 WHEN OTHER 000009 SET DISPANEL.MSG = 'UNABLE TO INTERPRET KEY ENTERED' 000010 SET NEXT_PANEL = 'DISPANEL' 000011 ENDSEL ====== ============================= B O T T O M ============================
The data is then changed on the screen (line 7) and delete line commands are specified. The RESHOW line command is then entered on line 1 (although you can specify the RESHOW command anywhere in the region).
=>
....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+.... IDEAL: PROCEDURE DEFINITION PGM CRPNL (001) TEST SYS: $ID FILL-IN Command....+....1....+....2....+....3....+....4....+....5....+....6....+....7.. ====== ================================ T O P =============================== RESHOW <<PROCESS_PANEL>> PROC 000002 TRANSMIT DISPANEL 000003 SELECT D00004 WHEN $PF11 D00005 SET NEXT_PANEL = 'EMPMENU' 000006 WHEN $PF12 000007 DO CANCEL-SESSION 000008 WHEN OTHER 000009 SET DISPANEL.MSG = 'UNABLE TO INTERPRET KEY ENTERED' 000010 SET NEXT_PANEL = 'DISPANEL' 000011 ENDSEL ====== ============================= B O T T O M=============================
The result is the data as it appeared at the start of the current transaction with no changes applied to the data and no lines deleted.
=>
....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+.... IDEAL: PROCEDURE DEFINITION PGM CRPNL (001) TEST SYS: $ID FILL-IN Command....+....1....+....2....+....3....+....4....+....5....+....6....+....7.. ====== ================================ T O P =============================== 000001 <<PROCESS_PANEL>> PROC 000002 TRANSMIT DISPANEL 000003 SELECT 000004 WHEN $PF11 000005 SET NEXT_PANEL = 'EMPMENU' 000006 WHEN $PF12 000007 DO TERMINATE_SES 000008 WHEN OTHER 000009 SET DISPANEL.MSG = 'UNABLE TO INTERPRET KEY ENTERED' 000010 SET NEXT_PANEL = 'DISPANEL' 000011 ENDSEL ====== ============================= B O T T O M ============================
|
Copyright © 2015 CA Technologies.
All rights reserved.
|
|