ca.portal.admin

Re:No Subject

Discussion created by ca.portal.admin on Oct 3, 2007
Hi All,

Some of our programmers need to be able to detect whether a job is running in the development or production environment from a CICS IDMS-DC program.

They are using 'ACCEPT SYSVERSION INTO WS----' and then test the CV number in the returned halfword PIC S9(4) COMP.

Unfortunately the ACCEPT always returned error status
0063 (invalid parameter list). They have tried other forms of accept (i.e USER ID, and ACCEPT FROM) with the same result.

Has anyone any idea which parameter is at fault?

Alternatively can anyone suggest another method to determine the environment ?

Many thanks in advance,
Geoff
"
IDMS Public Discussion Forum
IDMS-L@LISTSERV.IUASSN.COM
SMTP
IDMS-L@LISTSERV.IUASSN.COM
IDMS-L@LISTSERV.IUASSN.COM
SMTP








Normal

Normal
"Re: ""Decompilation"" of IDD table load modules."
"Great timing, I needed to do this also.
One question:
What is in the RSQLSHR schema?
Do you have the source to create that?
Thanks
*****************************************************************
Harry J. LeRoy H.LeRoy@NEU.EDU
IDMS Database Administrator
AAS Database Services
(617) 373-7568 (617) 373-4354 (fax)
****************************************************************



""Cherlet, Gary (JTS)"" <Cherlet.Gary@SAUGOV.SA.GOV.AU>
Sent by: IDMS Public Discussion Forum <IDMS-L@LISTSERV.IUASSN.COM>
10/09/2007 10:02 PM
Please respond to
IDMS Public Discussion Forum <IDMS-L@LISTSERV.IUASSN.COM>


To
IDMS-L@LISTSERV.IUASSN.COM
cc

Subject
Re: ""Decompilation"" of IDD table load modules.






This doesn't do the Load Module - it runs against Table Source - but it
does the job - HTH - cheers - Gary

CREATE VIEW RSQLSHR.CODEVALUES

( CODETABLE, CODETABLENAME, ENCODEVALUE, DECODEVALUE )

AS

select MOD_NAME_067 as codeTable ,
substr(MOD_NAME_067,1,8) as codeTableName ,

cast(rtrim(substr(CMT_INFO_084_1,5,34)) as VARCHAR(34))

as encodeValue ,

concat(substr(CMT_INFO_084_1,39,12) ,

CMT_INFO_084_2 ) as decodeValue

FROM jisdict.""MODULE-067"" ,

jisdict.""MODCMT-084""

WHERE ""MODULE-MODCMT""

and LANG_067 = 'TABLE'

and CMT_ID_084 = -9 and IDD_SEQ_084 = 0

and substr(CMT_INFO_084_1,5,1) <> '?'

and substr(CMT_INFO_084_1,5,34) <> ' '

;


select codeTableName as Table,
substr(encodeValue,1,8) as encode,
substr(decodeValue,1,24) as decode
from rsqlshr.codeValues where codeTable = 'TBORENDC';
*+
*+ TABLE     ENCODE    DECODE
*+ -----     ------    ------
*+ TBORENDC  DIS       DISCHARGED
*+ TBORENDC  ESC       ESCAPED
*+ TBORENDC  HVO       HOME VOLUNTARY HOME DETE
*+ TBORENDC  HBC       BREACH OF HOME DETENTION
*+ TBORENDC  HCO       OFFENCE COMMITTED ON HOM
*+ TBORENDC  HUL       UNLAWFULLY AT LARGE ON H
*+ TBORENDC  HOT       OTHER (HOME DETENTION)
*+ TBORENDC  DEPOR     DEPORTATION
*+ TBORENDC  EXP       EXPIRED
*+ TBORENDC  HRCOM     HOURS COMPLETED
*+ TBORENDC  PAY       PAYMENT
*+ TBORENDC  REQ       CLIENTS REQUEST
*+ TBORENDC  ADIS      ADMINISTRATIVE DISCHARGE
*+ TBORENDC  DISV      DISCHARGE BY VARIATION

Gary Cherlet
Justice Technology Services
Department of Justice, SA Government
Telephone +61 (0)8 8226 5199
Facsimile +61 (0)8 8226 5311
Mobile +61 (0)41 333 1613
MailTo:cherlet.gary@saugov.sa.gov.au

This e-mail message and any attachments are qualified as follows:
Addressing: If you have received this e-mail in error, please advise by
reply e-mail to the sender. Please also destroy the original
transmission and its contents. Confidentiality: This e-mail may contain
confidential information which also may be legally privileged. Only the
intended recipient(s) may access, use, distribute or copy this e-mail.
Individual Views: Unless otherwise indicated, the views expressed are
those of the sender, not Justice Technology Services. Computer Viruses:
It is the recipient's responsibility to check the e-mail and any
attached files for viruses.
"
IDMS Public Discussion Forum
IDMS-L@LISTSERV.IUASSN.COM
SMTP
IDMS-L@LISTSERV.IUASSN.COM
IDMS-L@LISTSERV.IUASSN.COM
SMTP








Normal

Normal
"Re: ""Decompilation"" of IDD table load modules."
"For the source try
SET FORMAT FIXED.
before you display as SYN.

Cheers

