I'm rewriting an exit4 as exit54 and trying to replace $scan with $stmttab and
calls to rcardscn. The call to rcardscn is only finding the first keyword on a
card instead of finding them all. My processing routines for the 2nd and 3rd
values on the control card don't get called (based on breakpoint traps). Has
anyone else dealt with this successfully. I've been all over hascsrip for
examples and looking at the scan routine, but I don't see why I it wouldn't
find all my keywords.
I'll set breakpoints in the rcardscn code if I have to, but maybe someone has
been here before????
Input sample:
Input card: /*NORDCNTL SYS=N004,PRT=LOCAL,NODE=NORDINST finds sys
/*NORDCNTL PRT=LOCAL,SYS=N004,NODE=NORDINST finds prt
Code sample:
LARL R0,X4NSCAN SCAN TABLE ADDRESS
$CALL RCARDSCN, CALL CARD SCAN SERVICE X
PARM0=(R0), /*NORDCTL KEYLIST X
PARM1=JRW
LTR R15,R15 SCAN SUCCESSFUL?
X4NSCAN $STMTTAB TABLE=USER NORDCNTL SCAN TABLE
$STMTTAB KEYWORD='SYS',ROUTINE=E04SYS
$STMTTAB KEYWORD='PROC',ROUTINE=E04prt
$STMTTAB KEYWORD='NODE',ROUTINE=E04node
$STMTTAB KEYWORD=UNKNOWN
$STMTTAB TABLE=END
E04SYS CSECT - all the of processing routines, validate a value, put it into
the jct, essentially identical processing
... process
SR R1,R1
SR R15,R15
br r14
Thanks,
Mark
----------------------------------------------------------------------
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
