|
In this example, a sequential data set is unloaded onto a 9-track, unlabeled tape volume (800 bits per inch).
Neste exemplo, um conjunto de dados sequenciais é descarregado em um volume de fita sem etiqueta de 9 trilhas (800 bits por polegada).
//UNLOAD JOB ...
//STEP1 EXEC PGM=IEHMOVE
//SYSPRINT DD SYSOUT=A
//SYSUT1 DD UNIT=disk,VOLUME=SER=222222,DISP=OLD
//DD1 DD UNIT=disk,VOLUME=SER=111111,DISP=OLD
//DD2 DD UNIT=disk,VOLUME=SER=222222,DISP=OLD
//TAPEOUT DD UNIT=tape,VOLUME=SER=SCRCH2,DISP=OLD,
// DCB=(DEN=2,RECFM=FB,LRECL=80,BLKSIZE=800),
// LABEL=(,NL)
//SYSIN DD *
MOVE DSNAME=SEQSET1,TO=tape=SCRCH2,
FROM=disk=222222,TODD=TAPEOUT
/*
The control statements are discussed as follows:
As declarações de controle são discutidas a seguir:
- SYSUT1 DD defines the device that is to contain the work data set.
- DD1 DD defines the system residence device.
- DD2 DD defines a device on which the source volume is mounted.
- TAPEOUT DD defines a device on which the receiving tape volume is mounted.
This statement also provides label and mode information.
- SYSIN DD defines the control data set, which follows in the input stream.
- MOVE moves the sequential data set SEQSET1 from a disk volume to the receiving tape volume.
The data set is unloaded. The TODD parameter in this statement refers to the TAPEOUT DD statement for label and mode information.
- SYSUT1 DD define o dispositivo que deve conter o conjunto de dados de trabalho.
- DD1 DD define o dispositivo de residência do sistema.
- DD2 DD define um dispositivo no qual o volume de origem é montado.
- TAPEOUT DD define um dispositivo no qual o volume da fita de recebimento é montado.
Esta instrução também fornece informações de rótulo e modo.
- SYSIN DD define o conjunto de dados de controle, que segue no fluxo de entrada.
- MOVE move o conjunto de dados sequenciais SEQSET1 de um volume de disco para o volume de fita de recebimento.
O conjunto de dados é descarregado. O parâmetro TODD nesta instrução refere-se à instrução TAPEOUT DD para informações de rótulo e modo.
Parent topic: IEHMOVE Examples
© Copyright IBM Corp.
|
