IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

How to see what a field is
IBM Mainframe Forums -> DFSORT/ICETOOL
Post new topic   Reply to topic Quick References
View previous topic :: View next topic  
Author Message
Iratxe

New User


Joined: 21 Feb 2006
Posts: 24
PostPosted: Thu Dec 28, 2006 9:04 pm
 Reply with quote
Hello,

Merry Christmas and Happy New Year!!

I?ve got a problem. I?ve a VB file, where beginnig from position 5 and with 10 of length there?s a field wich seems to be BI, and I want to see it.

I?m doing this sort:
Code:

  OPTION COPY                                                   
  OUTFIL INCLUDE=((5,10,BI,EQ,0000000140,OR,                     
               5,10,BI,EQ,0215283144,OR,                       
               5,10,BI,EQ,0000000152,OR,                       
               5,10,BI,EQ,0222222232)),FNAMES=OUT1             


the sortin file is like this:
Code:

  ?  *  0Q  2004-02-040Q     9999-01-01                         
  ?  *  0R  2004-03-310R      9999-01-01                         
  ?  *  0T  2004-03-310T      9999-01-01                         
  ?  *  1G  2004-06-011G     9999-01-01                         
  ?      0Q  2004-02-040Q     9999-01-01                         
  ?      0R  2004-04-060R      9999-01-01                         
  ?      1E  2004-06-011E      9999-01-01         

and I obtain this:
Code:

  ?  *  0Q  2004-02-040Q     9999-01-01                         
  ?  *  0R  2004-03-310R     9999-01-01                         
  ?  *  0T  2004-03-310T      9999-01-01                         
  ?  *  1G  2004-06-011G     9999-01-01                         
  ?      0Q  2004-02-040Q     9999-01-01                         
  ?      0R  2004-04-060R     9999-01-01                         
  ?      1E  2004-06-011E      9999-01-01                         


How can I see what this is " ? "?

Iratxe
Back to top
View user's profile Send private message
William Thompson

Global Moderator


Joined: 18 Nov 2006
Posts: 3156
Location: Tucson AZ
PostPosted: Thu Dec 28, 2006 9:05 pm
 Reply with quote
Turn on HEX?
Back to top
View user's profile Send private message
Iratxe

New User


Joined: 21 Feb 2006
Posts: 24
PostPosted: Thu Dec 28, 2006 9:10 pm
 Reply with quote
Hello,

for that I?m using this:

OUTREC FIELDS=(1,4,5,10,HEX,16,26)

and I obtain:

00002E02CD0100000000* 0Q 2004-02-040Q 9
00002E02CD0100000000* 0R 2004-03-310R 9
00002E02CD0100000000* 0T 2004-03-310T 9
00002E02CD0100000000* 1G 2004-06-011G 9
00002E02CD0100000000 0Q 2004-02-040Q 9
00002E02CD0100000000 0R 2004-04-060R 9
00002E02CD0100000000 1E 2004-06-011E 9
00002E02CD0100000000 1G 2004-06-011G 9
00002E02CD0100000000 0Q 2004-02-040Q 9
00002E02CD0100000000 0R 2004-03-310R 9
00002E02CD0100000000 0T 2004-03-310T 9

it doesn't seem to be easy to read. What do you think?
Back to top
View user's profile Send private message
William Thompson

Global Moderator


Joined: 18 Nov 2006
Posts: 3156
Location: Tucson AZ
PostPosted: Thu Dec 28, 2006 9:28 pm
 Reply with quote
OK, I was thinking a TSO browse with HEX, but that kinda does look binary....Maybe an address?
Back to top
View user's profile Send private message
Iratxe

New User


Joined: 21 Feb 2006
Posts: 24
PostPosted: Thu Dec 28, 2006 9:43 pm
 Reply with quote
What do you want to mean with that, the kind of field?

Is this what your looking for?

COD_CONTRATO HCTB719 DB2H 1 DECIMAL 10