Sam> Date: Tue, 9 Oct 2007 20:50:47 -0500> From: mchampagne@MILNOR.COM> Subject: ""Decompilation"" of IDD table load modules.> To: IDMS-L@LISTSERV.IUASSN.COM> > Does anyone have any handy code to 'decompile"" an IDD table into fixed-format output (including the table name itself), e.g. for a code table such as this:> > ADD > TABLE NAME IS PMCTCCST VERSION IS 1 > TYPE IS CODE > VALUES ARE ( I 'IN PROCESS' C 'RESET COMPLETE' N 'NOT ACTIVE' R > REQUESTED S STARTED X 'REQ. RESET ONLY') > .> > would yield output such as this:> > PMCTCCST I IN PROCESS> PMCTCCST C RESET COMPLETE> PMCTCCST N NOT ACTIVE> PMCTCCST R REQUESTED> PMCTCCST S STARTED> PMCTCCST X REQ. RESET ONLY> > and for an edit table:> > ADD > TABLE NAME IS PMCTSYMB VERSION IS 1 > TYPE IS EDIT VALID > VALUES ARE ( F N Z G E S P B ) > . > > the output would be:> > PMCTSYMB F> PMCTSYMB N> PMCTSYMB Z> PMCTSYMB G> PMCTSYMB E> PMCTSYMB S> PMCTSYMB P> PMCTSYMB B> > I'm confident I could write one (in assembler) but if someone's already done it . . . why reinvent the wheel?> > Ideally I'd want to read the entire dictionary and only process load modules associated with tables, and each table would likely have to be cycled through twice: once to determine the maximum length of the elements and once to actually strip them off and write them out.> > Any takers?> > PELLERIN MILNOR CORPORATION> Michel J Champagne> Systems Analyst / DBA> <<Picture (Metafile)>> > Voice: 504-712-7589> FAX: 504-712-3589> > CONFIDENTIALITY NOTICE: This message and any attachments may contain confidential, proprietary or legally privileged information and is intended only for the use of the addressee or addressees named above for its intended purpose. If you are not the intended recipient of this message, this message constitutes notice that any review, retransmission, distribution, copying or other use or taking any action in reliance on the information in this message and its attachments, is prohibited. If you receive this communication in error, please immediately advise the sender by reply e-mail and delete this message and its attachments from your system without keeping a copy. Unless expressly stated in this e-mail, nothing in this message may be construed as a digital or electronic signature. Thank you.
_________________________________________________________________
It's simple! Sell your car for just $30 at CarPoint.com.au
http://a.ninemsn.com.au/b.aspx?URL=http%3A%2F%2Fsecure%2Dau%2Eimrworldwide%2Ecom%2Fcgi%2Dbin%2Fa%2Fci%5F450304%2Fet%5F2%2Fcg%5F801459%2Fpi%5F1004813%2Fai%5F859641&_t=762955845&_r=tig_OCT07&_m=EXT
"
IDMS Public Discussion Forum
IDMS-L@LISTSERV.IUASSN.COM
SMTP
IDMS-L@LISTSERV.IUASSN.COM
IDMS-L@LISTSERV.IUASSN.COM
SMTP








Normal

Normal
"Re: ""Decompilation"" of IDD table load modules."
"This doesn't do the Load Module - it runs against Table Source - but it
does the job - HTH - cheers - Gary

CREATE VIEW RSQLSHR.CODEVALUES

( CODETABLE, CODETABLENAME, ENCODEVALUE, DECODEVALUE )

AS

select MOD_NAME_067 as codeTable ,
substr(MOD_NAME_067,1,8) as codeTableName ,

cast(rtrim(substr(CMT_INFO_084_1,5,34)) as VARCHAR(34))

as encodeValue ,

concat(substr(CMT_INFO_084_1,39,12) ,

CMT_INFO_084_2 ) as decodeValue

FROM jisdict.""MODULE-067"" ,

jisdict.""MODCMT-084""

WHERE ""MODULE-MODCMT""

and LANG_067 = 'TABLE'

and CMT_ID_084 = -9 and IDD_SEQ_084 = 0

and substr(CMT_INFO_084_1,5,1) <> '?'

and substr(CMT_INFO_084_1,5,34) <> ' '

;


select codeTableName as Table,
substr(encodeValue,1,8) as encode,
substr(decodeValue,1,24) as decode
from rsqlshr.codeValues where codeTable = 'TBORENDC';
*+
*+ TABLE     ENCODE    DECODE
*+ -----     ------    ------
*+ TBORENDC  DIS       DISCHARGED
*+ TBORENDC  ESC       ESCAPED
*+ TBORENDC  HVO       HOME VOLUNTARY HOME DETE
*+ TBORENDC  HBC       BREACH OF HOME DETENTION
*+ TBORENDC  HCO       OFFENCE COMMITTED ON HOM
*+ TBORENDC  HUL       UNLAWFULLY AT LARGE ON H
*+ TBORENDC  HOT       OTHER (HOME DETENTION)
*+ TBORENDC  DEPOR     DEPORTATION
*+ TBORENDC  EXP       EXPIRED
*+ TBORENDC  HRCOM     HOURS COMPLETED
*+ TBORENDC  PAY       PAYMENT
*+ TBORENDC  REQ       CLIENTS REQUEST
*+ TBORENDC  ADIS      ADMINISTRATIVE DISCHARGE
*+ TBORENDC  DISV      DISCHARGE BY VARIATION

Gary Cherlet
Justice Technology Services
Department of Justice, SA Government
Telephone +61 (0)8 8226 5199
Facsimile +61 (0)8 8226 5311
Mobile +61 (0)41 333 1613
MailTo:cherlet.gary@saugov.sa.gov.au

This e-mail message and any attachments are qualified as follows:
Addressing: If you have received this e-mail in error, please advise by
reply e-mail to the sender. Please also destroy the original
transmission and its contents. Confidentiality: This e-mail may contain
confidential information which also may be legally privileged. Only the
intended recipient(s) may access, use, distribute or copy this e-mail.
Individual Views: Unless otherwise indicated, the views expressed are
those of the sender, not Justice Technology Services. Computer Viruses:
It is the recipient's responsibility to check the e-mail and any
attached files for viruses.

Outcomes