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
 

 

Problem Retrieving CONTOKEN(Consistency Token) through REXX

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CLIST & REXX
View previous topic :: :: View next topic  
Author Message
manishram1

New User


Joined: 23 Mar 2006
Posts: 34

PostPosted: Wed Dec 13, 2006 6:55 am    Post subject: Problem Retrieving CONTOKEN(Consistency Token) through REXX
Reply with quote

Hi,
I need to retrieve the consistency token(CONTOKEN) from SYSIBM.PACKAGE table through REXX,Since is defined as the character format in the table,i am not able to see it Hex Format.Can anyone help to retrieve it in correct hex format.

Thanks for your time and help.

Regards,
Mani
Back to top
View user's profile Send private message

Kevin

Active User


Joined: 25 Aug 2005
Posts: 234

PostPosted: Wed Dec 13, 2006 9:40 pm    Post subject: Re: Problem Retrieving CONTOKEN(Consistency Token) through
Reply with quote

I have no idea how many folks reading this Forum would know what a Consistency Token is (I know I don't).

Anyway, is this website of any value?
Back to top
View user's profile Send private message
manishram1

New User


Joined: 23 Mar 2006
Posts: 34

PostPosted: Thu Dec 14, 2006 12:05 am    Post subject:
Reply with quote

I think the one above will display the TIMESTAMP not the Consistency Token which are two different objects used to identify the correct DBRM for the load module.

SYSIBM.SYSPACKAGE DB2 table will store the following details about a package which is having the following structure.
LOCATION VARCHAR(128)
COLLID VARCHAR(128)
NAME VARCHAR(128)
CONTOKEN CHAR(8)
OWNER VARCHAR(128)
CREATOR VARCHAR(128)
TIMESTAMP TIMESTMP
BINDTIME TIMESTMP
QUALIFIER VARCHAR(128)
PKSIZE INTEGER
AVGSIZE INTEGER
SYSENTRIES SMALLINT
VALID CHAR(1)
OPERATIVE CHAR(1)
VALIDATE CHAR(1)
ISOLATION CHAR(1)
RELEASE CHAR(1)
EXPLAIN CHAR(1)
QUOTE CHAR(1)
COMMA CHAR(1)
HOSTLANG CHAR(1)
CHARSET CHAR(1)
MIXED CHAR(1)
DEC31 CHAR(1)
DEFERPREP CHAR(1)
SQLERROR CHAR(1)
REMOTE CHAR(1)
PCTIMESTAMP TIMESTMP
IBMREQD CHAR(1)
VERSION VARCHAR(122)
PDSNAME VARCHAR(132)
DEGREE CHAR(3)
GROUP_MEMBER VARCHAR(24)
DYNAMICRULES CHAR(1)
REOPTVAR CHAR(1)
DEFERPREPARE CHAR(1)
KEEPDYNAMIC CHAR(1)
PATHSCHEMAS VARCHAR(2048)
TYPE CHAR(1)
DBPROTOCOL CHAR(1)
FUNCTIONTS TIMESTMP
OPTHINT VARCHAR(128)
ENCODING_CCSID INTEGER
IMMEDWRITE CHAR(1)
RELBOUND CHAR(1)
CATENCODE CHAR(1)
REMARKS VARCHAR(550)


i want to get the CONTOKEN from this table using rexx and display it on the screen.
the CONTOKEN is attached in the load module in the HEX format,but it is defined in the table as CHAR format.

My requirement is
To access this table SYSIBM.SYSPACKAGE retrieve the CONTOKEN and display it on the screen in HEX Format.
Back to top
View user's profile Send private message
ragshere

New User


Joined: 20 Dec 2004
Posts: 70

PostPosted: Mon Dec 18, 2006 2:24 pm    Post subject: Re: Problem Retrieving CONTOKEN(Consistency Token) through
Reply with quote

Mani,
you need to use hex(contoken) while querying SYSPACKAGE.
Then you will get the timestamp in the same format as in load module.

Regards
Rags
Back to top
View user's profile Send private message
Marso

REXX Moderator


Joined: 13 Mar 2006
Posts: 1228
Location: Israel

PostPosted: Mon Dec 18, 2006 6:21 pm    Post subject:
Reply with quote

Option 1: Fetch directly in hexa
Code:
SELECT HEX(CONTOKEN) FROM SYSIBM.SYSPACKAGE


Option 2: Fetch in binary then transform to hexa
Code:
Address DSNREXX "FETCH C7 INTO :Token"
NewToken = C2X(Token)
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 -> CLIST & REXX All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
This topic is locked: you cannot edit posts or make replies. Need help on If condition continuatio... ashok_uddaraju CLIST & REXX 4 Fri May 19, 2017 8:55 am
No new posts Running an REXX EXEC implicitly sho7hills CLIST & REXX 3 Thu Apr 20, 2017 8:14 am
No new posts Need help in REXX CALL program Raje1002 CLIST & REXX 5 Wed Apr 19, 2017 11:18 pm
No new posts Strings with double quotes having pro... raja Arumugam All Other Mainframe Topics 11 Thu Mar 30, 2017 10:34 am
No new posts Problem reading GTF trace output danik56 ABENDS & Debugging 7 Thu Mar 16, 2017 1:02 pm


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