Structure of existing files

Martin303 · New User Joined: 23 Feb 2004 Posts: 2

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.

Johore · Specialist Joined: 12 Sep 2003 Posts: 19

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

Martin303 · New User Joined: 23 Feb 2004 Posts: 2

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.