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
 

 

Structure of existing files

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> COBOL Programming
View previous topic :: :: View next topic  
Author Message
Martin303

New User


Joined: 23 Feb 2004
Posts: 2

PostPosted: Mon Feb 23, 2004 7:44 pm    Post subject: Structure of existing files
Reply with quote

Hello everybody

Im new here im from slovakia and till now i worked on AS400 with ILE COBOL v3r7. Now i must work in VS COBOL II on ibm mainframe 390. Im searching for an alternate thing to COPY DDS-ALL-FORMATS statement in AS400 cobol. This statement copying structure of file to a cobol program with all created indexes without logical files. Second question : Is there possibility create some indexes without using DB2 tool ? I made on as400 physical and logical files. Im asking before reading a book because i tryied also links written in second or third statement overall and now i must buy some.
Back to top
View user's profile Send private message

Johore

Specialist


Joined: 12 Sep 2003
Posts: 19

PostPosted: Wed Feb 25, 2004 9:19 am    Post subject:
Reply with quote

Hi Martin ,

****COBOL II uses a COPY XXX stmt to copy the structure /copybook XXX into the program. XXX will be as follows

01 GROUP-NAME PIC X(01)
05 A PIC X(01)

and so on.

*****If you are using DB2 and want to copy DB2 tables , You have to first create the corresponding cobol copybook frm DB2 tables using DCL GEN, here all the DB2 column names will be converted to COBOL names and made in the above format. Then ushould use
INCLUDE XXX in your cobol program.

HTH
Johore
Back to top
View user's profile Send private message
Martin303

New User


Joined: 23 Feb 2004
Posts: 2

PostPosted: Wed Feb 25, 2004 5:23 pm    Post subject:
Reply with quote

thank you johore

This was what i need to know. I used dcl gen to create copybook and include this copybook to a program. Its only one step more like on AS400. AS400 have support for DB2 mounted in the system, so you dont need create copybooks. Program can retrieve structure right from the physical file what is another name for dataset.
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 -> COBOL Programming All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts getting three output files out of JOI... migusd SYNCSORT 7 Mon Jun 05, 2017 11:30 pm
No new posts Unable to create multiple files using... mbattu COBOL Programming 3 Fri May 05, 2017 5:35 pm
This topic is locked: you cannot edit posts or make replies. Merge two files and update Trailer re... Yashashri JCL & VSAM 1 Thu May 04, 2017 12:54 pm
No new posts Dynamic split of files under groups sril.krishy DFSORT/ICETOOL 4 Mon Apr 17, 2017 1:09 pm
No new posts Compare two files and subtract values ameetmund DFSORT/ICETOOL 7 Fri Mar 31, 2017 3:35 pm


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