In this example, two data sets are scratched: SET1 and A.B.C.D.E are scratched from volume 222222.
Both data sets are uncataloged.
Neste exemplo, dois conjuntos de dados são riscados: SET1 e A.B.C.D.E são riscados do volume 222222.
Ambos os conjuntos de dados não estão catalogados.
//SCRDSETS JOB ...
//STEP1 EXEC PGM=IEHPROGM
//SYSPRINT DD SYSOUT=A
//DD1 DD UNIT=disk,VOLUME=SER=111111,DISP=OLD
//DD2 DD UNIT=disk,DISP=OLD,VOLUME=SER=222222
//SYSIN DD *
SCRATCH DSNAME=SET1,VOL=disk=222222
UNCATLG DSNAME=SET1
SCRATCH DSNAME=A.B.C.D.E,VOL=disk=222222
UNCATLG DSNAME=A.B.C.D.E
/*
The utility control statements are discussed as follows:
As declarações de controle da utilidade são discutidas da seguinte forma:
- The first SCRATCH statement specifies that SET1, which resides on volume 222222, is scratched.
- The first UNCATLG statement specifies that SET1 is uncataloged.
- The second SCRATCH statement specifies that A.B.C.D.E, which resides on volume 222222, is scratched.
- The second UNCATLG statement specifies that A.B.C.D.E is uncataloged.
- A primeira instrução SCRATCH especifica que SET1, que reside no volume 222222, está riscado.
- A primeira instrução UNCATLG especifica que SET1 não está catalogado.
- A segunda instrução SCRATCH especifica que A.B.C.D.E, que reside no volume 222222, está riscado.
- A segunda instrução UNCATLG especifica que A.B.C.D.E não está catalogado.
Parent topic: IEHPROGM Examples
© Copyright IBM Corp.
|