일괄 처리 JCL (z/VSE)을 사용하여 IDCAMS를 사용하여 삭제/정의

z/OS에서 IDCAMS를 사용하여 delete/define의 샘플 코드를 가지고 있지만 z/VSE에서 작동한다고 생각하지 않습니다. 누군가 내가 이것을 변환하도록 도울 수 있습니까? 작성되는 파일은 VSAM-kSDS 여야합니다.일괄 처리 JCL (z/VSE)을 사용하여 IDCAMS를 사용하여 삭제/정의

//VDFNDEL JOB 1,SAMPLE,MSGCLASS=X 
//STEP1 EXEC PGM=IDCAMS 
//SYSPRINT DD SYSOUT=*  
//SYSIN DD *  

DELETE SAMPLE.DATA.VSAM CLUSTER 

/* 
//STEP2 EXEC PGM=IDCAMS 
//SYSPRINT DD * 
//DATAIN DD DISP=OLD,DSN=SAMPLE.SORTOUT 
//SYSIN DD * 

DEFINE CLUSTER (NAME (SAMPLE.DATA.VSAM) - 
      VOLUMES(WORK02) CYLINDERS(1 1) - 
      RECORDSIZE (72 100) KEYS(9 8) INDEXED) 

REPRO INFILE(DATAIN) OUTDATASET(SAMPLE.DATA.VSAM) ELIMIT(200) 

/*

출처

2013-08-30 user2155147

확실히 사람에서 가져온? 아마 당신이 적용해야 할 몇 가지 "지역 표준"이있을 것입니다 - JCL은 완전히 다른 것입니다. –

정말, 이것은 당신이 인터넷에 와야하는 것이 아닙니다. "샘플"을 시작하는 카탈로그를 작성하면 "보안"문제가 발생할 가능성이 있으며 "인터넷에서 오래된 것을 가져가는 것"은 좋은 변명처럼 보일 수 없습니다. –

IDCAM 문은 거의 같아야하지만 JCL은 완전히 다릅니다.

* $$ JOB JNM=OGDEN12,CLASS=0,DISP=D 
// JOB OGDEN12 
// DLBL OGDEN,'OGDEN.DATA.VSAM',,VSAM,CAT=VSESPUC 
// EXEC IDCAMS,SIZE=AUTO 
DELETE (OGDEN.DATA.VSAM) CLUSTER PURGE - 
CATALOG(VSESP.USER.CATALOG) 
/* 
// EXEC IDCAMS,SIZE=AUTO 
DEFINE CLUSTER(NAME(OGDEN.DATA.VSAM) - 
FILE(OGDEN) - 
RECORDS (2000 1000) - 
TO (99366) - 
INDEXED - 
KEYS(9 8) - 
RECORDSIZE(72 100) - 
CONTROLINTERVALSIZE(4096) - 
SPANNED - 
SHR(4) - 
VOLUMES (DOSRES,SYSWK1)) - 
DATA (NAME ([email protected]@)) - 
INDEX (NAME ([email protected]@)) - 
CATALOG(VSESP.USER.CATALOG) 
/

예 전에 이런 짓을 한 사이트에서 매우 유용 redbook

출처

2013-08-30 06:43:12

필자는 IBM의 잘못을 알고 있지만 IF, SET, LASTCC 및 MAXCC를 사용하여 제어 된 방식으로 모든 작업을 수행 할 수 있습니다. –

@Bill Woodger - 사실이지만 저는 21 세기에 VSE를 사용 했었습니다. 아직 사용하지 않는 곳에서는 아무도 모릅니다. 따라서 "실제"예제를 사용할 필요가 없습니다. 적어도 포스터를 올바른 방향으로 향하게 할 수는 있지만. –

미안하지만, 내가 명확하지 않았 음을 깨달으십시오. IDCAMS 컨트롤 카드가 아니라 JCL이 필요합니다. 해당 세부 사항에 대한 빠른 확인 z/OS와 동일 : ftp://ftp.boulder.ibm.com/s390/zos/vse/pdf3/zvse31/doc/iesvoe10.pdf –

일괄 처리 JCL (z/VSE)을 사용하여 IDCAMS를 사용하여 삭제/정의

답변

관련 문제