IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

IDCAMS - get condition code 0012


IBM Mainframe Forums -> JCL & VSAM
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
PLFaBiaN5

New User


Joined: 18 Apr 2006
Posts: 21

PostPosted: Mon Apr 24, 2006 8:07 pm
Reply with quote

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
View user's profile Send private message
shrivatsa
Warnings : 1

Active User


Joined: 17 Mar 2006
Posts: 174
Location: Bangalore

PostPosted: Mon Apr 24, 2006 8:09 pm
Reply with quote

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
View user's profile Send private message
shrivatsa
Warnings : 1

Active User


Joined: 17 Mar 2006
Posts: 174
Location: Bangalore

PostPosted: Mon Apr 24, 2006 8:12 pm
Reply with quote

//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
View user's profile Send private message
vidhyanarayanan

New User


Joined: 23 Dec 2005
Posts: 52

PostPosted: Mon Apr 24, 2006 8:29 pm
Reply with quote

Hi,
Remove one bracket from tracks and close it after numbered



hope this ll work
Back to top
View user's profile Send private message
PLFaBiaN5

New User


Joined: 18 Apr 2006
Posts: 21

PostPosted: Mon Apr 24, 2006 10:40 pm
Reply with quote

//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
View user's profile Send private message
shrivatsa
Warnings : 1

Active User


Joined: 17 Mar 2006
Posts: 174
Location: Bangalore

PostPosted: Mon Apr 24, 2006 10:52 pm
Reply with quote

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
View user's profile Send private message
shrivatsa
Warnings : 1

Active User


Joined: 17 Mar 2006
Posts: 174
Location: Bangalore

PostPosted: Mon Apr 24, 2006 10:54 pm
Reply with quote

//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
View user's profile Send private message
shrivatsa
Warnings : 1

Active User


Joined: 17 Mar 2006
Posts: 174
Location: Bangalore

PostPosted: Mon Apr 24, 2006 11:05 pm
Reply with quote

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
View user's profile Send private message
PLFaBiaN5

New User


Joined: 18 Apr 2006
Posts: 21

PostPosted: Mon Apr 24, 2006 11:11 pm
Reply with quote

//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
View user's profile Send private message
shrivatsa
Warnings : 1

Active User


Joined: 17 Mar 2006
Posts: 174
Location: Bangalore

PostPosted: Mon Apr 24, 2006 11:15 pm
Reply with quote

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
View user's profile Send private message
superk

Global Moderator


Joined: 26 Apr 2004
Posts: 4652
Location: Raleigh, NC, USA

PostPosted: Mon Apr 24, 2006 11:24 pm
Reply with quote

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
View user's profile Send private message
MILAN

New User


Joined: 01 Mar 2006
Posts: 4

PostPosted: Tue Apr 25, 2006 9:58 am
Reply with quote

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
View user's profile Send private message
PLFaBiaN5

New User


Joined: 18 Apr 2006
Posts: 21

PostPosted: Wed Apr 26, 2006 7:35 pm
Reply with quote

now it tells me that the closing ), the last parentheis is not properly perceed by constant or keyword
Back to top
View user's profile Send private message
PLFaBiaN5

New User


Joined: 18 Apr 2006
Posts: 21

PostPosted: Wed Apr 26, 2006 7:57 pm
Reply with quote

okay thx everyone i figured it out :-d with some help
i was missing cny001 in volumes()
Back to top
View user's profile Send private message
MILAN

New User


Joined: 01 Mar 2006
Posts: 4

PostPosted: Wed Apr 26, 2006 10:31 pm
Reply with quote

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
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> JCL & VSAM

 


Similar Topics
Topic Forum Replies
No new posts run rexx code with jcl CLIST & REXX 15
No new posts Compile rexx code with jcl CLIST & REXX 6
No new posts REXX code to expand copybook in a cob... CLIST & REXX 2
No new posts VSAM return code 23 - for a Random read COBOL Programming 4
No new posts Monitoring production job progress. N... JCL & VSAM 4
Search our Forums:

Back to Top