how to form fields section in xfd file

[koklimabc]

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.

 

[AustinOne]

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.

 

[fredericofonseca]

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/AcucorpProducts/docs/v6_online_doc/acu4gl/4gl32.htm

this link

http://www.iri.com/blog/data-transformation2/migrating-cobol-vision-files/

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

http://www.syssoft-int.com

FAQ219-2884
FAQ181-2886

 

[k5tm]

Documentation of XFDs here.

Tom Morrison
Hill Country Software