Yes, it did at one point but I'm not sure when it stopped. I only have access to z/OS 1.13 and 2.1 and JES2 in both accepts any destination name.
CODE:
LA R1,#JESSSIB LOAD AND DECLARE
USING SSIB,R1 SSIB BASE
MVC SSIBSSNM,$JESSYS SETUP JESX SUBSYSTEM NAME
DROP R1
LA R1,#JESSSOB LOAD AND DECLARE
USING SSOB,R1 SSOB BASE
LA R14,#JESSSUS-#JESSSOB SETUP MVS/XA SSOB LENGTH
STH R14,SSOBLEN SAVE SSOB HEADER LENGTH
XC SSOBRETN,SSOBRETN ZERO RC FIELD
DROP R1
LA R1,#JESSSUS LOAD AND DECLARE
USING SSOBEXT,R1 SSOB EXTENSION BASE
MVC SSUSUSER,0(R2) SETUP DESTINATION NAME
DROP R1
LA R1,AJESSSOB -> SSOB PARMLIST
IEFSSREQ , ISSUE SUBSYTEM REQUEST
#JESSSOB DS 0F
DC CL4'SSOB' SSOBID
DC AL2(0) SSOBLEN
DC AL2(SSOBUSER) SSOBFUNC
DC A(#JESSSIB) SSOBSSIB
DC F'0' SSOBRETN
DC A(#JESSSUS) SSOBINDV
DC A(0) SSOBRETA ** MVS/XA ONLY **
DC CL4' ' SSOBRSV1 ** MVS/XA ONLY **
#JESSSUS DS 0F
DC AL2(SSUSIZE) SSUSLEN
***** DC H'0' SSUSRESV ---------------------------
original
DC H'1' SSUSFLG1(X'00') / SSUSVER(X'01') ---- new
code
DC F'0' SSUSRSV1
DC CL8' ' SSUSUSER
DC XL16'00' Rest of SSUS area ....
------------new code
*
#JESSSIB DS 0F
DC CL4'SSIB' SSIBID
DC AL2(SSIBSIZE) SSIBLEN
DC X'00' SSIBFLG1
DC X'00' SSIBRESV
DC CL4' ' SSIBSSNM
DC CL8' ' SSIBJBID
DC CL8' ' SSIBDEST
DC F'0' SSIBRSV1
DC F'0' SSIBSUSE
*
AJESSSOB DC X'80',AL3(#JESSSOB) IEFSSREQ PARMLIST
*
Thanks, Harold
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
