//REPROAI JOB (AMSEXAI),'UOASxxx',NOTIFY=UOASxxx, // CLASS=A,MSGLEVEL=(1,1) /* //STEP0010 EXEC PGM=IDCAMS //SYSPRINT DD SYSOUT=* //SYSOUT DD SYSOUT=* //ASMDUMP DD SYSOUT=* //SYSIN DD * DEFINE ALTERNATEINDEX ( - NAME(UOASxxx.VSAM.MASTER.ALTNDX) - RELATE(UOASxxx.VSAM.MASTER) - VOLUMES (TEMP91)- RECORDS (50 5)- KEYS(15 9) - RECORDSIZE(80 80) - NONUNIQUEKEY - UPGRADE) DEFINE PATH - (NAME(UOASxxx.VSAM.MASTER.PATH) - PATHENTRY(UOASxxx.VSAM.MASTER.ALTNDX)) BLDINDEX INDATASET(UOASxxx.VSAM.MASTER) - OUTDATASET(UOASxxx.VSAM.MASTER.ALTNDX) IF LASTCC = 0 - THEN - PRINT INDATASET(UOASxxx.VSAM.MASTER.PATH)- CHARACTER /* //