COD_POLIZA HCTB719 DB2H 2 SMALLINT 2

TIP_ACCION_VENTA HCTB719 DB2H 3 CHAR 2
Back to top
View user's profile Send private message
Iratxe

New User


Joined: 21 Feb 2006
Posts: 24
PostPosted: Thu Dec 28, 2006 9:45 pm
 Reply with quote
The mail before is what sould be, but in the table it?s a

25 RTGCC-COD-CONTRATO PIC S9(10)

VALUE ZERO

COMPUTATIONAL-3.
Back to top
View user's profile Send private message
dick scherrer

Moderator Emeritus


Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix
PostPosted: Thu Dec 28, 2006 10:20 pm
 Reply with quote
Hello,

Quote:

00002E02CD0100000000* 0Q 2004-02-040Q 9
00002E02CD0100000000* 0R 2004-03-310R 9
00002E02CD0100000000* 0T 2004-03-310T 9
00002E02CD0100000000* 1G 2004-06-011G 9
00002E02CD0100000000 0Q 2004-02-040Q 9
00002E02CD0100000000 0R 2004-04-060R 9
00002E02CD0100000000 1E 2004-06-011E 9
00002E02CD0100000000 1G 2004-06-011G 9
00002E02CD0100000000 0Q 2004-02-040Q 9
00002E02CD0100000000 0R 2004-03-310R 9
00002E02CD0100000000 0T 2004-03-310T 9

it doesn't seem to be easy to read. What do you think?


The first "20" appear to be the hex values for 10 characters, shown side-by-side (over/under is easier on the eye. . .)
Back to top
View user's profile Send private message
Frank Yaeger

DFSORT Developer


Joined: 15 Feb 2005
Posts: 7129
Location: San Jose, CA
PostPosted: Thu Dec 28, 2006 11:39 pm
 Reply with quote
You used:

Code:

   OUTREC FIELDS=(1,4,5,10,HEX,16,26)


1,4 is the RDW. DFSORT doesn't display it unless you use 1,4,1,4,HEX.

So the first thing in the output is 5,10,HEX which is as follows for the first record:

Code:

00002E02CD0100000000


and appears to be the same for every record. This is a hex value of X'00002E02CD0100000000'.

A more readable way to display this might be:

Code:

   OUTREC FIELDS=(1,4,1,4,HEX,C'|',5,10,HEX,C'|',16,26)


In your INCLUDE statement, you're comparing this 10-byte BI value to a decimal number. X'00002E02CD0100000000' is the decimal number 3315437679876767744 which would not satisfy the INCLUDE conditions.
Back to top
View user's profile Send private message
Iratxe

New User


Joined: 21 Feb 2006
Posts: 24
PostPosted: Thu Jan 04, 2007 2:58 pm
 Reply with quote
Hello,

I'm sorry about the delay for answering. The fact?s that seems the original file contains binarys.

Can I transform binary to decimal?

Thanks.

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

DFSORT Developer


Joined: 15 Feb 2005
Posts: 7129
Location: San Jose, CA
PostPosted: Thu Jan 04, 2007 10:32 pm
 Reply with quote
Quote:
Can I transform binary to decimal?


Yes. You can use something like:

5,10,BI,M11

or

5,10,BI,TO=ZD
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> DFSORT/ICETOOL

 

Similar Topics
Topic Forum Replies
No new posts Replace Multiple Field values to Othe... DFSORT/ICETOOL 12
No new posts Join 2 files according to one key field. JCL & VSAM 3
No new posts How to move the first field of each r... DFSORT/ICETOOL 5
No new posts S0C7 - Field getting overlayed COBOL Programming 2
No new posts Masking variable size field - min 10 ... DFSORT/ICETOOL 4
Search our Forums:

Back to Top
IBMMainframes.com is not an official and/or affiliated with IBM® in anyway
Board Rules | FAQ | Downloads | Wiki | SiteMap | Contact Us