//VSIMPA JOB 1,'IMPORT VS CLUSTERS',CLASS=A,MSGCLASS=X 00010000 //IDCAMS EXEC PGM=IDCAMS,REGION=2M 00020000 //TAPEIN1 DD UNIT=(TAPE,,DEFER),DISP=OLD,VOL=SER=D05081, 00030000 // LABEL=(2,SL),DSN=BACKUP.BACKUP.STUDENT.FILE 00040000 //TAPEIN2 DD UNIT=AFF=TAPEIN1,DISP=(,KEEP),VOL=REF=*.TAPEIN1, 00050000 // LABEL=(1,SL),DSN=BACKUP.STUDENT.AIX 00060000 //SYSPRINT DD SYSOUT=* 00070000 //SYSIN DD * 00080000 00090000 /* IMPORT FROM BACKUP */ 00100000 IMPORT INFILE(TAPEIN1) - 00110000 OUTDATASET(MVS380.STUDENT.FILE) 00120000 LISTCAT LVL(MVS380.STUDENT) IMPORT INFILE(TAPEIN2) - 00130000 OUTDATASET(MVS380.STUDENT.AIX) 00140000 LISTCAT LVL(MVS380.STUDENT) 00150000 // 00160000 00170000