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 Public Discussion Forum
IDMS-L@LISTSERV.IUASSN.COM
SMTP
IDMS-L@LISTSERV.IUASSN.COM
IDMS-L@LISTSERV.IUASSN.COM
SMTP








Normal

Normal
Re: Get storage
"Couldn=E2=80=99t 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=20=20=20=20=20=20=20=20=20=20=20=
=20=20=20
ON ANY-STATUS=20=20=20=20=20=20=20=20=20=20=20=20=20=20=20=20=20=20=
=20=20=20=20=20=20=20=20=20=20=20=20=20=20=20
NEXT SENTENCE.=20=20=20=20=20=20=20=20=20=20=20=20=20=20=20=20=
=20=20=20=20=20=20=20=20=20=20=20=20
=20=20=20=20=20=20=20=20=20=20=20=20=20=20=20=20=20=20=20=20=20=20=20=20=20=
=20=20=20=20=20=20=20=20=20=20=20=20=20=20=20=20=20=20=20=20=20=20=20=20=20=
=20=20=20=20
IF DB-STATUS-OK=20=20=20=20=20=20=20=20=20=20=20=20=20=20=20=20=20=20=20=20=
=20=20=20=20=20=20=20=20=20=20=20=20=20=20=20=20=20=20=20
GET SCRATCH AREA ID =E2=80=98XXXX=E2=80=99 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