Как сделать Delete/Define с помощью IDCAMS с использованием пакетного JCL (z/VSE)

У меня есть пример кода delete/define с использованием IDCAMS в z/OS, но я не думаю, что он будет работать на z/VSE. Может ли кто-нибудь помочь мне преобразовать это? Созданный файл должен быть VSAM-kSDS.Как сделать Delete/Define с помощью IDCAMS с использованием пакетного JCL (z/VSE)

//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 совершенно разные. –

Действительно, это не то, что вы должны приходить в Интернет. Если вы начнете каталогизировать что-то, начинающееся с «SAMPLE», вы, скорее всего, получите «проблемы безопасности», и «просто взять что-нибудь из Интернета» может показаться не хорошим оправданием. –

Ваши заявления 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 - правда, но я рад, я использовал VSE в этом веке - и не знаю никого, кто бы все еще использовал его, поэтому у меня нет никаких «реальных» примеров. Хотя я мог хотя бы указать плакат в правильном направлении. –

Извините, поймите, что я не был ясен. Я имею в виду в контрольных картах IDCAMS, а не в JCL. То же, что и z/OS, для быстрого подтверждения этой специфики: ftp://ftp.boulder.ibm.com/s390/zos/vse/pdf3/zvse31/doc/iesvoe10.pdf –

Как сделать Delete/Define с помощью IDCAMS с использованием пакетного JCL (z/VSE)

ответ

Смежные вопросы