In this example, a member of a partitioned data set that contains DBCS data is printed after the DBCS data is checked to ensure that all DBCS characters are printable.

  //DBCS     JOB  ...
  //STEP1    EXEC PGM=IEBPTPCH
  //SYSPRINT DD   SYSOUT=A
  //SYSUT1   DD   DSNAME=PDS,UNIT=disk,DISP=(OLD,KEEP)
  //SYSUT2   DD   SYSOUT=A
  //SYSIN    DD   *
             PRINT TYPORG=PO,DBCS=YES,MAXFLDS=1,MAXNAME=1
             MEMBER NAME=MEM1
             RECORD FIELD=(,,CV)
  /*

The control statements are as follows:

• SYSUT1 DD defines the input data set, PDS, on a disk volume.
• SYSUT2 DD defines the system printer as the output data set.
• SYSIN DD defines the control data set, which follows in the input stream.
• PRINT begins the print operation, indicates that the input data set is partitioned, and indicates that double-byte character set data will be printed. The statement also indicates that one MEMBER statement appears in the control data set, and that one FIELD parameter appears on a subsequent RECORD statement.
• MEMBER specifies the member, MEM1, that is to be printed.
• RECORD specifies that the DBCS data is to be checked to ensure that it is printable.