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

Cobol copybook query


IBM Mainframe Forums -> Compuware & Other Tools
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
Vidya Kajale

New User


Joined: 01 Jun 2010
Posts: 43
Location: India

PostPosted: Wed Jun 22, 2011 4:45 pm
Reply with quote

Hi,

In code there is copy book. These copybook has more than one layout defined at 01 level. And i want to map the data in file with 3rd layout defined at 01 level in file aid. How shall i do it.
Back to top
View user's profile Send private message
Dsingh29

Active User


Joined: 16 Dec 2008
Posts: 132
Location: IBM

PostPosted: Wed Jun 22, 2011 4:48 pm
Reply with quote

I would make a test copybook with the required layout and then do the mapping.
Back to top
View user's profile Send private message
Vidya Kajale

New User


Joined: 01 Jun 2010
Posts: 43
Location: India

PostPosted: Wed Jun 22, 2011 4:50 pm
Reply with quote

i did the same... but i need to know the diiferent procedure instead of going for test copybook.
Back to top
View user's profile Send private message
Dsingh29

Active User


Joined: 16 Dec 2008
Posts: 132
Location: IBM

PostPosted: Wed Jun 22, 2011 5:00 pm
Reply with quote

XREF in File aid might solve your purpose.
the link to a competitor forum was deleted, reread the forum rules!
http://ibmmainframes.com/about7153.html
Back to top
View user's profile Send private message
Bill Woodger

Moderator Emeritus


Joined: 09 Mar 2011
Posts: 7309
Location: Inside the Matrix

PostPosted: Wed Jun 22, 2011 5:02 pm
Reply with quote

Since this isn't a Cobol question, it should have gone in the forum with other FileAid questions.

Does FileAid have a help key? Do you have access to a manual? Have you searched forums/internet?

I agree with how you have gone about it (got stuck, found a workaround, gone back to find out how to do it properly) so keep up the good work with some more burrowing as well.
Back to top
View user's profile Send private message
Vidya Kajale

New User


Joined: 01 Jun 2010
Posts: 43
Location: India

PostPosted: Wed Jun 22, 2011 5:34 pm
Reply with quote

i got following error.
Code:

 AHI7 AID --------------  Record Layout Cross Referenc       INVALID ATTRIBUTES
 COMMAND ===>                                                                   
                                                                               
 Specify Cross Reference Dataset to be Created or Edited:                       
    XREF dataset name        ===> 'APPL.CLDC.PROD.UNCNTL.COPYLIB'               
    Member name              ===> RMSMANTF (Blank or pattern for member list)   
                                                                               
 Specify Record Layout Information:                                             
    Record layout dataset    ===> 'APPL.CLDC.PROD.UNCNTL.COPYLIB'               
                                                                               
                                                                               
                                                                               
                                                                               
                                                                               
                                                                               
                                                                               
 -------------------------------------------------------------------------------
 This function creates and maintains existing File-AID Record                   
 Layout Cross References. These XREF's are used to match record layouts to     
 data records in File-AID functions that use formatting.                       
                                                                               
                                                                               
                                                                               
 .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .



My memeber is RMSMANTF in APPL.CLDC.PROD.UNCNTL.COPYLIB
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8696
Location: Dubuque, Iowa, USA

PostPosted: Wed Jun 22, 2011 5:56 pm
Reply with quote

And when you hit PF1, did the system tell you which attribute(s) were invalid?
Back to top
View user's profile Send private message
Bill Woodger

Moderator Emeritus


Joined: 09 Mar 2011
Posts: 7309
Location: Inside the Matrix

PostPosted: Wed Jun 22, 2011 6:00 pm
Reply with quote

OK, if you press F1 when you have the error message, it might show you something a bit more (a common facility, always worth a try).

Also, just F1 from the start-up might lead you towards an index/tutorial.
Back to top
View user's profile Send private message
Dsingh29

Active User


Joined: 16 Dec 2008
Posts: 132
Location: IBM

PostPosted: Thu Jun 23, 2011 9:13 am
Reply with quote

Vidya,

You should enter the dataset name of your XREF library and a member name for the XREF you want to create. This MUST be a PDS.

On the same screen, enter the name of your record layout dataset (usually a copybook library). Then press enter.

On the next screen, enter a description for this XREF (this is optional). Then, on the bottom half of the screen, enter member names of members in the layout dataset which you want to use. When you press enter, File-AID automatically gets the 01 level record definitions from the layout members.
Back to top
View user's profile Send private message
Bill Woodger

Moderator Emeritus


Joined: 09 Mar 2011
Posts: 7309
Location: Inside the Matrix

PostPosted: Thu Jun 23, 2011 1:23 pm
Reply with quote

Dsingh,

I think the problem TS has is that there are three 01 levels in the copybook, they'd like to map the third of these and are unable to do so, but can map the data by making a copy of the copybook only including the 01 level they want, as a workaround.
Back to top
View user's profile Send private message
Anuj Dhawan

Superior Member


Joined: 22 Apr 2006
Posts: 6250
Location: Mumbai, India

PostPosted: Thu Jun 23, 2011 2:06 pm
Reply with quote

Vidya Kajale wrote:
In code there is copy book. These copybook has more than one layout defined at 01 level. And i want to map the data in file with 3rd layout defined at 01 level in file aid. How shall i do it.
Well, if you already have more than one "01" levels in the same copy book just use "T"(emporary) selection criteria, shown in red-text below. Then select whichever "01" you want to go with.

Quote:
File-AID -------------- Browse - Dataset Specification ----------------------
COMMAND ===>

Browse Mode ===> V (F=Fmt; C=Char; V=Vfmt; U=Unfmt)

Specify Browse Information:
Dataset name or HFS path ===> 'XXXX.SLQ.XXX'
Member name ===> (Blank or pattern for member list)
Volume serial ===> (If dataset is not cataloged)


Specify Record Layout and XREF Information:
Record layout usage ===> S (S = Single; X = XREF; N = None)
Record layout dataset ===> 'XXXX.SOME.COPYLIB'
Member name ===> COPYBOOK (Blank or pattern for member list)
XREF dataset name ===>
Member name ===> (Blank or pattern for member list)

Specify Selection Criteria Information: (E = Existing; T = Temporary;
Selection criteria usage ===> T M = Modify; Q = Quick; N = None)
Selection dataset name ===>
Member name ===> (Blank or pattern for member list)

Back to top
View user's profile Send private message
Dsingh29

Active User


Joined: 16 Dec 2008
Posts: 132
Location: IBM

PostPosted: Thu Jun 23, 2011 2:08 pm
Reply with quote

Yeps Bill you are right !!!

Vidya-

Here is what you need do.
1. Create 3 copybooks with 01 level.
2. use them in XREF screens
3. give conditions/values from dataset to map correctly with each layout. 3rd in your case.

For any more help, visit following link for manual:

the link to copyrighted material was deleted, reread the forum rules!
if Compuware had wanted to make manuals freely available they would have been posted on the Compuware web site ( A la IBM )
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 -> Compuware & Other Tools

 


Similar Topics
Topic Forum Replies
No new posts Replace each space in cobol string wi... COBOL Programming 3
No new posts COBOL -Linkage Section-Case Sensitive COBOL Programming 1
No new posts COBOL ZOS Web Enablement Toolkit HTTP... COBOL Programming 0
No new posts Calling DFSORT from Cobol, using OUTF... DFSORT/ICETOOL 5
No new posts Generate random number from range of ... COBOL Programming 3
Search our Forums:

Back to Top