how to format a record has comp-3 fields

rsuneelk · New User Joined: 08 Nov 2006 Posts: 9

Hi,

I have a VB file has length 182

it has 9 comp-3 and 3 numeric fields starting from 120th position each comp-3 field is 6 bits long (s9(9)v99) and each numeric field is 3 bits long (99v9)

in input file these fields don't have any data.

i want to create a output record with starting 119 bits remains same and
i want to move zeroes to all comp-3 and numeric fields.

here is my sort card
OUTREC FIELDS=(1:1,123,
124:1Z,
130:1Z,
136:1Z,
142:1Z,
148:1Z,
154:1Z,
160:1Z,
166:1Z,
172:1Z,
178:1Z,
181:1Z,
184:1Z)
output is not coming correctly.

Please help me.

Thanks
Suneel

CICS Guy · Posted: Mon Feb 25, 2008 6:52 pm

By 'bits' you really mean 'bytes'?
Could you post the output that 'is not coming correctly'?

rsuneelk · New User Joined: 08 Nov 2006 Posts: 9

yes it is Bytes not bits

Thanks
Suneel

rsuneelk · New User Joined: 08 Nov 2006 Posts: 9

if it is browsed the output is like this

Frank Yaeger · Posted: Mon Feb 25, 2008 10:13 pm

A comp-3 field is a PD field. What you're calling a "numeric" field is a ZD field. 1Z is a binary zero (X'00') which is not valid for a PD field or a ZD field.

A 6-byte PD zero value can be created with the following hex constant:

X'00000000000C'

A 3-byte ZD zero value can be created with the following character constant:

C'000'

So just use those constants where needed.

Alternatively, you can create the appropriate zero values like this:

+0,TO=PD,LENGTH=6

+0,TO=ZD,LENGTH=3

rsuneelk · New User Joined: 08 Nov 2006 Posts: 9

Thank you very very much.

it is working fine.

Thanks
Suneel