|
View previous topic :: View next topic
|
| Author |
Message |
yb24060
New User
Joined: 17 Mar 2005
Posts: 1
|
|
|
|
Hi all,
I was wondering if somebody could send me some sample copybooks with varying degree of complexities.
Thanks,
Yogesh |
|
| Back to top |
|
 |
mmwife
Super Moderator
Joined: 30 May 2003
Posts: 1592
|
|
|
|
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 |
|
|
|
|
