Thanks for the pointer! On Thu, Jan 10, 2013 at 10:44 AM, Sri h Kolusu <[email protected]> wrote: > John, > > Look at the Smart DFSORT trick "Create DFSORT Symbols from COBOL Copybook" > here. > > http://www.ibm.com/support/docview.wss?rs=114&uid=isg3T7000094 > > Thanks, > Sri Hari Kolusu > DFSORT Development > > IBM Mainframe Discussion List <[email protected]> wrote on > 01/10/2013 08:35:01 AM: > >> From: John McKown <[email protected]> >> To: [email protected], >> Date: 01/10/2013 08:36 AM >> Subject: Processing a COBOL COPY book >> Sent by: IBM Mainframe Discussion List <[email protected]> >> >> I am more curious about this, rather than having an actual need. But I >> know many products, such as FileAid, can process COBOL COPY code to >> allow a programmer to use the variable names that they are accustomed >> to using. Unfortunately, some product, such as ICETOOL, use their own >> format for the same. So I was thinking it would be nice to be able to >> process a COBOL COPYBOOK and produce something more like ICETOOL's >> SYMNAME format. Mainly because the SYMNAME is easy to parse. Does >> anybody know of any FREE software which does this? >> >> If not, I guess that I could write something. What I was considering >> was reading the directory of a PDS which is supposed to contain COBOL >> COPY code. For each member, create a skeleton COBOL source program >> which does a COPY on the member in the WORKING-STORAGE section write >> this to a temporary data set. Then dynamically call the COBOL compiler >> with the ADATA compiler option. If the RC is 4 or less, assume the >> compile was good and look through the ADATA for the data related to >> the COPY member. Use that to create records in SYMNAME style format >> and write those to a different DD using the same member name as the >> input member name. What say you? >> >> -- >> Maranatha! <>< >> John McKown >> >> ---------------------------------------------------------------------- >> For IBM-MAIN subscribe / signoff / archive access instructions, >> send email to [email protected] with the message: INFO IBM-MAIN >> > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to [email protected] with the message: INFO IBM-MAIN
-- Maranatha! <>< John McKown ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
