Duplicating a tape

Input:

Tape with the volume serial number FK0090

Output:

Tape with the volume serial number C5414A
Tape with the volume serial number C5426A

Tracer listing:

/START-PERCON &* ———————————————————————————————————————————————————————————  (1)
%  PER0000 PERCON STARTED, VERSION V03.0A00
//ASSIGN-INPUT-TAPE - &* ———————————————————————————————————————————————————  (2)
//   VOLUME=FK0090
%  DMS0DE3 TAPE WITH VSN FK0090 FOR FILE 
           :catid:$userid.PERCON.TPWORK.D.2076.VS0001IS MOUNTED ON DEVICE AF
//ASSIGN-OUTPUT-TAPE - &*———————————————————————————————————————————————————  (3)  
//   VOLUME=C5414A,-
//   LINK-NAME=AUS1
%  DMS0DE3 TAPE WITH VSN C5414A FOR FILE 
           :catid:$userid.PERCON.TPWORK.D.2076.VS0002 IS MOUNTED ON DEVICE AG
//ASSIGN-OUTPUT-TAPE - &*———————————————————————————————————————————————————  (4)  
//   VOLUME=C5426A,-
//   LINK-NAME=AUS2
%  DMS0DE3 TAPE WITH VSN C5426A FOR FILE 
           :catid:$userid.PERCON.TPWORK.D.2076.VS0003 IS MOUNTED ON DEVICE AH
//END ——————————————————————————————————————————————————————————————————————  (5)
%  PER0029 NUMBER OF PROCESSED BLOCKS FOR LINK=PCIN:  8 (INCL.  7 LABELS)     (6)
%  PER0029 NUMBER OF PROCESSED BLOCKS FOR LINK=AUS1:  8 (INCL.  7 LABELS)
%  PER0029 NUMBER OF PROCESSED BLOCKS FOR LINK=AUS2:  8 (INCL.  7 LABELS)
% PER0031 PERCON TERMINATED NORMALLY ———————————————————————————————————————  (7)

(1)	PERCON is called.
(2)	The input tape with the VSN FK0090 is assigned.
(3)	The output tape with the VSN C5414A and the link name OUT1 is assigned.
(4)	The output tape with the VSN C5426A and the link name OUT2 is assigned.
(5)	The END statement starts the transfer operation and terminates PERCON.
(6)	PERCON messages: the number of blocks transferred per tape is output.
(7)	PERCON was terminated normally.