📋 AKOM.JCL — JCL Library
Membros JCL prontos para uso em ambiente z/OS. Copie, adapte e execute.
ICKDSF
1 membrosICKINIT
▶
INSPECT verifica integridade do volume DASD sem alterar dados (seguro). INIT formata o volume (DESTRUTIVO — apaga tudo). O cartão INIT está comentado por segurança.
⚠ ATENÇÃO: Esta operação é IRREVERSÍVEL. Certifique-se de ter backup antes de executar em produção.
Código JCL
ICKINIT.jcl
//ICKINIT JOB (ACCT),'ICKDSF INSPECT',CLASS=A,MSGCLASS=X,
// MSGLEVEL=(1,1),NOTIFY=&SYSUID
//*------------------------------------------------------------*
//* ICKINIT - ICKDSF: INSPECT (SEGURO) E INIT (DESTRUTIVO) *
//* INSPECT: Verifica volume sem alterar dados *
//* INIT: *** APAGA TODOS OS DADOS DO VOLUME *** *
//*------------------------------------------------------------*
//INSPVOL EXEC PGM=ICKDSF,REGION=4096K
//SYSPRINT DD SYSOUT=*
//DASDVOL DD UNIT=3390,VOL=SER=AKOMV1,DISP=OLD
//SYSIN DD *
INSPECT UNITADDRESS(0A00) -
NOVERIFY -
SCAN
//* *** DESCOMENTE APENAS SE SOUBER O QUE ESTA FAZENDO ***
//* INIT UNITADDRESS(0A00) -
//* NOVERIFY -
//* VOLID(AKOMV1) -
//* VTOC(0,1,14) -
//* PURGE
/*