R: DBRM contoken check rexx on db2-l-documents

Di Franco Vincenzo

R: DBRM contoken check rexx on db2-l-documents
Hi Tina,
I've been forced to make a correction to your rexx :

/* contokenx = substr(dbrm.1,29,4) || substr(dbrm.1,25,4) */
contokenx = substr(dbrm.1,25,4) || substr(dbrm.1,29,4)

I tested your rexx with DSNTIAD pgm and found that in load module contoken
was like my correction.
Do you have an idea ?
I find your utility very nice.
Thank you. Bye.

-----Messaggio originale-----
Da: DB2 Data Base Discussion List [mailto:[login to unmask email]Per
conto di Tina Hilton
Inviato: venerdì 27 dicembre 2002 14.30
A: [login to unmask email]
Oggetto: DBRM contoken check rexx on db2-l-documents


For anyone who is interested in my rexx/dialog that compares the contoken in
the DBRM with the load module to see if there's a match (put on
db2-l-documents on 12/23), I want you to know that my rexx uses PDS84 (also
known as PDS, LPDS, LISTPDS, PDS18 and PDS4, and probably other names) to
get the link date of the load module. The new version of this code (8.5) is
available from the CBT tape site at http://www.cbttape.org/freepds.htm. If
you call it by something other than PDS84, you'll need to change the command
in the rexx.

If you don't have the PDS software and don't want to install it, you can
remove the logic from the rexx fairly easily. If you need assistance with
that, let me know.

Also, I've only tested this with Cobol programs. I don't know if it works
with any other languages.

Tina Hilton

Database Analyst
arvato systems








michael bell

Re: R: DBRM contoken check rexx on db2-l-documents
(in response to Di Franco Vincenzo)
The connection token is stored in the format specified by the
precompiler/compiler combination. ASM and COBOL not RENT are different from
COBOL compiled with RENT. The RENT COBOL compiler stores the value in the
literal pool and the sequence is reversed. I suppose you could keep
different versions for ASM and RENT COBOL.

Mike Bell
HLS Technologies

----- Original Message -----
From: "Di Franco Vincenzo" <[login to unmask email]>
Newsgroups: bit.listserv.db2-l
To: <[login to unmask email]>
Sent: Monday, December 30, 2002 12:01 PM
Subject: R: DBRM contoken check rexx on db2-l-documents


> Hi Tina,
> I've been forced to make a correction to your rexx :
>
> /* contokenx = substr(dbrm.1,29,4) || substr(dbrm.1,25,4) */
> contokenx = substr(dbrm.1,25,4) || substr(dbrm.1,29,4)
>
> I tested your rexx with DSNTIAD pgm and found that in load module contoken
> was like my correction.
> Do you have an idea ?
> I find your utility very nice.
> Thank you. Bye.
>
> -----Messaggio originale-----
> Da: DB2 Data Base Discussion List [mailto:[login to unmask email]Per
> conto di Tina Hilton
> Inviato: venerdì 27 dicembre 2002 14.30
> A: [login to unmask email]
> Oggetto: DBRM contoken check rexx on db2-l-documents
>
>
> For anyone who is interested in my rexx/dialog that compares the contoken
in
> the DBRM with the load module to see if there's a match (put on
> db2-l-documents on 12/23), I want you to know that my rexx uses PDS84
(also
> known as PDS, LPDS, LISTPDS, PDS18 and PDS4, and probably other names) to
> get the link date of the load module. The new version of this code (8.5)
is
> available from the CBT tape site at http://www.cbttape.org/freepds.htm.
If
> you call it by something other than PDS84, you'll need to change the
command
> in the rexx.
>
> If you don't have the PDS software and don't want to install it, you can
> remove the logic from the rexx fairly easily. If you need assistance with
> that, let me know.
>
> Also, I've only tested this with Cobol programs. I don't know if it works
> with any other languages.
>
> Tina Hilton
>
> Database Analyst
> arvato systems
>
>
>
the
> DB2-L webpage at http://listserv.ylassoc.com. The owners of the list can
be
>
>
>
>





