SHARE
TWEET

Eliminar archivo JCL

a guest Mar 14th, 2017 220 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. //***********STEP PARA ELIMINAR ARCHIVOS DUPLICADOS***********
  2. //ELIMINA  EXEC PGM=IDCAMS
  3. //SYSOUT   DD  SYSOUT=*
  4. //SYSPRINT DD  SYSOUT=*
  5. //SYSIN    DD  *
  6.    DELETE  PPAC.NW.MDTOSREC.CHIL      SCRATCH NONVSAM
  7.    SET MAXCC = 0          
  8. /*
  9. //***********STEP PARA ELIMINAR ARCHIVOS DUPLICADOS***********
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Top