INTELLIGENT WORK FORUMS
FOR COMPUTER PROFESSIONALS

Log In

Come Join Us!

Are you a
Computer / IT professional?
Join Tek-Tips Forums!
  • Talk With Other Members
  • Be Notified Of Responses
    To Your Posts
  • Keyword Search
  • One-Click Access To Your
    Favorite Forums
  • Automated Signatures
    On Your Posts
  • Best Of All, It's Free!

*Tek-Tips's functionality depends on members receiving e-mail. By joining you are opting in to receive e-mail.

Posting Guidelines

Promoting, selling, recruiting, coursework and thesis posting is forbidden.

Jobs

Jobs from Indeed

how to form fields section in xfd file

how to form fields section in xfd file

(OP)
Hi all,

I'm having problem to form the field section's structure into xfd files after analyse by issuing commnad "vutil32.exe -i -kx pogl.dad". I hope somebody could help me out how to form out field structure as highlighted in below. I've uploaded sample of my file known as "pglc.dad" i hope soneone could guide me how to form .xfd file from his expert skills and guide me.Thanks

Result from vutil32.exe

file size: 250880
record size (min/max): 121/1024 compressed(80%)
# of keys: 4
key size: 16:02 31:03 56:03 15
key offset: 0 0 0 1
duplicates okay: N N N N

block size: 512
blocks per granule: 1
tree height: 4/2/2.7
# of nodes: 200
# of deleted nodes: 1
total node space: 101800
node space used: 67463 (66%)
user count: 0

Key Dups Seg-1 Seg-2 Seg-3 Seg-4 Seg-5 Seg-6
(sz/of) (sz/of) (sz/of) (sz/of) (sz/of) (sz/of)

0 N 1/0 15/1
1 N 1/0 15/66 15/1
2 N 1/0 40/81 15/1
3 N 15/1

Here is my further construction of .xfd file.
XFD,02,PGLC,PGLC
00300,00041,004
1,0,013,00000
01
PGSTAT
3,0,004,00004,020,00021,004,00000
3
PGSTAT
PGDESC
PGLINE
3,0,004,00004,008,00013,004,00000
03
PGSTAT
PGDESC
PGLINE
1,0,012,00021
01
PGSTAT
000
0150,00150,00003 =================>> How can i form this field section.
00000,00013,16,00016,+00,000,000,PGSTAT
00000,00001,16,00001,+00,000,000,PGDESC
00001,00015,16,00015,+00,000,000,PGLINE


Thanks appopriate to someone could helps.

RE: how to form fields section in xfd file

xfd... vutil... hmmm... It appears that you are using AcuCobol?
If you don't get an answer here on this generic COBOL general discussion forum, you might want to try the MicroFocus AcuCOBOL forum itself.

RE: how to form fields section in xfd file

if you do have the compiler you should be able to use one of their options to create the xfd files automatically - see http://supportline.microfocus.com/Documentation/Ac...

this link http://www.iri.com/blog/data-transformation2/migra... has a sort description of some of the fields - but not the permissible values.
but I think the values for data type (e.g. third field) are (as taken from parsexfd.def as per the samples folder supplied with the compiler)
78 PackedPositive VALUE 8. | Positive packed-decimal
78 PackedSigned VALUE 9. | Signed packed-decimal
78 PackedUnsigned VALUE 10. | Computational-6
78 BinarySigned VALUE 11. | Signed binary
78 BinaryUnsigned VALUE 12. | Unsigned binary
78 NativeSigned VALUE 13. | Signed native-order binary
78 NativeUnsigned VALUE 14. | Unsigned native-order binary
78 Alphanum VALUE 16. | Alphanumeric
78 JustAN VALUE 17. | Alphanumeric (justified)
78 Alphbetic VALUE 18. | Alphabetic
78 JustAlpha VALUE 19. | Alphabetic (justified)
78 AlphaEdited VALUE 20. | Alphanumeric Edited
78 Group VALUE 22. | Group
78 Flt VALUE 23. | Float or Double
78 Nat-type VALUE 24. | National
78 JustNat VALUE 25. | National (justified)
78 NatEdited VALUE 26. | National edited
78 Wide-type VALUE 27. | Wide
78 JustWide VALUE 28. | Wide (justified)
78 WideEdited VALUE 29. | Wide edited
78 NativeVSigned VALUE 30. | Signed var-len native-order binary
78 NativeVUnsigned VALUE 31. | Unsigned var-len native-order binary


I don't have the manuals at hand so can't dig the full information - but try and search the net for "cobol file definition to xfd" and you may eventually find further info. and you will most likely need it as fields with same name will need to have a NAME override supplied. and I am not sure how that is done. too many years since I last used Acucobol

Regards

Frederico Fonseca
SysSoft Integrated Ltd
www.syssoft-int.com

FAQ219-2884: How Do I Get Great Answers To my Tek-Tips Questions?
FAQ181-2886: How can I maximize my chances of getting an answer?

Red Flag This Post

Please let us know here why this post is inappropriate. Reasons such as off-topic, duplicates, flames, illegal, vulgar, or students posting their homework.

Red Flag Submitted

Thank you for helping keep Tek-Tips Forums free from inappropriate posts.
The Tek-Tips staff will check this out and take appropriate action.

Reply To This Thread

Posting in the Tek-Tips forums is a member-only feature.

Click Here to join Tek-Tips and talk with other members!

Resources

Close Box

Join Tek-Tips® Today!

Join your peers on the Internet's largest technical computer professional community.
It's easy to join and it's free.

Here's Why Members Love Tek-Tips Forums:

Register now while it's still free!

Already a member? Close this window and log in.

Join Us             Close