ca.portal.admin

Re: Get storage

Discussion created by ca.portal.admin on Jul 24, 2009
Chuck,
I don't think this will work . After the DML expansion you will see the dc
call with :

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

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=20
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=3Duser,short the you don'=
t
have to remove the storage after you program is finished.
=20


Peter van de Ven Atos Origin=20

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


=FC 51 25' 43.86"" 5 31'50.36""=20

Outcomes