In this example Processes, two files are being copied and
then compared. If the two files check out to be the same, the user
is notified that the compare was good; if not, the user is notified
that the compare failed.
BENM1SEC PROCESS SNODE=SHEMPHILL-DT SNODEID=(SHEMPHILL,cayanne)
itP2S COPY FROM (DSN=DISK$DATA:[QADATA.INPUT]BENCHM5.dat pnode) -
compress -
ckpt=1M -
TO (file=c:\BENCHM1SEC.TXT snode)
itS2P COPY FROM (file=c:\BENCHM1SEC.TXT snode) -
TO (DSN=DISK$DATA:[QADATA.TEMP]BENCHM5.dat pnode) -
compress -
ckpt=1M
CMPR RUN TASK (pgm=vms) pnode -
sysopts = "output='DISK$DATA:[qadata.logs]diff.log' -
cmd = 'DIFF DISK$DATA:[qadata.input]BENCHM5.dat -
DISK$DATA:[qadata.temp]BENCHM5.dat'"
RCZERO IF (CMPR = 0) then
run task (pgm=vms) pnode sysopts = " -
cmd = 'reply/user=SHEMP1 BENCHM1.dat-GOOD'"
else
run task (pgm=vms) pnode sysopts = " -
cmd = 'reply/user=SHEMP1 BENCHM1.dat-COMPARE_FAILED'"
EIF
|