Found it!
We were still 1 right paren short. Replace the "BY" line with the
following:
BY((CREDT LT (*,-1)) (DSORG NE VSAM))) -
Also, when I discovered the problem, my test then complained about
having "DASD" concatenated. You will need to either put separate DD
statements in for each VOLSER or use catalog processing and skip the
volser allocations. If you want to set it up with multiple volsers,
just use:
LOGINDDNAME(DASD1 DASD2 DASD3)
HTH
Rex
-----Original Message-----
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On
Behalf Of John Dawes
Sent: Wednesday, May 24, 2006 7:04 AM
To: [email protected]
Subject: Re: ADR120E - DFDSS Error
Hi Rex,
I tried your suggestion and received an error. Below is the Jcl and
error message I received. Can you please spot my error. This is
driving me mad, and I cannot seem to find this simple error. Maybe a
fresh
pair of eyes will spot my mistake. Thanks for your help.
JCL:
//DASD DD UNIT=SYSALLDA,VOL=SER=D38P01,DISP=SHR
// DD UNIT=SYSALLDA,VOL=SER=D38P02,DISP=SHR
// DD UNIT=SYSALLDA,VOL=SER=D38P03,DISP=SHR
// DD UNIT=SYSALLDA,VOL=SER=D38P04,DISP=SHR
// DD UNIT=SYSALLDA,VOL=SER=D38P06,DISP=SHR
//TAPE DD DSN=Z8002D.TEST,DISP=(,KEEP,KEEP),
// UNIT=(CART),VOL=(,,,35),LABEL=RETPD=10
//SYSIN DD *
DUMP DATASET(INCLUDE(IST*.** -
MED*.** -
X*.** -
Y*.** -
Z*.** -
SRT.** -
SYS*.** -
TEMP.** -
*SYSUT*.**) -
BY((CREDT,LT,(*,-1)),(DSORG,NE,(VSAM))) -
LOGINDDNAME(DASD) -
OUTDD(TAPE) OPT(4) ALLDATA(*) ALLEXCP -
TOL(ENQF)
Execution & error message:
ADR031I (SCH)-PRIME(01), TYPRUN=NORUN REQUESTED. TASKS WILL EXECUTE
IN NORUN MOD
DUMP DATASET(INCLUDE(IST*.** -
MED*.** -
X*.** -
Y*.** -
Z*.** -
SRT.** -
SYS*.** -
TEMP.** -
*SYSUT*.**) -
BY((CREDT,LT,(*,-1)),(DSORG,NE,(VSAM))) -
LOGINDDNAME(DASD) -
OUTDD(TAPE) OPT(4) ALLDATA(*) ALLEXCP -
TOL(ENQF)
ADR101I (R/I)-RI01 (01), TASKID 001 HAS BEEN ASSIGNED TO COMMAND 'DUMP
'
ADR109I (R/I)-RI01 (01), 2006.143 14:07:44 INITIAL SCAN OF USER CONTROL
STATEMEN
ADR129E (001)-RI01 (01), KEYWORD 'LOGINDDNAME ' IS IMPROPER
ADR131E (001)-RI03 (01), ABOVE TEXT BYPASSED UNTIL NEXT COMMAND
ADR017E (001)-CLTSK(01), 2006.143 14:07:44 TASK NOT SCHEDULED DUE TO
ERROR. TASK
"Pommier, Rex R." <[EMAIL PROTECTED]> wrote: Try
BY((CREDT,LT,(*,-1)),(DSORG,NE,(VSAM))) -
Rex
---------------------------------
On Yahoo!7
Socceroos Central: Latest news, schedule, blogs and videos.
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions, send
email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search
the archives at http://bama.ua.edu/archives/ibm-main.html
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
