View previous topic :: View next topic
|
Author |
Message |
PLFaBiaN5
New User
Joined: 18 Apr 2006 Posts: 21
|
|
|
|
Code: |
//S1 EXEC PGM=IDCAMS
//*** IDCAMS
//SYSPRINT DD SYSOUT=A
//SYSIN DD *
DEF CL
(NAME(WYL.NY.XDS.PRDSL)-
RECORDSIZE(100 100)-
TRACKS(2 1))
NUMBERED
/*
//
|
I get condition code 0012 does any one whats wrong with this? |
|
Back to top |
|
|
shrivatsa Warnings : 1 Active User
Joined: 17 Mar 2006 Posts: 174 Location: Bangalore
|
|
|
|
Code: |
//S1 EXEC PGM=IDCAMS
//*** IDCAMS
//SYSPRINT DD SYSOUT=A
//SYSIN DD *
DEF Cluster -
(NAME(WYL.NY.XDS.PRDSL)-
RECORDSIZE(100 100)-
TRACKS(2 1)) -
NUMBERED
/*
//
|
|
|
Back to top |
|
|
shrivatsa Warnings : 1 Active User
Joined: 17 Mar 2006 Posts: 174 Location: Bangalore
|
|
|
|
//XDSNYL8 JOB , 'TTT'
//S1 EXEC PGM=IDCAMS
//*** IDCAMS
//SYSPRINT DD SYSOUT=A
//SYSIN DD *
DEF CLUSTER -
(NAME(WYL.NY.XDS.PRDSL)-
RECORDSIZE(100 100)-
TRACKS(2 1) -
NUMBERED)
/*
//
Sorry I haven't seen your code....Check the Closing barackets...
Now Try this |
|
Back to top |
|
|
vidhyanarayanan
New User
Joined: 23 Dec 2005 Posts: 52
|
|
|
|
Hi,
Remove one bracket from tracks and close it after numbered
hope this ll work |
|
Back to top |
|
|
PLFaBiaN5
New User
Joined: 18 Apr 2006 Posts: 21
|
|
|
|
//XDSNYL8 JOB , 'GORA'
//S1 EXEC PGM=IDCAMS
//*** IDCAMS
//*** ALLOC PRDS #8
//SYSPRINT DD SYSOUT=A
//SYSIN DD *
DEF CL-
(NAME(WYL.NY.XDS.RRDS1)-
RECORDSIZE(100 100)-
TRACKS(2 1)-
NUMBERED)
/*
//
this what i got so far
i still get one more error
48 IDCAMS SYSTEM SERVICES
49
50 DEF CL-
51 (NAME(WYL.NY.XDS.RRDS1)-
52 RECORDSIZE(100 100)-
53 TRACKS(2 1)-
54 NUMBERED)
55 IDC3506I A REQUIRED VOLUME LIST HAS BEEN OMITTED
56 IDC3003I FUNCTION TERMINATED. CONDITION CODE IS 12
this is my error i any one know whats wrong thx alot guys |
|
Back to top |
|
|
shrivatsa Warnings : 1 Active User
Joined: 17 Mar 2006 Posts: 174 Location: Bangalore
|
|
|
|
Try this below JCL its worked for me
//S1 EXEC PGM=IDCAMS
//SYSOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DEF CL -
(NAME(xxxx.DS.RRDS)-
RECORDSIZE(100 100)-
TRACKS(2 1)-
NUMBERED)
/*
//
The only mistake is there should be a space after //SYSIN DD * |
|
Back to top |
|
|
shrivatsa Warnings : 1 Active User
Joined: 17 Mar 2006 Posts: 174 Location: Bangalore
|
|
|
|
//S1 EXEC PGM=IDCAMS
//SYSOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DEF CL -
(NAME(IBM122B.DS.RRDS)-
RECORDSIZE(100 100)-
TRACKS(2 1)-
NUMBERED)
/*
// |
|
Back to top |
|
|
shrivatsa Warnings : 1 Active User
Joined: 17 Mar 2006 Posts: 174 Location: Bangalore
|
|
|
|
Go to ISPF 3.2 option V and give the Details to create RRDS File
and check it out whether its working or not......... |
|
Back to top |
|
|
PLFaBiaN5
New User
Joined: 18 Apr 2006 Posts: 21
|
|
|
|
//XDSNYL8 JOB , 'XXXX'
//S1 EXEC PGM=IDCAMS
//*** IDCAMS
//*** ALLOC PRDS #8
//SYSOUT DD SYSOUT=A
//SYSPRINT DD SYSOUT=A
//SYSIN DD *
DEF CL -
( -
NAME(WYL.NY.XDS.RRDS) -
RECORDSIZE(100,100) -
TRACKS(2,1) -
NUMBERED -
)
/*
//
this what i got but i still the get the same codition code 0012
hoply some knows cuz this is going to turn my hair gray before i am 30 |
|
Back to top |
|
|
shrivatsa Warnings : 1 Active User
Joined: 17 Mar 2006 Posts: 174 Location: Bangalore
|
|
|
|
File Edit Edit_Settings Menu Utilities Compilers Test Help
sssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssss
VIEW IBM122B.CNTL(VSAM) - 01.02 Columns 00001 00072
Command ===> Scroll ===> CSR
****** ***************************** Top of Data ******************************
000001 //xxxxI JOB (T00101,610,Z000900,284,A11,MAR),
000002 // NOTIFY=&sysuid,MSGLEVEL=(1,1)
000003 /*JOBPARM L=999,H=ALL,T=(,20)
000004 //S1 EXEC PGM=IDCAMS
000005 //SYSOUT DD SYSOUT=*
000006 //SYSPRINT DD SYSOUT=*
000007 //SYSIN DD *
000008 DEF CL -
000009 (NAME(xxxx.DS.RRDS)-
000010 RECORDSIZE(100 100)-
000011 TRACKS(2 1)-
000012 NUMBERED)
000013 /*
000014 //
Now your job should run
see the space in the line 8,9,10,11,12 at the start .. |
|
Back to top |
|
|
superk
Global Moderator
Joined: 26 Apr 2004 Posts: 4652 Location: Raleigh, NC, USA
|
|
|
|
I dunno - your JCL worked fine for me:
Code: |
//S1 EXEC PGM=IDCAMS
//*** IDCAMS
//*** ALLOC PRDS #8
//SYSOUT DD SYSOUT=A
//SYSPRINT DD SYSOUT=A
//SYSIN DD *
DEF CL-
(NAME(WYL.NY.XDS.RRDS1)-
RECORDSIZE(100 100)-
TRACKS(2 1)-
NUMBERED)
/*
//
|
|
|
Back to top |
|
|
MILAN
New User
Joined: 01 Mar 2006 Posts: 4
|
|
|
|
Hi there,
I think this should work fine; add this single line to your code.
//XDSNYL8 JOB , 'XXXX'
//S1 EXEC PGM=IDCAMS
//*** IDCAMS
//*** ALLOC PRDS #8
//SYSOUT DD SYSOUT=A
//SYSPRINT DD SYSOUT=A
//SYSIN DD *
DEF CL -
( -
NAME(WYL.NY.XDS.RRDS) -
RECORDSIZE(100,100) -
TRACKS(2,1) -
VOLUMES() -
NUMBERED -
)
/*
//
Sincerely,
Milan |
|
Back to top |
|
|
PLFaBiaN5
New User
Joined: 18 Apr 2006 Posts: 21
|
|
|
|
now it tells me that the closing ), the last parentheis is not properly perceed by constant or keyword |
|
Back to top |
|
|
PLFaBiaN5
New User
Joined: 18 Apr 2006 Posts: 21
|
|
|
|
okay thx everyone i figured it out :-d with some help
i was missing cny001 in volumes() |
|
Back to top |
|
|
MILAN
New User
Joined: 01 Mar 2006 Posts: 4
|
|
|
|
Hi there,
What i meant by writing volumes(), the empty brackets meant that you have to write the vol name inside that and not to keep it blank.
Anyway, your problem has been solved.
Sincerely,
Milan |
|
Back to top |
|
|
|