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.
"
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
"Couldn’t something like this work?


LINKAGE SECTION.
01 LS-SCRATCH-AREA
05 LS-SCRATCH-RECORD PIC X(100)
05 LS-SCRATCH-END-BYTE PIC X(01)

PROCEDURE DIVISION.

GET STORAGE FOR LS-SCRATCH-AREA
TO LS-SCRATCH-END-BYTE
KEEP STGID 'SCRT' VALUE IS LOW-VALUE
ON ANY-STATUS
NEXT SENTENCE.

IF DB-STATUS-OK
GET SCRATCH AREA ID ‘XXXX’ KEEP
INTO LS-SCRATCH-AREA TO LS-SCRATCH-END-BYTE




----- Original message -----
From: ""Miley, Dan L"" <dan.l.miley@LMCO.COM>
To: IDMS-L@LISTSERV.IUASSN.COM
Date: Wed, 22 Jul 2009 15:00:19 -0400
Subject: Re: Get storage

What are you planning on using the pointer for? It is an address of an
address, typically used when calling assembler programs. I think that
perhaps you just want the storage ID and don't really need the pointer.

Dan Miley
Lockheed Martin

Outcomes