LISTCAT-VSAM //TRGA13AA JOB NOTIFY=TRGA13 //STEP1 EXEC PGM=IDCAMS //SYSIN DD * ...
//TRGA13AA JOB NOTIFY=TRGA13
//STEP1 EXEC PGM=IDCAMS
//SYSIN DD *
LISTCAT ENTRIES(TRGA13.MOULI.KSDS.CLUST) ALL
//SYSPRINT DD SYSOUT=A
//
******************************************************************
VSAM-PATH
//TRGA13QW JOB NOTIFY=TRGA13
//STEP1 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=A
//SYSIN DD *
DEFINE PATH(NAME(TRGA13.MOULI.KSDS.PATH) -
PATHENTRY(TRGA13.MOULI.AIX.CLUST) -
UPDATE)
/*
//
*******************************************************************
ALTER - VSAM NAME
//TRGA13QQ JOB NOTIFY=TRGA13
//STEP1 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=A
//SYSIN DD *
ALTER -
TRGA13.MOULI.KSDS1.CLUST1 -
NEWNAME(TRGA13.MOULI.KSDS.CLUST)
/*
//
*****************************************************************
ALTER - VSAM FRESPACE(ONLY DATA)
//TRGA13QQ JOB NOTIFY=TRGA13
//STEP1 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=A
//SYSIN DD *
ALTER TRGA13.MOULI.KSDS.DATA -
FREESPACE(8,8)
/*
//
**************************************************************
VSAM-REPLACE
//TRGA13QQ JOB NOTIFY=TRGA13
//STEP1 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=A
//SYSIN DD *
REPRO -
INDATASET(TRGA13.MOULI.PSOUT) -
OUTDATASET(TRGA13.MOULI.KSDS.CLUST) -
REPLACE
/*
//
****************************************************************
VSAM - REUSE
//TRGA13QQ JOB NOTIFY=TRGA13
//STEP1 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=A
//SYSIN DD *
REPRO -
INDATASET(TRGA13.MOULI.PSOUT) -
OUTDATASET(TRGA13.MOULI.KSDS.CLUST) -
REUSE
/*
//
No comments
Post a Comment