MVSFORUMS.com

suma · Beginner Joined: 23 Jan 2006 Posts: 65 Topics: 29

I have one file whose some of the fieds are comp-3 items.. when i tried look thru FileAID..am getting a value as INVALID in the comp-3 fields...
can any tell me how to view these fields..I heard there is way to copy these fields usnig FileAID..does anyone has JCL for this...

Thanks
Suma

Dibakar · Posted: Fri Dec 29, 2006 2:32 am Post subject:

Try one of these -

You can look at them by doing 'Hex On'.

Create a Cobol Copybook and use it in 'Specify Record Layout ...' in file-aid browse panel.

You can also try XREF in the browse panel.
(I have not used XREF yet, but if you do then let me know the XREF structure.)

Regards,
Diba.

suma · Beginner Joined: 23 Jan 2006 Posts: 65 Topics: 29

I wanted to view the exact converted values ....I have already used cobol copybook layout to view it doesn't work..and used Hex on..

thanks
suma

Dibakar · Posted: Fri Dec 29, 2006 3:46 am Post subject:

Cobol copybook will give you exact converted value, you don't need hex on with it.

Check that -

1 Browse Mode is 'V'.

2 Record Layout Usage is 'S'.

3 Record Layout Dataset name has the Copybook dataset name.

4 Member has the Copybook member name.

5 I don't know why this works but still try -

5.1 At '01' level just define a group name like ' 01 RECORD-STRUCTURE.'
5.2 Define your fields at '05' or some other level within this '01' level.

6 In the copybook define the packed datas with appropriate S9(..) COMP-3.

If answer to all of the above is yes and still you are not getting the result the show the copybook and position and length of the packed field in the data file.

Regards,
Diba.

suma · Beginner Joined: 23 Jan 2006 Posts: 65 Topics: 29

I made changes as you said ..plz look into the results....

This is copybook layout.....

suma · Beginner Joined: 23 Jan 2006 Posts: 65 Topics: 29

in the above eg.. b and c are comp-3 items and their records are INVALID...

thanks
suma

kolusu · Posted: Fri Dec 29, 2006 4:02 pm Post subject:

suma,

Is your input file a Variable block Cluster? If so you need to consider the RDW. So the actual data starts from pos 5 instead of pos 1 . So change your file aid and add the 4 bytes for the rdw.

Hope this helps...

Cheers

Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu

Vidyarthi · Posted: Thu Jan 04, 2007 1:54 pm Post subject:

Kolusu,

Correct me if I am wrong.

I think file aid handles FB or VB files by itself. No extra filler would be required in the copybook for a VB file.
_________________
Cheers !!
Vidyarthi

kolusu · Posted: Fri Jan 05, 2007 9:34 am Post subject:

tcurrier · Intermediate Joined: 10 Feb 2006 Posts: 188 Topics: 68

Can FILEAID take a comp-3 input field and convert it to display format?

In other words,

kolusu · Posted: Sun Sep 07, 2008 10:02 am Post subject:

tcurrier,

You can use DFSORT to convert the packed decimal numbers into readable formats. There are 27 pre-defined DFSORT editing masks are available for commonly used numeric editing patterns, encompassing many of the numeric notations used throughout the world. In addition, a virtually unlimited number of numeric editing patterns are available via user-defined editing masks.

27 Pre-defined Edit Mask Patterns

The above fileaid control cards can be translated to DFSORT control cards as follows

tcurrier · Intermediate Joined: 10 Feb 2006 Posts: 188 Topics: 68

Our shop uses SYNCSORT instead of DFSORT, but I am getting the
following error :

'OUTREC RDW NOT INCLUDED'

I did do some searching, and there is a lot of discussion about this error,
but I couldn't find any resolutions.

My input file is (VB,LRECL=20719)
output file is (FB,LRECL=80)

tcurrier · Intermediate Joined: 10 Feb 2006 Posts: 188 Topics: 68

Two problems:

1 - I didn't include the VTOF parameter

2- My 'built' record wasn't the same length as the LRECL specified
on my output DCB parameter (LRECL=80)

This is working now: