Sample CLIST with an error routine

The COPYDATA CLIST, shown in The COPYDATA CLIST, contains an error routine that handles:

Pre-allocation errors
End-of-file condition
Allocation errors

The CLIST allocates the data sets required to copy an existing data set into an output data set. If the copy is successful, the CLIST cancels the error routine by executing an ERROR statement with no operands and continues.