Gerald Hodge

Re: DBRM contoken check rexx on db2-l-documents
(in response to michael bell)
Di Franco:

Many languages have a different representation of the consistency token in
there object and load modules. The worse is C or C++. Within what language
are you trying the match?

Gerald Hodge
HLS Technologies, Inc.
281-265-3004

-----Original Message-----
From: DB2 Data Base Discussion List
[mailto:[login to unmask email]On Behalf Of Di Franco Vincenzo
Sent: Monday, December 30, 2002 12:01 PM
To: [login to unmask email]
Subject: R: DBRM contoken check rexx on db2-l-documents


Hi Tina,
I've been forced to make a correction to your rexx :

/* contokenx = substr(dbrm.1,29,4) || substr(dbrm.1,25,4) */
contokenx = substr(dbrm.1,25,4) || substr(dbrm.1,29,4)

I tested your rexx with DSNTIAD pgm and found that in load module contoken
was like my correction.
Do you have an idea ?
I find your utility very nice.
Thank you. Bye.

-----Messaggio originale-----
Da: DB2 Data Base Discussion List [mailto:[login to unmask email]Per
conto di Tina Hilton
Inviato: venerdì 27 dicembre 2002 14.30
A: [login to unmask email]
Oggetto: DBRM contoken check rexx on db2-l-documents


For anyone who is interested in my rexx/dialog that compares the contoken in
the DBRM with the load module to see if there's a match (put on
db2-l-documents on 12/23), I want you to know that my rexx uses PDS84 (also
known as PDS, LPDS, LISTPDS, PDS18 and PDS4, and probably other names) to
get the link date of the load module. The new version of this code (8.5) is
available from the CBT tape site at http://www.cbttape.org/freepds.htm. If
you call it by something other than PDS84, you'll need to change the command
in the rexx.

If you don't have the PDS software and don't want to install it, you can
remove the logic from the rexx fairly easily. If you need assistance with
that, let me know.

Also, I've only tested this with Cobol programs. I don't know if it works
with any other languages.

Tina Hilton

Database Analyst
arvato systems













Tina Hilton

Re: R: DBRM contoken check rexx on db2-l-documents
(in response to Gerald Hodge)
It works with all our Cobol. If you have programs in other languages, then
you can pass language to the rexx and have it use the version of the code
that's correct for that language.

If lang = 'cobol' then contokenx = substr(dbrm.1,29,4) ||
substr(dbrm.1,25,4)
else if lang = 'assembler' then contokenx = substr(dbrm.1,25,4) ||
substr(dbrm.1,29,4)

Something like that, anyway. Our shop is 99% (maybe even 99.9%) Cobol, so
this isn't a problem for us.

-----Original Message-----
From: michael bell [mailto:[login to unmask email]
Sent: December 30, 2002 1:35 PM
To: [login to unmask email]
Subject: Re: R: DBRM contoken check rexx on db2-l-documents


The connection token is stored in the format specified by the
precompiler/compiler combination. ASM and COBOL not RENT are different from
COBOL compiled with RENT. The RENT COBOL compiler stores the value in the
literal pool and the sequence is reversed. I suppose you could keep
different versions for ASM and RENT COBOL.

Mike Bell
HLS Technologies

----- Original Message -----
From: "Di Franco Vincenzo" <[login to unmask email]>
Newsgroups: bit.listserv.db2-l
To: <[login to unmask email]>
Sent: Monday, December 30, 2002 12:01 PM
Subject: R: DBRM contoken check rexx on db2-l-documents


> Hi Tina,
> I've been forced to make a correction to your rexx :
>
> /* contokenx = substr(dbrm.1,29,4) || substr(dbrm.1,25,4) */
> contokenx = substr(dbrm.1,25,4) || substr(dbrm.1,29,4)
>
> I tested your rexx with DSNTIAD pgm and found that in load module contoken
> was like my correction.
> Do you have an idea ?
> I find your utility very nice.
> Thank you. Bye.
>
> -----Messaggio originale-----
> Da: DB2 Data Base Discussion List [mailto:[login to unmask email]Per
> conto di Tina Hilton
> Inviato: venerdì 27 dicembre 2002 14.30
> A: [login to unmask email]
> Oggetto: DBRM contoken check rexx on db2-l-documents
>
>
> For anyone who is interested in my rexx/dialog that compares the contoken
in
> the DBRM with the load module to see if there's a match (put on
> db2-l-documents on 12/23), I want you to know that my rexx uses PDS84
(also
> known as PDS, LPDS, LISTPDS, PDS18 and PDS4, and probably other names) to
> get the link date of the load module. The new version of this code (8.5)
is
> available from the CBT tape site at http://www.cbttape.org/freepds.htm.
If
> you call it by something other than PDS84, you'll need to change the
command
> in the rexx.
>
> If you don't have the PDS software and don't want to install it, you can
> remove the logic from the rexx fairly easily. If you need assistance with
> that, let me know.
>
> Also, I've only tested this with Cobol programs. I don't know if it works
> with any other languages.
>
> Tina Hilton
>
> Database Analyst
> arvato systems
>
>
> visit
the
> DB2-L webpage at http://listserv.ylassoc.com. The owners of the list can
be
>
>
>
> visit




visit the





Isaac Yassin

Re: DBRM contoken check rexx on db2-l-documents
(in response to Tina Hilton)
Hi,
I've put the C structure months ago. It's somewhere in the DOC list

Isaac Yassin
DBMS & IT Consultant
IBM Certified Solution Expert
DB2 V7.1 Database Administration for OS/390



-----Original Message-----
From: DB2 Data Base Discussion List [mailto:[login to unmask email]
On Behalf Of Gerald Hodge
Sent: Monday, December 30, 2002 8:38 PM
To: [login to unmask email]
Subject: Re: DBRM contoken check rexx on db2-l-documents


Di Franco:

Many languages have a different representation of the consistency token
in there object and load modules. The worse is C or C++. Within what
language are you trying the match?

Gerald Hodge
HLS Technologies, Inc.
281-265-3004

-----Original Message-----
From: DB2 Data Base Discussion List
[mailto:[login to unmask email]On Behalf Of Di Franco Vincenzo
Sent: Monday, December 30, 2002 12:01 PM
To: [login to unmask email]
Subject: R: DBRM contoken check rexx on db2-l-documents


Hi Tina,
I've been forced to make a correction to your rexx :

/* contokenx = substr(dbrm.1,29,4) || substr(dbrm.1,25,4) */ contokenx
= substr(dbrm.1,25,4) || substr(dbrm.1,29,4)

I tested your rexx with DSNTIAD pgm and found that in load module
contoken was like my correction. Do you have an idea ? I find your
utility very nice. Thank you. Bye.

-----Messaggio originale-----
Da: DB2 Data Base Discussion List [mailto:[login to unmask email]Per
conto di Tina Hilton
Inviato: venerdì 27 dicembre 2002 14.30
A: [login to unmask email]
Oggetto: DBRM contoken check rexx on db2-l-documents


For anyone who is interested in my rexx/dialog that compares the
contoken in the DBRM with the load module to see if there's a match (put
on db2-l-documents on 12/23), I want you to know that my rexx uses PDS84
(also known as PDS, LPDS, LISTPDS, PDS18 and PDS4, and probably other
names) to get the link date of the load module. The new version of this
code (8.5) is available from the CBT tape site at
http://www.cbttape.org/freepds.htm. If you call it by something other
than PDS84, you'll need to change the command in the rexx.

If you don't have the PDS software and don't want to install it, you can
remove the logic from the rexx fairly easily. If you need assistance
with that, let me know.

Also, I've only tested this with Cobol programs. I don't know if it
works with any other languages.

Tina Hilton

Database Analyst
arvato systems



the DB2-L webpage at http://listserv.ylassoc.com. The owners of the list
can



the DB2-L webpage at http://listserv.ylassoc.com. The owners of the list
can



the DB2-L webpage at http://listserv.ylassoc.com. The owners of the list
can