JCL - IEBPTPCH Example 11: Print Member Containing DBCS Data

JCL - IEBPTPCH Example 11: Print Member Containing DBCS Data

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.
Neste exemplo, um membro de um conjunto de dados particionado que contém dados DBCS é impresso depois que os dados DBCS são verificados para garantir que todos os caracteres DBCS possam ser impressos.

  //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:
As declarações de controle são as seguintes:

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.

SYSUT1 DD define o conjunto de dados de entrada, PDS, em um volume de disco.
SYSUT2 DD define a impressora do sistema como o conjunto de dados de saída.
SYSIN DD define o conjunto de dados de controle, que segue no fluxo de entrada.
PRINT inicia a operação de impressão, indica que o conjunto de dados de entrada está particionado e indica que os dados do conjunto de caracteres de byte duplo serão impressos.
A instrução também indica que uma instrução MEMBER aparece no conjunto de dados de controle e que um parâmetro FIELD aparece em uma instrução RECORD subsequente.
MEMBER especifica o membro, MEM1, que deve ser impresso.
RECORD especifica que os dados DBCS devem ser verificados para garantir que possam ser impressos.

Parent topic: IEBPTPCH Examples