|
In this example, a sequential data set is punched according to user specifications.
Neste exemplo, um conjunto de dados sequenciais é perfurado de acordo com as especificações do usuário.
//PHSEQNO JOB ...
//STEP1 EXEC PGM=IEBPTPCH
//SYSPRINT DD SYSOUT=A
//SYSUT1 DD DSNAME=MASTER.SEQSET,LABEL=(,SUL),DISP=SHR
//SYSUT2 DD SYSOUT=B
//SYSIN DD *
PUNCH MAXFLDS=1,CDSEQ=0,CDINCR=20
RECORD FIELD=(72)
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, MASTER.SEQSET, which resides on a disk or tape volume. The data set contains 80-byte, fixed blocked records.
- SYSUT2 DD defines the system output class (punch is assumed).
That portion of each record from the input data set defined by the FIELD parameter is represented by one punched card.
- SYSIN DD defines the control data set, which follows in the input stream.
- PUNCH begins the punch operation, indicates that one FIELD parameter is included in a subsequent RECORD statement (MAXFLDS=1), and assigns a sequence number for
the first punched card (00000000) and an increment value for successive sequence numbers (20).
Sequence numbers are placed in columns 73 through 80 of the output records.
- RECORD indicates that positions 1 through 72 of the input records are to be punched.
Bytes 73 through 80 of the input records are replaced by the new sequence numbers in the output card deck.
- LABELS specifies that user header labels and user trailer labels are punched.
Labels cannot be edited; they are always moved to the first 80 bytes of the output buffer.
No sequence numbers are present on the cards containing user header and user trailer records.
- SYSUT1 DD define o conjunto de dados de entrada, MASTER.SEQSET, que reside em um volume de disco ou fita. O conjunto de dados contém
registros bloqueados fixos de 80 bytes.
- SYSUT2 DD define a classe de saída do sistema (o punch é assumido).
Essa parte de cada registro do conjunto de dados de entrada definido pelo parâmetro FIELD é representada por um cartão perfurado.
- SYSIN DD define o conjunto de dados de controle, que segue no fluxo de entrada.
- PUNCH começa a operação de perfuração, indica que um parâmetro FIELD está incluído em uma instrução RECORD subsequente (MAXFLDS = 1) e
atribui um número de sequência para o primeiro cartão perfurado (00000000) e um valor de incremento para números de sequência sucessivos (20).
Os números de sequência são colocados nas colunas 73 a 80 dos registros de saída.
- RECORD indica que as posições 1 a 72 dos registros de entrada devem ser perfuradas.
Os bytes 73 a 80 dos registros de entrada são substituídos pelos novos números de sequência no baralho de saída.
- LABELS especifica que os rótulos do cabeçalho do usuário e os rótulos do trailer do usuário são perfurados.
As etiquetas não podem ser editadas; eles são sempre movidos para os primeiros 80 bytes do buffer de saída.
Nenhum número de sequência está presente nos cartões contendo o cabeçalho do usuário e os registros do trailer do usuário.
Parent topic: IEBPTPCH Examples
© Copyright IBM Corp.
|
