Chasing the SSCT is a simple thing :
Assuming name of subsystem in field "SSID"
L R8,CVTPTR(,0) grab cvt
L R8,CVTJESCT-CVTMAP(,R8) get JESCT
L R8,JESSSCT-JESCT(,R8) get first SSCT
USING SSCT,R8
DO UNTIL=(ICM,R8,B'1111',SSCTSCTA,Z)
IF (CLC,SSCTSNAM,EQ,SSID)
SELECT CLI,SSCTSSID,EQ
WHEN (SSCTJES2)
BRAS R14,CODE_FOR_JES2
WHEN (SSCTJES3)
BRAS R14,CODE_FOR_JES3
OTHRWISE
BRAS R14,CODE_FOR_UNKNOWN
ENDSEL ,
DOEXIT ,
ENDIF ,
ENDDO ,
Rob Scott
Rocket Software
http://www.rs.com/portfolio/mxi/
----------------------------------------------------------------------
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
