Example: We want to reroute 3ADP data to 3OOP|
LRS.DRS.V1R34.CNTL(VPRT3ADP) shows DEST=U1122
LRS.DRS.V1R34.CNTL(VPRT3OOP) shows DEST=U1163
Duplicate ' DEST=U1122' line
Comment 1st occurence to *DEST=U1122
Change 2nd occurence to DEST=U1163
Do same for 'VPRT3ADX' if that member exists.
Issue consolc commands:
(and same for VPRT3ADX if appropriate).
ID = LDT & Password = LDT
CEMT I TER(3AD*
For 3ADP and any 3ADX:
Overtype 'R' of 'Rel' with 'A'
Should see 'Rel' change to 'Acq'
(If it does not change, overlay 'Out' with 'I' to force 'Ins', then do change 'Rel' to 'A')
VPS Printer 3OOP will now receive both its own data and data originally sent to 3ADP.
There may be data already queued to the broken printer.
Do ISPF A.V and display the broken printer.
If it is printing, enter a 'STOP' command with FORCE option. Then enter an INACTIVATE command.
You can then do ISPF S, PRE DRSV, OA to see any CICS data queued for the broken printer.
You can modify the Sysout from the queued Unnnn of the broken device to the Unnnn of the alternate.
If the printer had data queued from any source other than Invision (MHH* jobs, GQ data manually routed via operator, etc.). you can follow the same procedure, locating the data in the Spool by the value of the PRE xxxx you provide to SDSF.
When printer 3ADP is repaired, you will:
Delete DEST="U1163 line
Uncomment DEST="U1122 line
Logon A2K (SMSN, LDT/LDT)
CEMT I TER(3AD*
Change 'Rel' to 'Acq'
When you reroute or undo a reroute, please update member $REROUTE.
This member documents changes currently in effect.