ca.portal.admin

Re:Get storage

Discussion created by ca.portal.admin on Jul 22, 2009
Thanks to Tommy's and Peter's suggestion, I am now getting a clean =
compile.
But I don't seem to be getting a valid pointer back at run time. Can =
anyone
provide a way to convert the pointer to a displayable format? Or better
yet, some sample code that uses the pointer parameter for ""get scratch""?

I wish the storage interface had separate ""get"" and ""put"" commands, like =
the
scratch and queue interfaces do. I am having some difficulty =
determining
which parameters apply to which situation.


------=_NextPart_000_BAC0_01CA0C3D.44BD8590
Content-Type: text/plain;
name=""disclaimer.txt""
Content-Transfer-Encoding: base64
Content-Disposition: attachment;
filename=""disclaimer.txt""

//5EAGkAdAAgAGIAZQByAGkAYwBoAHQAIABpAHMAIAB2AGUAcgB0AHIAbwB1AHcAZQBsAGkAagBr
ACAAZQBuACAAawBhAG4AIABnAGUAaABlAGkAbQBlACAAaQBuAGYAbwByAG0AYQB0AGkAZQAgAGIA
ZQB2AGEAdAB0AGUAbgAgAGUAbgBrAGUAbAANAAoAYgBlAHMAdABlAG0AZAAgAHYAbwBvAHIAIABk
AGUAIABnAGUAYQBkAHIAZQBzAHMAZQBlAHIAZABlAC4AIABJAG4AZABpAGUAbgAgAGQAaQB0ACAA
YgBlAHIAaQBjAGgAdAAgAG4AaQBlAHQAIAB2AG8AbwByACAAdQAgAGkAcwAgAGIAZQBzAHQAZQBt
AGQALAANAAoAdgBlAHIAegBvAGUAawBlAG4AIAB3AGkAagAgAHUAIABkAGkAdAAgAG8AbgBtAGkA
ZABkAGUAbABsAGkAagBrACAAYQBhAG4AIABvAG4AcwAgAHQAZQAgAG0AZQBsAGQAZQBuACAAZQBu
ACAAaABlAHQAIABiAGUAcgBpAGMAaAB0ACAAdABlAA0ACgB2AGUAcgBuAGkAZQB0AGkAZwBlAG4A
LgANAAoAQQBhAG4AZwBlAHoAaQBlAG4AIABkAGUAIABpAG4AdABlAGcAcgBpAHQAZQBpAHQAIAB2
AGEAbgAgAGgAZQB0ACAAYgBlAHIAaQBjAGgAdAAgAG4AaQBlAHQAIAB2AGUAaQBsAGkAZwAgAGcA
ZQBzAHQAZQBsAGQAIABpAHMAIABtAGkAZABkAGUAbABzAA0ACgB2AGUAcgB6AGUAbgBkAGkAbgBn
ACAAdgBpAGEAIABpAG4AdABlAHIAbgBlAHQALAAgAGsAYQBuACAAQQB0AG8AcwAgAE8AcgBpAGcA
aQBuACAAbgBpAGUAdAAgAGEAYQBuAHMAcAByAGEAawBlAGwAaQBqAGsAIAB3AG8AcgBkAGUAbgAg
AGcAZQBoAG8AdQBkAGUAbgANAAoAdgBvAG8AcgAgAGQAZQAgAGkAbgBoAG8AdQBkACAAZABhAGEA
cgB2AGEAbgAuAA0ACgBIAG8AZQB3AGUAbAAgAHcAaQBqACAAbwBuAHMAIABpAG4AcwBwAGEAbgBu
AGUAbgAgAGUAZQBuACAAdgBpAHIAdQBzAHYAcgBpAGoAIABuAGUAdAB3AGUAcgBrACAAdABlACAA
aABhAG4AdABlAHIAZQBuACwAIABnAGUAdgBlAG4ADQAKAHcAaQBqACAAZwBlAGUAbgAgAGUAbgBr
AGUAbABlACAAZwBhAHIAYQBuAHQAaQBlACAAZABhAHQAIABkAGkAdAAgAGIAZQByAGkAYwBoAHQA
IAB2AGkAcgB1AHMAdgByAGkAagAgAGkAcwAsACAAbgBvAGMAaAAgAGEAYQBuAHYAYQBhAHIAZABl
AG4AIAB3AGkAagANAAoAZQBuAGkAZwBlACAAYQBhAG4AcwBwAHIAYQBrAGUAbABpAGoAawBoAGUA
aQBkACAAdgBvAG8AcgAgAGQAZQAgAG0AbwBnAGUAbABpAGoAawBlACAAYQBhAG4AdwBlAHoAaQBn
AGgAZQBpAGQAIAB2AGEAbgAgAGUAZQBuACAAdgBpAHIAdQBzACAAaQBuACAAZABpAHQADQAKAGIA
ZQByAGkAYwBoAHQALgANAAoAoAANAAoATwBwACAAYQBsACAAbwBuAHoAZQAgAHIAZQBjAGgAdABz
AHYAZQByAGgAbwB1AGQAaQBuAGcAZQBuACwAIABhAGEAbgBiAGkAZQBkAGkAbgBnAGUAbgAgAGUA
bgAgAG8AdgBlAHIAZQBlAG4AawBvAG0AcwB0AGUAbgAgAHcAYQBhAHIAbwBuAGQAZQByAA0ACgBB
AHQAbwBzACAATwByAGkAZwBpAG4AIABnAG8AZQBkAGUAcgBlAG4AIABlAG4ALwBvAGYAIABkAGkA
ZQBuAHMAdABlAG4AIABsAGUAdgBlAHIAdAAgAHoAaQBqAG4AIABtAGUAdAAgAHUAaQB0AHMAbAB1
AGkAdABpAG4AZwAgAHYAYQBuACAAYQBsAGwAZQANAAoAYQBuAGQAZQByAGUAIAB2AG8AbwByAHcA
YQBhAHIAZABlAG4AIABkAGUAIABMAGUAdgBlAHIAaQBuAGcAcwB2AG8AbwByAHcAYQBhAHIAZABl
AG4AIAB2AGEAbgAgAEEAdABvAHMAIABPAHIAaQBnAGkAbgAgAHYAYQBuACAAdABvAGUAcABhAHMA
cwBpAG4AZwAuAA0ACgBEAGUAegBlACAAdwBvAHIAZABlAG4AIAB1ACAAbwBwACAAYQBhAG4AdgBy
AGEAYQBnACAAZABpAHIAZQBjAHQAIABrAG8AcwB0AGUAbABvAG8AcwAgAHQAbwBlAGcAZQB6AG8A
bgBkAGUAbgAuAA0ACgCgAA0ACgBUAGgAaQBzACAAZQAtAG0AYQBpAGwAIABhAG4AZAAgAHQAaABl
ACAAZABvAGMAdQBtAGUAbgB0AHMAIABhAHQAdABhAGMAaABlAGQAIABhAHIAZQAgAGMAbwBuAGYA
aQBkAGUAbgB0AGkAYQBsACAAYQBuAGQAIABpAG4AdABlAG4AZABlAGQAIABzAG8AbABlAGwAeQAN
AAoAZgBvAHIAIAB0AGgAZQAgAGEAZABkAHIAZQBzAHMAZQBlADsAIABpAHQAIABtAGEAeQAgAGEA
bABzAG8AIABiAGUAIABwAHIAaQB2AGkAbABlAGcAZQBkAC4AIABJAGYAIAB5AG8AdQAgAHIAZQBj
AGUAaQB2AGUAIAB0AGgAaQBzACAAZQAtAG0AYQBpAGwADQAKAGkAbgAgAGUAcgByAG8AcgAsACAA
cABsAGUAYQBzAGUAIABuAG8AdABpAGYAeQAgAHQAaABlACAAcwBlAG4AZABlAHIAIABpAG0AbQBl
AGQAaQBhAHQAZQBsAHkAIABhAG4AZAAgAGQAZQBzAHQAcgBvAHkAIABpAHQALgANAAoAQQBzACAA
aQB0AHMAIABpAG4AdABlAGcAcgBpAHQAeQAgAGMAYQBuAG4AbwB0ACAAYgBlACAAcwBlAGMAdQBy
AGUAZAAgAG8AbgAgAHQAaABlACAASQBuAHQAZQByAG4AZQB0ACwAIAB0AGgAZQAgAEEAdABvAHMA
IABPAHIAaQBnAGkAbgAgAGcAcgBvAHUAcAANAAoAbABpAGEAYgBpAGwAaQB0AHkAIABjAGEAbgBu
AG8AdAAgAGIAZQAgAHQAcgBpAGcAZwBlAHIAZQBkACAAZgBvAHIAIAB0AGgAZQAgAG0AZQBzAHMA
YQBnAGUAIABjAG8AbgB0AGUAbgB0AC4AIABBAGwAdABoAG8AdQBnAGgAIAB0AGgAZQANAAoAcwBl
AG4AZABlAHIAIABlAG4AZABlAGEAdgBvAHUAcgBzACAAdABvACAAbQBhAGkAbgB0AGEAaQBuACAA
YQAgAGMAbwBtAHAAdQB0AGUAcgAgAHYAaQByAHUAcwAtAGYAcgBlAGUAIABuAGUAdAB3AG8AcgBr
ACwAIAB0AGgAZQAgAHMAZQBuAGQAZQByAA0ACgBkAG8AZQBzACAAbgBvAHQAIAB3AGEAcgByAGEA
bgB0ACAAdABoAGEAdAAgAHQAaABpAHMAIAB0AHIAYQBuAHMAbQBpAHMAcwBpAG8AbgAgAGkAcwAg
AHYAaQByAHUAcwAtAGYAcgBlAGUAIABhAG4AZAAgAHcAaQBsAGwAIABuAG8AdAAgAGIAZQANAAoA
bABpAGEAYgBsAGUAIABmAG8AcgAgAGEAbgB5ACAAZABhAG0AYQBnAGUAcwAgAHIAZQBzAHUAbAB0
AGkAbgBnACAAZgByAG8AbQAgAGEAbgB5ACAAdgBpAHIAdQBzACAAdAByAGEAbgBzAG0AaQB0AHQA
ZQBkAC4ADQAKAKAADQAKAE8AbgAgAGEAbABsACAAbwBmAGYAZQByAHMAIABhAG4AZAAgAGEAZwBy
AGUAZQBtAGUAbgB0AHMAIAB1AG4AZABlAHIAIAB3AGgAaQBjAGgAIABBAHQAbwBzACAATwByAGkA
ZwBpAG4AIABzAHUAcABwAGwAaQBlAHMAIABnAG8AbwBkAHMAIABhAG4AZAAvAG8AcgANAAoAcwBl
AHIAdgBpAGMAZQBzACAAbwBmACAAdwBoAGEAdABlAHYAZQByACAAbgBhAHQAdQByAGUALAAgAHQA
aABlACAAVABlAHIAbQBzACAAbwBmACAARABlAGwAaQB2AGUAcgB5ACAAZgByAG8AbQAgAEEAdABv
AHMAIABPAHIAaQBnAGkAbgANAAoAZQB4AGMAbAB1AHMAaQB2AGUAbAB5ACAAYQBwAHAAbAB5AC4A
IAANAAoAVABoAGUAIABUAGUAcgBtAHMAIABvAGYAIABEAGUAbABpAHYAZQByAHkAIABzAGgAYQBs
AGwAIABiAGUAIABwAHIAbwBtAHAAdABsAHkAIABzAHUAYgBtAGkAdAB0AGUAZAAgAHQAbwAgAHkA
bwB1ACAAbwBuACAAeQBvAHUAcgAgAHIAZQBxAHUAZQBzAHQALgANAAoAoAANAAoAQQB0AG8AcwAg
AE8AcgBpAGcAaQBuACAATgBlAGQAZQByAGwAYQBuAGQAIABCAC4AVgAuACAALwAgAFUAdAByAGUA
YwBoAHQADQAKAEsAdgBLACAAVQB0AHIAZQBjAGgAdAAgADMAMAAxADMAMgA3ADYAMgA=

------=_NextPart_000_BAC0_01CA0C3D.44BD8590--
"
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: Get storage
"Chuck,
I don't think this will work . After the DML expansion you will see the dc call with :

CALL 'IDMSCOBI' USING SUBSCHEMA-CTRL
DCBMSCOM (13)
BY CONTENT LENGTH OF SQL-COMMAND
BY REFERENCE ADDRESS OF SQL-COMMAND;

IDMS will allocate a fixed portion of storage.


If you want to allocated dynamically storage then you have to call an assembler module: call 'assembler' using length-off-wanted-storage

address-off-allocated-storage;


The calling arguments are coming from the ws of the calling program.


After returning from this module you can do a cobol statemSent:

set address sql-command TO ADDRESS OF address-off-allocated-storage

If you allocated the storage with #getstg type=user,short the you don't have to remove the storage after you program is finished.



Peter van de Ven Atos Origin

* Tel: +31(0)40 2142211 +31(0)622567218
* Fax: +31(0)402144423


ü 51 25' 43.86"" 5 31'50.36""

Outcomes