|
In this example, a card deck containing valid punch card code or BCD is duplicated.
Neste exemplo, um deck de cartÕES contendo um código de cartão perfurado válido ou BCD é duplicado.
//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:
As declarações de controle são as seguintes:
- SYSIN DD defines the control data set PDSLIB which contains the member PNCHSTMT.
(The data set is cataloged.)<>br
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.
- SYSIN DD define o conjunto de dados de controle PDSLIB que contém o membro PNCHSTMT.
(O conjunto de dados é catalogado.)
O formato do registro deve ser FB e o comprimento do registro lógico deve ser 80.
- SYSUT2 DD define a classe de saída do sistema (o punch é assumido).
- SYSUT1 DD define o conjunto de dados do cartão de entrada, que segue no fluxo de entrada.
Parent topic: IEBPTPCH Examples
© Copyright IBM Corp.
|
