JCL - IEBPTPCH Example 5: Print Sequential Data Set According to User Specifications

JCL - IEBPTPCH Example 5: Print Sequential Data Set According to User Specifications

In this example, a sequential data set is printed according to user specifications.
Neste exemplo, um conjunto de dados sequenciais é impresso de acordo com as especificações do usuário.

  //PTNONSTD JOB  ...
  //STEP1    EXEC PGM=IEBPTPCH
  //SYSPRINT DD  SYSOUT=A
  //SYSUT1   DD  DSNAME=SEQSET,UNIT=tape,LABEL=(2,SUL),
  //             DISP=(OLD,KEEP),VOLUME=SER=001234
  //SYSUT2   DD  SYSOUT=A
  //SYSIN    DD  *
         PRINT   MAXFLDS=1
         EXITS   INHDR=HDRIN,INTLR=TRLIN
         RECORD  FIELD=(80)
         LABELS  DATA=YES
  /*

The control statements are as follows:
As declarações de controle são as seguintes:

SYSUT1 DD defines the input data set, SEQSET, which is the second data set on a tape volume.
SYSUT2 DD defines the output data set on the system output device (printer assumed).
Each printed line contains 80 contiguous characters (one record) of information.
SYSIN DD defines the control data set, which follows in the input stream.
PRINT begins the print operation and indicates that one FIELD parameter is included in a subsequent RECORD statement (MAXFLDS=1).
EXITS indicates that exits will be taken to user header label and trailer label processing routines when these labels are encountered on the SYSUT1 data set.
RECORD indicates that each input record is processed in its entirety (80 bytes).
Each input record is printed in columns 1 through 80 on the printer.
LABELS specifies that user header and trailer labels are printed according to the return code issued by the user exits.

SYSUT1 DD define o conjunto de dados de entrada, SEQSET, que é o segundo conjunto de dados em um volume de fita.
SYSUT2 DD define o conjunto de dados de saída no dispositivo de saída do sistema (impressora assumida).
Cada linha impressa contém 80 caracteres contíguos (um registro) de informação.
SYSIN DD define o conjunto de dados de controle, que segue no fluxo de entrada.
PRINT começa a operação de impressão e indica que um parâmetro FIELD está incluído em uma instrução RECORD subseqüente (MAXFLDS = 1).
SAÍDA indica que as saídas serão levadas para o rótulo do cabeçalho do usuário e rotinas de processamento do rótulo do trailer quando esses rótulos forem encontrados no conjunto de dados SYSUT1.
RECORD indica que cada registro de entrada é processado em sua totalidade (80 bytes).
Cada registro de entrada é impresso nas colunas 1 a 80 na impressora.
LABELS especifica que as etiquetas de cabeçalho e trailer do usuário são impressas de acordo com o código de retorno emitido pelas saídas do usuário.

Parent topic: IEBPTPCH Examples