What I would like to do is drive the validity check exit the first operand
is a address and would like to verify via VSMLOC or if its 64 bit IARV64
REQUEST=LIST
But the string never hits the exit "LSTVALAD"
Trying to write a TESTAUTH subcommand to display data that regular L or LIST
command won't do
At first I am just running it as or testing it as a command processor
TESTAUTH 'LOADLIB(IKJ)' CP
thanks
LA R1,PARMS
USING PPL,R1
MVC PPLUPT,CPPLUPT
MVC PPLECT,CPPLECT
LA R4,MYECB GET ADDR OF ECB
ST R4,PPLECB
L R5,=A(LISTAPCL)
ST R5,PPLPCL
LA R6,MYANS ADDR OF ANSWER PLACE
ST R6,PPLANS
MVC PPLCBUF,CPPLCBUF
ST R13,PPLUWA
MVC PPLVEWA,=F'0'
* ST R9,ATCOMTAB SAVE TCOMTAB ADDRESS
LA R1,PPLUPT ADDR OF PARSE PARM LIST
L R15,CVTPTR(,0) POINT TO THE CVT
L R15,CVTPARS-CVT(,R15) GET IKJPARS EP
BALR R14,R15 CALL IKJPARS
-----Original Message-----
From: IBM Mainframe Discussion List <[email protected]> On Behalf Of
Seymour J Metz
Sent: Wednesday, April 26, 2023 4:35 AM
To: [email protected]
Subject: Re: IKJPARS PCL/Parameters
The IKJIDENT looks okay although it would be easier to read if you broke it
at a comma rather than at column 71.
Please show the code that sets up IKJPARSE, starting at entry..
--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3
________________________________________
From: IBM Mainframe Discussion List [[email protected]] on behalf of
Joseph Reichman [[email protected]]
Sent: Tuesday, April 25, 2023 7:52 PM
To: [email protected]
Subject: IKJPARS PCL/Parameters
Hi
I have a PCL defined as such
LISTAPCL IKJPARM
ADDR1 IKJIDENT 'ADDRESS..',RANGE,UPPERCASE,MAXLNTH=17,FIRST=ANY,OTHER=AX
NY,VALIDCK=LSTVALAD
What I would like it to be is a string which I treat as an address. I don't
use the ADDRESS key word because I want the ability to enter a 64 bit
address or up to 16 characters
I have number of keywords after this one them being ASID
When I enter the following string at the TSO terminal
12345688 ASID(14)
IKJPARS total ignores the string 12345688 and LSTVALDAD validity exit points
to the ASID string
Don't understand I thought the 12345688 would match up with the first
string entered at the TSO terminal 12345688 but the LSTVALAD points to
ASID(14)
THANKS
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions, send email
to [email protected] with the message: INFO IBM-MAIN
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions, send email
to [email protected] with the message: INFO IBM-MAIN
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
