Hello Phil,
That terminating '?' suffix has always been there. 20 years ago I used JES2
EXIT 6 to update the suffix to be the DD NAME.
Code fragment:-
*---------------------------------------------------------------------*
* *
* The DSN key was found. Now we modify the DSN *
* *
* The temporary dataset name built by JES2 for SYSIN/SYSOUT *
* is 44 chars long.....BLANK filled.. *
* *
*---------------------------------------------------------------------*
DSN_KEY_FOUND EQU *
LA R1,3(,R3) Point to start of DSN in text
LA R1,0(R7,R1) Point past DSN value to next keyword
LHI R2,44
SEARCH_FOR_QUESTION_MARK EQU *
BCTR R1,0 Decrement pointer
CLI 0(R1),C'?' Test for question mark
JE QUESTION_MARK_FOUND
JCT R2,SEARCH_FOR_QUESTION_MARK
J NO_QUESTION_MARK
QUESTION_MARK_FOUND EQU *
CLC 0(8,R1),=C'? ' Test for question mark + 7 blanks
JNE NOT_ENOUGH_BLANKS
SLR R5,R5 Clear R5
SLR R2,R2 Clear R6
LH R5,X6DDLEN Length of ddname
BCTR R5,0 Decrement length
EX R5,DDNMVC1 Copy ddname to end of dsname
J CHANGE_DSNAME_COMPLETE
NOT_ENOUGH_BLANKS EQU *
MVC X6MSG(MSG903L),MSG903 COPY MESSAGE TO BUFFER
$$WTO X6MSG ISSUE MESSAGE
J RETURN
*
NO_QUESTION_MARK EQU *
MVC X6MSG(MSG904L),MSG904 COPY MESSAGE TO BUFFER
MVC X6MSG+41(44),3(R3)
$$WTO X6MSG ISSUE MESSAGE
J RETURN
*
On Fri, 16 Jan 2026 13:20:44 -0500, Phil Smith III <[email protected]> wrote:
>Thanks, that was a good tip. Here's an oddity. I picked a job at random and
>did a ? next to it, which shows:
>DDNAME StepName
>JESMSGLG JES2
>JESJCL JES2
>JESYSMSG JES2
>SYSPRINT TSTDYNAL
>SYSPRINT TSTDYHDS
>
>But ISFDSNAME for the last two returns a ? for the last qualifier:
>MJD2.MJDASTDS.JOB00645.D0000103.?
>
>Why isn't that SYSPRINT at least? It's harmless, I'm just wondering!
>
>Also, I see no ISFSTEPNAME. Is the StepName value not available
>
Regards
Bruce Hewson
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
