********************************* Top of Data **********************************
- - - - - - - - - - - - - - - - - - 554 Line(s) not Displayed
LA R0,CLASSJK Get Class key value
LA R1,STRJKEY Get address of 1st JOB key
$CALL XINTKEY,ERRET=SET_DEFAULT_CLASS Check for CLASS key
- - - - - - - - - - - - - - - - - - 256 Line(s) not Displayed
LA R0,TIMEJK Get Time key value
LA R1,STRJKEY Get address of 1st JOB key
$CALL XINTKEY,ERRET=JOB_TIME_OK Check for TIMES key
- - - - - - - - - - - - - - - - - - 179 Line(s) not Displayed
L R3,X6TEXTAD Start at beginning of TEXT
LA R0,TIMEEEK Get Time key value
LA R1,STREKEY Get address of Exec key
$CALL XINTKEY,ERRET=STEP_TIME_OK Check for TIME key
- - - - - - - - - - - - - - - - - - 208 Line(s) not Displayed
LA R0,DSNAMEK Get DSN key value
LA R1,STRDKEY Get address of 1st DD key
$CALL XINTKEY,ERRET=RETURN Check for DSN key
- - - - - - - - - - - - - - - - - - 23 Line(s) not Displayed
CLI 0(R1),ENDK At end of internal text?
BE END_OF_KEY Yes, then 1st DSN is the only DSN
$CALL XINTKEY,ERRET=DSN_KEY_FOUND Look for 2nd DSN
- - - - - - - - - - - - - - - - - - 225 Line(s) not Displayed
******************************** Bottom of Data ********************************
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
