| DECgraph V1.6 BUG
If you see...
Job MCC_RPTS_NODE4_CIRCT_HOURLY_GRAPH_DTR (queue SYS$BATCH, entry 251) terminate
d with error status
%SYSTEM-F-FILNOTACC, file not accessed on channel
Here is the fix...
DECgraph V1.6 Patch
$ !++
$ !
$ ! Patch to correct the DECgraph batch problem, where executing DECgraph
$ ! in batch mode returns File Not Accessed on Channel.
$ !--
$ OLD_DEFAULT = F$ENVIRONMENT("DEFAULT")
$ ON WARNING THEN GOTO EXIT
$ ON CONTROL_Y THEN GOTO EXIT
$ TYPE SYS$INPUT/PAGE
$ DECK
This procedure applies a patch to the GRAPHSHR.EXE image. It
should only be used on DECgraph V1.6 images. The problem this
patch addresses will be corrected in the next release of DECgraph.
There must be no users running DECgraph during this patching
procedure.
PROBLEM ADDRESSED:
When running DECgraph in batch mode, the error message
%SYSTEM-F-FILNOTACC, file not accessed on channel
is received.
PATCHED FUNCTIONALITY:
DECgraph V1.6 will work as documented.
RESTRICTIONS/NOTES
There is one restriction. In an attempt to run DECgraph from a
command file, and do not have SYS$INPUT redefined to SYS$COMMAND,
you will receive the error:
%SYSTEM-F-FILNOTACC, file not accessed on channel.
In order to resolve this, enter the following in you command
procedure:
$DEFINE SYS$INPUT SYS$COMMAND
If you have installed the GRAPHSHR.EXE image via the VMS INSTALL
utility, you must replace the image before the patch will take
effect:
$ INSTALL
INSTALL> REPLACE SYS$SHARE:GRAPHSHR.EXE
INSTALL> EXIT
$
$ EOD
$ INQUIRE CONT "Press return to apply the patch"
$ SET DEFAULT SYS$COMMON:[SYSLIB]
$ WRITE SYS$OUTPUT "Patching GRAPHSHR.EXE image"
$ PATCH GRAPHSHR.EXE
SET ECO 1
REPLACE/INSTRUCTION 000057DA
'PUSHAB B^00005774'
EXIT
'BRB PB.1'
'PAT.1: .LONG 4'
'PAT.4: .LONG 5'
'PAT.2: .WORD 4'
'.WORD 322'
'PAT.3: .LONG 0'
'PAT.5: .LONG 0'
'.LONG 0'
'PB.1: MOVAL PAT.1, PAT.3'
'MOVAL PAT.4, PAT.5'
'CLRQ -(SP)'
'CLRL -(SP)'
'PUSHAB L^PAT.2'
'CLRQ -(SP)'
'CLRL -(SP)'
'CALLS #7, @#7FFEE0D8'
'MOVL R0,R7'
'BLBS R7, PB.2'
'PUSHL R7'
'CALLS #1, @00060754'
'PB.2: CMPL PAT.1, #3'
'BEQL PB.3'
'JMP 59B4'
'PB.3: PUSHAB L^00005774'
EXIT
UPDATE
EXIT
$ WRITE SYS$OUTPUT "All done..."
$ EXIT:
$ ON CONTROL_Y THEN EXIT
$ ON WARNING THEN EXIT
$ SET DEFAULT 'OLD_DEFAULT'
$ EXIT
|