Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

how to format a record has comp-3 fields

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL
View previous topic :: :: View next topic  
Author Message
rsuneelk

New User


Joined: 08 Nov 2006
Posts: 9

PostPosted: Mon Feb 25, 2008 6:37 pm    Post subject: how to format a record has comp-3 fields
Reply with quote

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
Back to top
View user's profile Send private message

CICS Guy

Senior Member


Joined: 18 Jul 2007
Posts: 2150
Location: At my coffee table

PostPosted: Mon Feb 25, 2008 6:52 pm    Post subject:
Reply with quote

By 'bits' you really mean 'bytes'?
Could you post the output that 'is not coming correctly'?
Back to top
View user's profile Send private message
rsuneelk

New User


Joined: 08 Nov 2006
Posts: 9

PostPosted: Mon Feb 25, 2008 7:45 pm    Post subject: Reply to: how to format a record has comp-3 fields
Reply with quote

yes it is Bytes not bits

Thanks
Suneel
Back to top
View user's profile Send private message
rsuneelk

New User


Joined: 08 Nov 2006
Posts: 9

PostPosted: Mon Feb 25, 2008 8:07 pm    Post subject: Reply to: how to format a record has comp-3 fields
Reply with quote

if it is browsed the output is like this
Code:
----+----1----+----2----+----3----+----4----+----5----+----6----+----7----+----8
********************************* Top of Data **********************************
0059999.............     .     .     .     .     .     .     .     .     .  .  .
0059999.............     .     .     .     .     .     .     .     .     .  .  .
0059999...êíæ.....@.     .     .     .     .     .     .     .     .     .  .  .
0059999.............     .     .     .     .     .     .     .     .     .  .  .
0059999.............     .     .     .     .     .     .     .     .     .  .  .
0059999.............     .     .     .     .     .     .     .     .     .  .  .
0059999...ÃÉ......<.     .     .     .     .     .     .     .     .     .  .  .
0059999...îâ...É.o<.     .     .     .     .     .     .     .     .     .  .  .
0059999.............     .     .     .     .     .     .     .     .     .  .  .
0059999.............     .     .     .     .     .     .     .     .     .  .  .
0059999.............     .     .     .     .     .     .     .     .     .  .  .
0059999.............     .     .     .     .     .     .     .     .     .  .  .

if it is browsed in Fail Aid the output is like this
Code:
VTC-PB-PROJ-MAW1 VTC-PB-PROJ-MAW2 VTC-PB-PROJ-MAW3 VTC-PB-PROJ-GA1             
6/PS             6/PS             6/PS             6/PS                       
(120-125)        (126-131)        (132-137)        (138-143)                   
12-------------- 13-------------- 14-------------- 15-------------             
********************************* TOP OF DATA **********************-CAPS OFF-*
INVALID          INVALID          INVALID          INVALID                     
INVALID          INVALID          INVALID          INVALID                     
INVALID          INVALID          INVALID          INVALID                     
INVALID          INVALID          INVALID          INVALID                     
INVALID          INVALID          INVALID          INVALID                     
INVALID          INVALID          INVALID          INVALID                     
INVALID          INVALID          INVALID          INVALID                     
INVALID          INVALID          INVALID          INVALID                     
INVALID          INVALID          INVALID          INVALID                     
INVALID          INVALID          INVALID          INVALID                     
INVALID          INVALID          INVALID          INVALID                     
INVALID          INVALID          INVALID          INVALID                     
INVALID          INVALID          INVALID          INVALID                     


Thanks for your quick reply

Suneel
Back to top
View user's profile Send private message
Frank Yaeger

DFSORT Moderator


Joined: 15 Feb 2005
Posts: 7130
Location: San Jose, CA

PostPosted: Mon Feb 25, 2008 10:13 pm    Post subject:
Reply with quote

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
Back to top
View user's profile Send private message
rsuneelk

New User


Joined: 08 Nov 2006
Posts: 9

PostPosted: Tue Feb 26, 2008 11:25 am    Post subject: Reply to: how to format a record has comp-3 fields
Reply with quote

Thank you very very much.

it is working fine.


Thanks
Suneel
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts SYNCSORT SEQNUM and FI fields. nartcr SYNCSORT 5 Sat Jan 21, 2017 4:02 am
No new posts Syncsort Help to group fields sudhakarraju SYNCSORT 6 Thu Dec 29, 2016 1:38 am
No new posts How to update a portion of text in a ... Bill Woodger DFSORT/ICETOOL 25 Wed Nov 09, 2016 9:41 pm
No new posts Match or compare two files in VB Format anatol DFSORT/ICETOOL 14 Thu Nov 03, 2016 7:41 pm
No new posts Access SQLCA fields inside a stored p... gangapd DB2 4 Thu Oct 27, 2016 10:20 am


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us