Hi Group,
I am trying to restore some datasets from tape to disk, but i get an error
as "*KEYWORD 'RESTORE ' IS IMPROPER"*
MY JCL :
000001 //RESTORE$ JOB MSGCLASS=X,MSGLEVEL=(1,1),CLASS=T,
000002 // REGION=0M,NOTIFY=&SYSUID
000003 //STEP1 EXEC PGM=ADRDSSU
000004 //SYSPRINT DD SYSOUT=*
000005 //TAPE1 DD DSN=CT2.USRBKP,DISP=(OLD,KEEP),
000006 // LABEL=(1,SL),VOL=SER=CT2BKP,UNIT=680
000007 //TAPE2 DD DSN=CT2.USRBKP,DISP=(OLD,KEEP),
000008 // LABEL=(2,SL),VOL=SER=CT2BKP,UNIT=680
000009 //TAPE3 DD DSN=CT2.USRBKP,DISP=(OLD,KEEP),
000010 // LABEL=(3,SL),VOL=SER=CT2BKP,UNIT=680
000011 //TAPE4 DD DSN=CT2.USRBKP,DISP=(OLD,KEEP),
000012 // LABEL=(4,SL),VOL=SER=CT2BKP,UNIT=680
000013 //TAPE5 DD DSN=CT2.USRBKP,DISP=(OLD,KEEP),
000014 // LABEL=(5,SL),VOL=SER=CT2BKP,UNIT=680
000015 //TAPE6 DD DSN=CT2.USRBKP,DISP=(OLD,KEEP),
000016 // LABEL=(6,SL),VOL=SER=CT2BKP,UNIT=680
000017 //TAPE7 DD DSN=CT2.USRBKP,DISP=(OLD,KEEP),
000018 // LABEL=(7,SL),VOL=SER=CT2BKP,UNIT=680
000019 //TAPE8 DD DSN=CT2.USRBKP,DISP=(OLD,KEEP),
000001 //RESTORE$ JOB MSGCLASS=X,MSGLEVEL=(1,1),CLASS=T,
000002 // REGION=0M,NOTIFY=&SYSUID
000003 //STEP1 EXEC PGM=ADRDSSU
000004 //SYSPRINT DD SYSOUT=*
000005 //TAPE1 DD DSN=CT2.USRBKP,DISP=(OLD,KEEP),
000006 // LABEL=(1,SL),VOL=SER=CT2BKP,UNIT=680
000007 //TAPE2 DD DSN=CT2.USRBKP,DISP=(OLD,KEEP),
000008 // LABEL=(2,SL),VOL=SER=CT2BKP,UNIT=680
000009 //TAPE3 DD DSN=CT2.USRBKP,DISP=(OLD,KEEP),
000010 // LABEL=(3,SL),VOL=SER=CT2BKP,UNIT=680
000011 //TAPE4 DD DSN=CT2.USRBKP,DISP=(OLD,KEEP),
000012 // LABEL=(4,SL),VOL=SER=CT2BKP,UNIT=680
000013 //TAPE5 DD DSN=CT2.USRBKP,DISP=(OLD,KEEP),
000014 // LABEL=(5,SL),VOL=SER=CT2BKP,UNIT=680
000015 //TAPE6 DD DSN=CT2.USRBKP,DISP=(OLD,KEEP),
000016 // LABEL=(6,SL),VOL=SER=CT2BKP,UNIT=680
000017 //TAPE7 DD DSN=CT2.USRBKP,DISP=(OLD,KEEP),
000018 // LABEL=(7,SL),VOL=SER=CT2BKP,UNIT=680
000019 //TAPE8 DD DSN=CT2.USRBKP,DISP=(OLD,KEEP),
000020 // LABEL=(8,SL),VOL=SER=CT2BKP,UNIT=680
000021 //TAPE9 DD DSN=CT2.USRBKP,DISP=(OLD,KEEP),
000022 // LABEL=(9,SL),VOL=SER=CT2BKP,UNIT=680
000023 //TAPE10 DD DSN=CT2.USRBKP,DISP=(OLD,KEEP),
000024 // LABEL=(10,SL),VOL=SER=CT2BKP,UNIT=680
000025 //TAPE11 DD DSN=CT2.USRBKP,DISP=(OLD,KEEP),
000026 // LABEL=(11,SL),VOL=SER=CT2BKP,UNIT=680
000027 //TAPE12 DD DSN=CT2.USRBKP,DISP=(OLD,KEEP),
000028 // LABEL=(12,SL),VOL=SER=CT2BKP,UNIT=680
000029 //DASD1 DD UNIT=3390,VOL=SER=CT3T06,DISP=SHR
000030 //DASD2 DD UNIT=3390,VOL=SER=CT3T06,DISP=SHR
000031 //DASD3 DD UNIT=3390,VOL=SER=CT3T07,DISP=SHR
000032 //DASD4 DD UNIT=3390,VOL=SER=CT3T07,DISP=SHR
000033 //DASD5 DD UNIT=3390,VOL=SER=CT3T08,DISP=SHR
000034 //DASD6 DD UNIT=3390,VOL=SER=CT3T08,DISP=SHR
000035 //DASD7 DD UNIT=3390,VOL=SER=CT3T09,DISP=SHR
000036 //DASD8 DD UNIT=3390,VOL=SER=CT3T09,DISP=SHR
000037 //DASD9 DD UNIT=3390,VOL=SER=CT3T06,DISP=SHR
000038 //DASD10 DD UNIT=3390,VOL=SER=CT3T07,DISP=SHR
000039 //DASD11 DD UNIT=3390,VOL=SER=CT3T08,DISP=SHR
000040 //DASD12 DD UNIT=3390,VOL=SER=CT3T09,DISP=SHR
000041 //SYSIN DD *
000042 RESTORE DATASET(INCLUDE(** )) INDD(TAPE1) -
000043 RESTORE DATASET(INCLUDE(** )) INDD(TAPE2) -
000044 RESTORE DATASET(INCLUDE(** )) INDD(TAPE3) -
000045 RESTORE DATASET(INCLUDE(** )) INDD(TAPE4) -
000046 RESTORE DATASET(INCLUDE(** )) INDD(TAPE5) -
000047 RESTORE DATASET(INCLUDE(** )) INDD(TAPE6) -
000048 RESTORE DATASET(INCLUDE(** )) INDD(TAPE7) -
000049 RESTORE DATASET(INCLUDE(** )) INDD(TAPE8) -
000050 RESTORE DATASET(INCLUDE(** )) INDD(TAPE9) -
000051 RESTORE DATASET(INCLUDE(** )) INDD(TAPE10) -
000052 RESTORE DATASET(INCLUDE(** )) INDD(TAPE11) -
000053 RESTORE DATASET(INCLUDE(** )) INDD(TAPE12) -
000054 CATALOG STORCLAS(STANDARD) MGMTCLAS(STANDARD)
000055 /*
SYSPRINT :
ADR101I (R/I)-RI01 (01), TASKID 001 HAS BEEN ASSIGNED TO COMMAND 'RESTORE
'
ADR109I (R/I)-RI01 (01), 2011.181 16:18:29 INITIAL SCAN OF USER CONTROL
STATEMEN
ADR129E (001)-RI01 (01), *KEYWORD 'RESTORE ' IS IMPROPER*
ADR131E (001)-RI03 (01), ABOVE TEXT BYPASSED UNTIL NEXT
COMMAND
ADR017E (001)-CLTSK(01), 2011.181 16:18:29 TASK NOT SCHEDULED DUE TO ERROR.
TASK
ADR012I (SCH)-DSSU (01), 2011.181 16:18:29 DFSMSDSS PROCESSING COMPLETE.
HIGHEST
SYNTAX
TASK 001
Could anyone please suggest me if i have gone wrong in my JCL or it needs
any correction.
Regards,
Jagadishan
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
