All,
I am trying to write a pc routine accessible to selected address spaces.
As an initial step I had coded the following as per the ext addressability
guide:
MODESET KEY=ZERO,MODE=SUP
LA 2,1
STH 2,AXCOUNT
GETAX AXRES AXLIST=AXL,RELATED=FREEAX
LTR 15,15
BNZ AXERR
SETAX AXSET AX=AXVALUE,RELATED=(GETAX,SETAX)
LA 2,1
ST 2,LXCOUNT
GETLX LXRES LXLIST=LXL,RELATED=FREELX
CET1 ETCRE ENTRIES=ETDESC,RELATED=(CONET,DISET1,DESET1)
ST 0,TKVALUE
B RET
AXERR WTO 'ERROR'
RET L 13,SAVE+4
RETURN (14,12),,RC=0
SAVE DS 18F
ETDESC ETDEF TYPE=INITIAL,RELATED=(CET1)
ETDEF TYPE=ENTRY,PROGRAM='MEEN',STATE=SUPERVISOR,
AKM=(0:15)
ETDEF TYPE=FINAL
LXL DS 0F
LXCOUNT DC F'1' NO OF LX REQUESTED
LXVALUE DS F LX RETURNED BY LXRES
AXL DS 0F AX LIST
AXCOUNT DS H NUMBER OF AXS REQUESTED
AXVALUE DS H AX RETURNED BY AXES
TKL DS 0F TOKEN LIST
TKCOUNT DS F NUMBER OF ETS CREATED
TKVALUE DS F TOKEN RETURNED BY ETCRE
END
Still LXRES its through.I am getting an error S052 with reason code 312 after
that.
Can anyone guide me on how to proceed?
Is their any way to see the existing pc routines written in system?
thanks in advance
Cheers,
Mary George
__________________________________________________
Do You Yahoo!?
Tired of spam? Yahoo! Mail has the best spam protection around
http://mail.yahoo.com
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
