In this example, a card deck containing valid punch card code or BCD is duplicated.

  //PUNCH    JOB  ...
  //STEP1    EXEC PGM=IEBPTPCH
  //SYSPRINT DD  SYSOUT=A
  //SYSIN    DD  DSNAME=PDSLIB(PNCHSTMT),DISP=(OLD,KEEP)
  //SYSUT2   DD  SYSOUT=B
  //SYSUT1   DD  DATA
 
  (input card data set including // cards)
  /*

The control statements are as follows:

• SYSIN DD defines the control data set PDSLIB which contains the member PNCHSTMT. (The data set is cataloged.) The record format must be FB and the logical record length must be 80.
• SYSUT2 DD defines the system output class (punch is assumed).
• SYSUT1 DD defines the input card data set, which follows in the input stream.