VSAM-KSDS-CREATION //TRGA13WW JOB NOTIFY=TRGA13 //STEP1 EXEC PGM=IDCAMS //SYSPRIN...
//TRGA13WW JOB NOTIFY=TRGA13
//STEP1 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=A
//SYSIN DD *
DEFINE CLUSTER (NAME(TRGA13.MOULI.KSDS.CLUST) -
VOLUME(WORK06) -
TRACKS(1,2) -
CONTROLINTERVALSIZE(1024) -
FREESPACE(5,5) -
KEYS(4,0) -
RECORDSIZE(134,134)) -
DATA(NAME(TRGA13.MOULI.KSDS.DATA)) -
INDEX(NAME(TRGA13.MOULI.KSDS.INDEX) -
CONTROLINTERVALSIZE(1024))
/*
//
*******************************************************
VSAM TO NON-VSAM
//TRGA13AA JOB NOTIFY=TRGA13
//STEP1 EXEC PGM=IDCAMS
//INDD DD DSN=TRGA13.MOULI.KSDS.CLUST,DISP=SHR
//OUTDD DD DSN=TRGA13.MOULI.PSOUT,DISP=OLD
//SYSIN DD *
REPRO -
INFILE(INDD) -
OUTFILE(OUTDD)
/*
//SYSPRINT DD SYSOUT=A
//
***********************************************************
VSAM TO NON-VSAM
//TRGA13AA JOB NOTIFY=TRGA13
//STEP1 EXEC PGM=IDCAMS
//INDD DD DSN=TRGA13.MOULI.KSDS.CLUST,DISP=SHR
//OUTDD DD DSN=TRGA13.MOULI.PS,DISP=OLD
//SYSIN DD *
REPRO -
INFILE(INDD) -
OUTFILE(OUTDD) -
FROMKEY(1002) TOKEY(1004)
/*
//SYSPRINT DD SYSOUT=A
//
No comments
Post a Comment