Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

Problem In IMS Segment extraction using DFSDDLT0

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> IMS DB/DC
View previous topic :: :: View next topic  
Author Message
saithvis2

New User


Joined: 23 Dec 2005
Posts: 61
Location: Providence , US

PostPosted: Wed Feb 21, 2007 3:55 am    Post subject: Problem In IMS Segment extraction using DFSDDLT0
Reply with quote

Hi All,

I went through the fine manual and searched the forum , but still I am facing problem in extracting data from the segment. The actual problem is that I have to extract some data from production environment and load the same into my testing environment. I used to use file-aid but my shop no longer has it.

Problem :
I have a key field for the root segment that is 15 bytes long and I am trying to extract the same using DFSDDLT0 . In the sysin of my jcl
I am coding as follows :
//SYSIN DD *
S 1 1 1 1 2VFCCHS04
L 0009 GU VSCPHST (CA-SUBR- EQ 0527331981012 ) X
CONT ID-KEY
/*

Now since the SSA or the key field name is longer I tried using the CONT option but still it is abending with return code of AK stating that field name is incorrect .

DBD name : ABCCHS04
Segment Name : ABCPHST
SSA key : CA-SUBR-ID-KEY
operator: EQ
value : 12345678912 .

I would really appreciate if someone can help me out . Thanks in advance.

Regards
Vishal[/u]
Back to top
View user's profile Send private message

saithvis2

New User


Joined: 23 Dec 2005
Posts: 61
Location: Providence , US

PostPosted: Wed Feb 21, 2007 3:57 am    Post subject: Re: Problem In IMS Segment extraction using DFSDDLT0
Reply with quote

Hi all,

My applogies :

The actual sysin :
//SYSIN DD *
S 1 1 1 1 2ABCCHS04
L 0009 GU ABCPHST (CA-SUBR- EQ 1234531981012 ) X
CONT ID-KEY
/*

Regards
Vishal
Back to top
View user's profile Send private message
William Thompson

Global Moderator


Joined: 18 Nov 2006
Posts: 3158
Location: Tucson AZ

PostPosted: Wed Feb 21, 2007 5:21 am    Post subject:
Reply with quote

The wizard of IMS, Bitneuker, is still a few hours away.... You are in good hands... icon_smile.gif
Back to top
View user's profile Send private message
Bitneuker

CICS Moderator


Joined: 07 Nov 2005
Posts: 1105
Location: The Netherlands at Hole 19

PostPosted: Wed Feb 21, 2007 7:09 pm    Post subject:
Reply with quote

Hi Vishal,

Could you post your DBD for this segmenttype?
Back to top
View user's profile Send private message
Bitneuker

CICS Moderator


Joined: 07 Nov 2005
Posts: 1105
Location: The Netherlands at Hole 19

PostPosted: Wed Feb 21, 2007 7:59 pm    Post subject:
Reply with quote

What I actually mean is: do you use some Cobol defined name in your SSA or the actual FIELD-name from your DBD.
Back to top
View user's profile Send private message
Bitneuker

CICS Moderator


Joined: 07 Nov 2005
Posts: 1105
Location: The Netherlands at Hole 19

PostPosted: Wed Feb 21, 2007 8:07 pm    Post subject:
Reply with quote

And, as for the continuation in a column call:
click

next time when you post put it in Code (see the row of buttons above the message inputarea icon_wink.gif
Back to top
View user's profile Send private message
Bitneuker

CICS Moderator


Joined: 07 Nov 2005
Posts: 1105
Location: The Netherlands at Hole 19

PostPosted: Wed Feb 21, 2007 8:28 pm    Post subject:
Reply with quote

Bitneuker wrote:
What I actually mean is: do you use some Cobol defined name in your SSA or the actual FIELD-name from your DBD.


If you wonder why I asked this follow this link
Back to top
View user's profile Send private message
Bitneuker

CICS Moderator


Joined: 07 Nov 2005
Posts: 1105
Location: The Netherlands at Hole 19

PostPosted: Wed Feb 21, 2007 8:34 pm    Post subject:
Reply with quote

William Thompson wrote:
The wizard of IMS, Bitneuker, is still a few hours away.... You are in good hands... icon_smile.gif


Thanks Bill icon_wink.gif One tries but sometimes even my magic wand failes to solve the problems icon_lol.gif
Back to top
View user's profile Send private message
saithvis2

New User


Joined: 23 Dec 2005
Posts: 61
Location: Providence , US

PostPosted: Thu Feb 22, 2007 3:11 am    Post subject: Re: Problem In IMS Segment extraction using DFSDDLT0
Reply with quote

Quote:
Thanks Bill One tries but sometimes even my magic wand failes to solve the problems


No , George your magic wand has worked this time around too. icon_smile.gif.
This is what was adviced by George ,
Quote:
In your DBD you will notice the field is defined with a name max 8.
In the SSA's you don't code the cobol or pli defined names but the actual database fieldname.


I just did that and it started working fine.
This is how my sysin looks like now:
Code:

//SYSIN     DD     *                                     
S 1 1 1 1     2ABCCHS04                                 
L   0002 STAK                                           
L        GU    ABCPHST *----(ABCRIDD1EQ1234531981012  ) 
L        END                                             
EH8    OK                                               
/*                   


Thanks alot George . Once I am done with the Load job I will post that too in this thread .

Regards
Vishal
Back to top
View user's profile Send private message
saithvis2

New User


Joined: 23 Dec 2005
Posts: 61
Location: Providence , US

PostPosted: Thu Feb 22, 2007 3:34 am    Post subject: Re: Problem In IMS Segment extraction using DFSDDLT0
Reply with quote

I have tried to sum up the mistake that I was making:

1: I was not using the actual field name from my DBD i.e. ABCRIDD1 .
2: We need to code the SSA in the same manner as we do in our program. This was the most important thing which we noticed. The manual does not talk about this. The manual just asks us to put the SSA name, SSA field name and Field value. But we need to set it exactly as we would do them if the call was made from a Program.

Regards
Vishal
Back to top
View user's profile Send private message
William Thompson

Global Moderator


Joined: 18 Nov 2006
Posts: 3158
Location: Tucson AZ

PostPosted: Thu Feb 22, 2007 4:00 am    Post subject:
Reply with quote

Like I might have paraphrased somewhere else, sometime earlier, "It's all Greek to me".... icon_lol.gif
And Vishal, Thanks for the closing post. icon_smile.gif
Back to top
View user's profile Send private message
Bitneuker

CICS Moderator


Joined: 07 Nov 2005
Posts: 1105
Location: The Netherlands at Hole 19

PostPosted: Thu Feb 22, 2007 3:16 pm    Post subject:
Reply with quote

I support Bill's post: If a TS (Topic Starter) reports his problem is solved and also explains what has gone wrong we will be more inclined to look for solutions. Thanks Vishal for the way you reported; whenever you've got problems just post. We are here to help you icon_wink.gif
Back to top
View user's profile Send private message
Bitneuker

CICS Moderator


Joined: 07 Nov 2005
Posts: 1105
Location: The Netherlands at Hole 19

PostPosted: Thu Feb 22, 2007 3:25 pm    Post subject:
Reply with quote

In addition; Long ago (1973) I read a book titled: The psychology of computer programming. What hit me most was the lesson I learned from it: egoless programming --> share your mistakes and errors, don't hide them and don't be ashamed, so all may learn and prevent making the same mistakes icon_idea.gif
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> IMS DB/DC All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Problem reading GTF trace output danik56 ABENDS & Debugging 7 Thu Mar 16, 2017 1:02 pm
No new posts ROUNDED Problem with COMPUTE statement shalem COBOL Programming 11 Thu Feb 09, 2017 8:16 pm
No new posts Business Rule extraction frozenblood CLIST & REXX 9 Tue Dec 27, 2016 10:06 am
No new posts SYMNAMES problem jacobdng DFSORT/ICETOOL 7 Thu Dec 22, 2016 7:47 am
No new posts Problem in writing Output file vickey_dw COBOL Programming 5 Mon Nov 14, 2016 11:14 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us