Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
working with Copybooks

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CLIST & REXX
View previous topic :: :: View next topic  
Author Message
anirudh1985
Currently Banned

New User


Joined: 22 Aug 2007
Posts: 66
Location: bangalore

PostPosted: Mon Jun 16, 2008 3:07 pm    Post subject: working with Copybooks
Reply with quote

Hi,

I have a copybook or a record structure from which i need to obtain the field names and the corresponding PIC values. How can this be achieved.

Ex: 01 emp-record.
05 name pic x(5)
05 city pic x(10)
05 country pic x(10)
My output should be:
name 5
city 10
country 10

Please help me out.....
Back to top
View user's profile Send private message

ofer71

Global Moderator


Joined: 27 Dec 2005
Posts: 2360
Location: Israel

PostPosted: Mon Jun 16, 2008 3:19 pm    Post subject:
Reply with quote

If you have FileAid, RLPRINT is your answer...

O.
Back to top
View user's profile Send private message
anirudh1985
Currently Banned

New User


Joined: 22 Aug 2007
Posts: 66
Location: bangalore

PostPosted: Mon Jun 16, 2008 3:40 pm    Post subject:
Reply with quote

ofer71 wrote:
If you have FileAid, RLPRINT is your answer...

O.


i dont have fileaid... i should somehow copy them in stem variables
Back to top
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10327
Location: italy

PostPosted: Mon Jun 16, 2008 3:40 pm    Post subject: Reply to: working with Copybooks
Reply with quote

use the same approach as in ...
http://www.ibmmainframes.com/viewtopic.php?p=137555&highlight=#137555
http://www.ibmmainframes.com/viewtopic.php?p=137486&highlight=#137486
which Yourself started some time ago


and please stop asking repeatedly about the same issue
Back to top
View user's profile Send private message
anirudh1985
Currently Banned

New User


Joined: 22 Aug 2007
Posts: 66
Location: bangalore

PostPosted: Mon Jun 16, 2008 4:00 pm    Post subject:
Reply with quote

this is not the same issue ...i guess you are finding problems with understanding the requirements.......This forum should be a healthy forum where people help others to solve the problems or assist them....This is however not pretty visible in your answers. kindly understand the problem a person undergoes while submitting queries and dont do a mockery
Back to top
View user's profile Send private message
Craq Giegerich

Senior Member


Joined: 19 May 2007
Posts: 1512
Location: Virginia, USA

PostPosted: Mon Jun 16, 2008 5:04 pm    Post subject:
Reply with quote

anirudh1985 wrote:
this is not the same issue ...i guess you are finding problems with understanding the requirements.......This forum should be a healthy forum where people help others to solve the problems or assist them....This is however not pretty visible in your answers. kindly understand the problem a person undergoes while submitting queries and dont do a mockery


No problem understanding your issues. For someone asking for help I think some sign of more thinking and less flaming would be wise.
Back to top
View user's profile Send private message
Garry Carroll

Active Member


Joined: 08 May 2006
Posts: 998
Location: Dublin, Ireland / Edinburgh, Scotland

PostPosted: Mon Jun 16, 2008 5:47 pm    Post subject:
Reply with quote

I must say the requirements do look like the same issue to me.
However, the OP could probably meet the requirement by first using the cobdfsym REXX program (DFSORT) which can be found at https://www-304.ibm.com/systems/support/storage/software/sort/mvs/tricks/pdf/sorttrck.pdf

Given a compile listing of the COPYBOOK, this gives the field name, start-pos and length for fields. Extracting the first and third parameters from the output should give him pretty much what he wants.


Regards,

Garry.
Back to top
View user's profile Send private message
dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Mon Jun 16, 2008 8:43 pm    Post subject:
Reply with quote

Hello,

Quote:
this is not the same issue
Yes, it is. This question is just like your "other" (same) question. The only difference is that this one is a bit more simple than the other.

Unless, you have not described what you want clearly. . .

If you already have something that will give you the length and displacement of the fields in a copybook, why can you not use it to get only the length?
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 -> CLIST & REXX All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts LIBDEF not working in called proc packerm CLIST & REXX 0 Fri Sep 15, 2017 7:22 pm
No new posts Working with hex values in Filemanage... Emile Straker IBM Tools 0 Tue Sep 12, 2017 1:42 am
This topic is locked: you cannot edit posts or make replies. Selecting two copybooks of different ... Vignesh Sid COBOL Programming 8 Tue Sep 05, 2017 7:28 pm
No new posts ISREDIT MACRO NOT WORKING! :cry: kirank889 TSO/ISPF 3 Thu Aug 03, 2017 5:46 pm
No new posts Restart=Step not working ALAK SAHA JCL & VSAM 6 Fri Jun 30, 2017 6:28 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us