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: 1235
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
No new posts retrieving envelope information out o... VintageReceiver TSO/ISPF 6 Thu Aug 10, 2017 8:13 pm
This topic is locked: you cannot edit posts or make replies. how to code for GDG in Rexx cvnlynn CLIST & REXX 13 Wed Aug 09, 2017 9:13 pm
This topic is locked: you cannot edit posts or make replies. rexx to create a tso command Bharath Vikraman CLIST & REXX 1 Tue Aug 08, 2017 3:32 pm
This topic is locked: you cannot edit posts or make replies. rexx code to create a ps file Bharath Vikraman CLIST & REXX 4 Mon Aug 07, 2017 10:30 am
No new posts Default Message in Rexx cvnlynn CLIST & REXX 9 Wed Aug 02, 2017 12:38 am


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