Print with error processing

This example shows how to print the data set BIGJOB.PCL on Printer1, writing error messages to the data set BIGJOB.PCL. This example calls one program if the job succeeds, or a different program if it fails.

//JOB8      JOB  ,'MARTHA'
//PRINTERR  EXEC AOPPRINT,PRINTER='Printer1'
//SYSIN     DD   DSNAME=BIGJOB.PCL,DISP=SHR
//STDERR    DD   DSNAME=BIGJOB.ERR
//*
//          IF   PRINT.LP.RC ¬= 0 THEN
//FAIL      EXEC PGM=BADJOB
//          ELSE
//SUCCEED   EXEC PGM=GOODJOB
//          ENDIF