JCL - IEHPROGM Scratch and Uncatalog Two Data Sets



Desenvolvido por DORNELLES Carlos Alberto - Analista de Sistemas - Brasília DF. - cad_cobol@hotmail.com

JCL - IEHPROGM Example 2: Scratch and Uncatalog Two Data Sets

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.