Many thanks to Robert Rosenberg for his suggestion on preserving R1. It
didn't even dawn on me that the $$WTO was wiping that out. My assembler
skills are a bit rusty these days. I decided to go with using R5-R7, and
stayed away from R1 altogether. Here's the code that finally worked:
XEXEC LA R5,STREKEY LOAD START OF TRUE TEXT
SLR R7,R7 GET LENGTH OF
IC R7,2(,R5) EXEC TEXT
LA R6,3(,R5) POINT TO START OF STEPNAME ON EXEC
LA R6,0(R7,R6) POINT PAST STEPNAME TO NEXT KEYWORD
CLI 0(R6),PGMEK SEE IF PGM= KEY
BNE RETURN NO, BYE
CLC 3(4,R6),=X'C9D6D3D8' PGM=IOLQ?
BNE RETURN NO, BYE
MVC JCTJCLAS,=CL1'O' SET CLASS TO 'O'
B RETURN LEAVE THE EXIT.
And again, appreciate your help, Robert. Thanks.
Adam
---------------------------------------
Adam Floro
Southern Illinois University Carbondale
Information Technology, Wham B15
Carbondale, IL 62901 Mailcode: 4622
[EMAIL PROTECTED] 618-453-6238
----------------------------------------------------------------------
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
