Portal | IBM Manuals | Downloads | Products | Refer | Info | Programs | JCLs | Forum Rules*| Site Map | Mainframe CD 
IBMMAINFRAMES.com - IBM Mainframe Support Forums Index
 
Register
 
IBMMAINFRAMES.com - IBM Mainframe Support Forums Index FAQ Search Memberlist Usergroups Profile Log in to check your private messages Log in
 
Need some sample cobol copybooks

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> Mainframe COBOL
Author Message
yb24060

New User


Joined: 17 Mar 2005
Posts: 1

PostPosted: Thu Mar 17, 2005 10:12 pm    Post subject: Need some sample cobol copybooks
Reply with quote

Hi all,

I was wondering if somebody could send me some sample copybooks with varying degree of complexities.

Thanks,

Yogesh
Back to top
View user's profile Send private message
References
mmwife

Super Moderator


Joined: 30 May 2003
Posts: 1508

PostPosted: Sat Mar 19, 2005 10:11 pm    Post subject:
Reply with quote

Hi Yogesh,

Here's 1 you don't see often:

Cbk name is transrec.
Code:

01  :pre-:trans-rec.
    05  :pre-:trans-type    pic x(002).     
    05  :pre-:trans-amt     pic x(002).     
    05  :pre-:trans-date    pic x(002).   
    05  :pre-:trans-acct    pic x(002).   

In COBOL pgm code:

copy transrec replacing ==:pre-:== by ==inv-==

This tells the compiler to chang the pprefix in the cbk to inv-.
Another user could use sinv- for his/her purposes. It can also be used for both input and output files to make the field names unique.

I usually include the "-" between the colons so that I can elliminate the prefix if I have a mind to. I.e. ==:pre-:== by ====. You may need to separate those 4 =s w/a space. In fact check all the syntax here. I don't have a manual handy and I'm quoting from memory.

As I say, the usual caveats and copouts apply.
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> Mainframe COBOL All times are GMT + 6 Hours
Page 1 of 1