Copy and Compare Files on OpenVMS

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