ca.portal.admin

DBNAME

Discussion created by ca.portal.admin on Nov 3, 2006
Latest reply on Nov 3, 2006 by ca.portal.admin
Does anyone have a code example of getting the DBNAME from the system? I
was thinking there was on option on the ACCEPT statement, but I can't
find it in the manuals.

I have an application that needs to know what DBNAME it is bound to. So
once again I am heading out to IDMS-L before I start writing from
scratch.

Thanks in advance.

Dan Hall
GE
Capital Solutions
Danbury, CT

T 513.217.5060
E dan.hall@ge.com
http://www.ge.com/capitalsolutions/
"
IDMS Public Discussion Forum
IDMS-L@LISTSERV.IUASSN.COM
SMTP
IDMS-L@LISTSERV.IUASSN.COM
IDMS-L@LISTSERV.IUASSN.COM
SMTP








Normal

Normal
Re: DBNAME
"From 10.0 days, I think . . .
*--------------------------------------------------------------

* GET/PUT DEFAULT DICT,DBNAME,LOADLIST FOR DIALOG.

*--------------------------------------------------------------

UDMSDEFS START , .

LR R12,R15

USING UDMSDEFS,R12

B BEGIN .

USING CSA,R10 .

USING TCE,R9 .

USING LTE,R4 .

USING PARMLIST,R3 .

USING LDT,R2 .

#MOPT CSECT=UDMSDEFS,REGS=YES,ENV=USER

*

BEGIN DS 0H

L R3,0(R1) GET PASSED DATA

LA R3,0(R3) CLEAR HI-ORDER BYTE

#GETSTG TYPE=(USER,SHORT),LEN=64,ADDR=(R5),PLIST=*,RGSV=(R3)

USING SYSPLIST,R5

#SNAP AREA=((R3),33),TITLE='0UDMSDEFS-IN'

L R4,TCELTEA GET LTERM ADR

CLI PLFLG,C'G' .

BE GETDF .

CLI PLFLG,C'P' .

BE PUTDF .

B EXEUNT

GETDF DS 0H .

MVC PLDICT(8),LTEDIDBN SET DICT NAME

MVC PLDB(8),LTEDFDBN SET DB NAME

MVC PLPD(8),LTEDFDST SET PRI.DES NAME

L R2,LTELDLSA GET LOADLIST ADDR

LTR R2,R2 ANY LOADLIST ADDR?

BZ EXEUNT NO, GETOUT

MVC PLLIST(8),LDTHNAME SET LOADLIST NAME

B EXEUNT GO HOME

PUTDF DS 0H .

CLC =C' ',PLDICT BLANK?
EKCAPTRN
BE PD1 YES, BYPASS
EKCAPTRN
MVC LTEDIDBN(8),PLDICT SET DICT NAME

PD1 DS 0H .

CLC =C' ',PLDB BLANK?
EKCAPTRN
BE PD2 YES, BYPASS
EKCAPTRN
MVC LTEDFDBN(8),PLDB SET DB NAME

PD2 DS 0H .

CLC =C' ',PLPD BLANK?
EKCAPTRN
BE PD3 YES, BYPASS
EKCAPTRN
MVC LTEDFDST(8),PLPD SET PRI.DES NAME

L R2,CSALDTA GET LOADLIST ADDR

PD3 DS 0H .

CLC =C' ',PLLIST BLANK?
EKCAPTRN
BE PD4 YES, BYPASS
EKCAPTRN
PDLP DS 0H PUTDEFAULT LOADLIST LOOP

CLC PLLIST(8),LDTHNAME THIS LOADLIST?

BE LLPUT YES

L R2,LDTHNEXT GET NEXT LOADLIST ADDR

LTR R2,R2 ANY ADDR?

BNZ PDLP YES, TRY NEXT

ST R2,LTELDLSA SET LOADLIST ADDR TO NULLS

MVC PLLIST(8),CSABLNKS ERASE INVALID LOADLIST

PD4 DS 0H .

B EXEUNT GO HOME

LLPUT DS 0H SET LOADLIST NAME AND ADDR

MVC LDTHNAME(8),PLLIST SET LOADLIST NAME

ST R2,LTELDLSA SET LOADLIST ADDR

* GO HOME

EXEUNT DS 0H .

#SNAP AREA=((R4),255),TITLE='0UDMSDEFS-OUT'

#RETURN .

#BALI .

*

SYSPLIST DSECT

DS 8F MAX PLIST SIZE

PARMLIST DSECT REFER TO REC EKCRDEFS

PLDICT DS CL8 DICTIONARY

PLDB DS CL8 DBNAME

PLPD DS CL8 PRI.DES

PLLIST DS CL8 LOADLIST

PLFLG DS CL1 ""G""(GET),""P""(PUT)

PRINT ON,NOGEN .

COPY #CSADS .

COPY #TCEDS .

COPY #LTEDS .

COPY #LDTDS .

PRINT ON .

END

Outcomes