ca.portal.admin

Developer Question

Discussion created by ca.portal.admin on Jan 6, 2010
Hello everyone and Happy New Year to all.



When you do an OBTAIN in a system owned index with a USING can the data nam=
e in the using be anything that you want it to be as long as it is the same=
picture and length as the actual key to the index?



We are passing the key from program A to B in a link record and then trying=
to do an OBTAIN using the element description in the link record and we ar=
e getting a 4083 error? I think this may be an LE/Cobol error?



William M. Allen, Jr.

ARCH Consulting Associates, Ltd.

(704) 641-0296
"
IDMS 3rd-party providers forum
IDMSVENDOR-L@LISTSERV.IUASSN.COM
SMTP
IDMSVENDOR-L@LISTSERV.IUASSN.COM
IDMSVENDOR-L@LISTSERV.IUASSN.COM
SMTP








Normal

Normal
Re: Developer Question
"You need to look at the ""save"" area near the end of the SNAP of Subschema Control - the ""40"" part of the ""4083"" is from the SNAP issued by the IDMS-STATUS routine - the ""83"" part likely means you have a ""Native NSAM"" error if it is a DB error (there is no ""83"" in the DC minor codes in the Quick ref). In the ""save area"" you will see the last error status and the last DML Sequence from the verb that was actually in error at the time that IDMS-STATUS was entered - prior to the SNAP command (unless you have made local changes to the IDMS-STATUS routine).

BTW - to answer the original question - what you call things in the (data names) in the Working Storage or Linkage Section has no nearing on the interaction with the run-time system. When doing the OBTAIN USING in ""ANY"" program make sure that in the ""using variable-name"" clause the ""variable-name"" is either 256 bytes long - or has the sort-key portion of length ""n"" and FILLER so that ""n"" + ""Filler length"" = 256 ! If you look closely in the DML Reference this can be found in the ""small print"". You may get errors in locating the data that you expect to be able to locate in the index if this is not the case.

HTH - cheers - Gary


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:gary.cherlet@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