Adam Floro wrote:
and stayed away from R1 altogether. Here's the code that finally worked:
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.
I'm wondering about a few things, since this does not do what you said
you wanted. The code will change a job with any program name beginning
with IOLQ (e.g., IOLQTEST, IOLQFAKE). If this is your intent, it would
be easier to maintain as
CLC =C'IOLQ',3(R6)
If not, why not add a check for the field length (should be the
preceding byte):
CLC =X'04C9D6D3D8',2(R6)
While the MVC for the JCTJCLAS works, it is inefficient. Presumably IBM
will not redefine this field longer than one byte, so you could use:
MVI JCTJCLAS,C'O'
You never stated the particulars about the job structure. Is there any
possibility that the IOLQ step might be preceded by another (e.g.,
IEFBR14 or IDCAMS) to handle data set deletion or allocation? In this
case you'd need to check all EXEC steps. Conversely, if the job class
change confers an advantage on the characteristics, in this case a savvy
user might sneak in a dummy step (e.g. // EXEC IOLQ,COND=(EQ,4091) or
some such).
Gerhard Postpischil
Bradford, VT
----------------------------------------------------------------------
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
