In this example, a sequential data set is printed according to
user specifications.
//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:
- 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.