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

Problem Retrieving CONTOKEN(Consistency Token) through REXX


IBM Mainframe Forums -> CLIST & REXX
Post new topic   Reply to topic
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
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
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
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
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: 1353
Location: Israel

PostPosted: Mon Dec 18, 2006 6:21 pm
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 View Bookmarks
All times are GMT + 6 Hours
Forum Index -> CLIST & REXX

 


Similar Topics
Topic Forum Replies
No new posts Compile Several JCL JOB Through one r... CLIST & REXX 4
No new posts Running REXX through JOB CLIST & REXX 13
No new posts Error to read log with rexx CLIST & REXX 11
No new posts isfline didnt work in rexx at z/OS ve... CLIST & REXX 7
No new posts run rexx code with jcl CLIST & REXX 15
Search our Forums:

Back to Top