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
 

 

DCOLLECT record structure

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

Active Member


Joined: 31 Jul 2009
Posts: 565
Location: Bangalore

PostPosted: Tue Dec 03, 2013 7:55 pm    Post subject: DCOLLECT record structure
Reply with quote

Hi,

I am having a issue in converting DCOLLECT record field DCAHURBC from character to numeric.

http://pic.dhe.ibm.com/infocenter/zos/v1r13/index.jsp?topic=%2Fcom.ibm.zos.r13.idai200%2Fda6i2321.htm

172(X'AC') CHARACTER 8 DCAHURBC HIGH ALLOCATED RBA CALCULATED FROM CI
164(X'A4') CHARACTER 8 DCAHARBC HIGH USED RBA CALCULATED FROM CI

Can anyone help me with this?
Back to top
View user's profile Send private message

dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Tue Dec 03, 2013 8:17 pm    Post subject:
Reply with quote

Hello,

What values are in the fields?
Back to top
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8593
Location: Back in jolly old England

PostPosted: Tue Dec 03, 2013 8:58 pm    Post subject:
Reply with quote

If you look at the data with HEX ON you will see that it is binary format rather than CHARACTER as specified in the manual.
Back to top
View user's profile Send private message
gylbharat

Active Member


Joined: 31 Jul 2009
Posts: 565
Location: Bangalore

PostPosted: Tue Dec 03, 2013 9:04 pm    Post subject:
Reply with quote

value is in hexadecimal... but in the file its specified as character with length as 8. It value is in 165 to 172 positions. I have convert this value to ZDF format?

Code:

 BROWSE    HLQ.DCOLLECT.G3833V00             Line 00421580 Col 165 244
 Command ===>                                                  Scroll ===> CSR 
+----7----+----8----+----9----+----0----+----1----+----2----+----3----+----4----
....Oú}.....Q.{........©................                                       
..SCD2PCN                       ..MCDB2PRD                      ..SGD2PCN       


HEX
Code:

 BROWSE    HLQ.DCOLLECT.G3833V00             Line 00421580 Col 165 244
 Command ===>                                                  Scroll ===> CSR 
+----7----+----8----+----9----+----0----+----1----+----2----+----3----+----4----
+----F----+----F----+----F----+----F----+----F----+----F----+----F----+----F----
+----7----+----8----+----9----+----0----+----1----+----2----+----3----+----4----
 ------------------------------------------------------------------------------
....Oú}.....Q.{........©................                                       
0000DDD00000D2C00010000B0000000000000000                                       
00006E0000008A00000000040000000000000000                                       
 ------------------------------------------------------------------------------
..SCD2PCN                       ..MCDB2PRD                      ..SGD2PCN       
00ECCFDCD4444444444444444444444400DCCCFDDC444444444444444444444400ECCFDCD4444444
07234273500000000000000000000000084342279400000000000000000000000727427350000000
Back to top
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10202
Location: italy

PostPosted: Tue Dec 03, 2013 9:14 pm    Post subject: Reply to: DCOLLECT record structure
Reply with quote

the field even if numeric ( double word ) is defined as char because of the implied/forced alignment of the DS/DC assembler conventions

remember in assembler what defines the data_type of a storage location
is not how it is defined, but the set of instructions used to handle it
and do not forget about the implied lengths used in certain operations.
Back to top
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10202
Location: italy

PostPosted: Tue Dec 03, 2013 9:28 pm    Post subject: Reply to: DCOLLECT record structure
Reply with quote

see here for the DFSORT DCOLLECT examples
http://www-01.ibm.com/support/docview.wss?rs=114&uid=isg3T7000081
Back to top
View user's profile Send private message
Skolusu

Senior Member


Joined: 07 Dec 2007
Posts: 2205
Location: San Jose

PostPosted: Wed Dec 04, 2013 5:02 am    Post subject:
Reply with quote

Just an FYI, If OP is using syncsort then you probably are getting an error due to syncsort processing of DFSORT symbols. I have seen one other customer come in with a similar problem using DFSORT symbols.
Back to top
View user's profile Send private message
gylbharat

Active Member


Joined: 31 Jul 2009
Posts: 565
Location: Bangalore

PostPosted: Wed Dec 04, 2013 3:45 pm    Post subject:
Reply with quote

Thanks Enrico, I was able to convert it using DFSORT symbols.

Snippet:
Code:

BUILD=(1:1,4,                                         
       5:29,44,                      * DSN             
       52:169,8,BI,ZDF,              * HIGH USED RBA   
       72:X,                                           
       73:177,8,BI,ZDF)              * HIGH ALLOC RBA 
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 How to update a portion of text in a ... Bill Woodger DFSORT/ICETOOL 25 Wed Nov 09, 2016 9:41 pm
No new posts sort with previous record anatol DFSORT/ICETOOL 9 Thu Oct 06, 2016 2:36 am
No new posts Get Record count in summary record fo... Atul Banke DFSORT/ICETOOL 21 Fri Sep 23, 2016 4:17 pm
No new posts Copybook structure in Load module Vai123 COBOL Programming 7 Fri Sep 16, 2016 8:29 pm
No new posts Change date (DD/MM/YY) in 2nd record ... uday kiran DFSORT/ICETOOL 12 Wed Sep 07, 2016 10:57 pm


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