Once upon a time you could do this by running the RDT table, which was chained off the HCCT. I used to do it in Rexx to validate ISPF panel inputs. But it disappeared into private memory at some stage.
Robin -----Original Message----- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of SUBSCRIBE IBM-MAIN Harold Gray Sent: 04 December 2015 04:59 To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: IEFSSREQ SSOBUSER Validate A JES2 Destid A quick update. My test program is working (I get the same results as my subsystem R15=0 and SSOBRETN=0) for any printer name I give it. I even changed the parmlist to create a version 0 SSUS and received the same results: SSOB @ C21C SSUS extension @ C238 SSIB @ C258 R1 pointer at invocation of IEFSSREQ @ C27C Version 1 parmlists: 0000C21C E2E2D6C2 001C000B 0000C258 00000000 *SSOB......B.....* 0000C22C 0000C238 00000000 40404040 00200001 *..B..... ....* 0000C23C 00000000 C1D5E8C4 C5E2E340 00000000 *....ANYDEST ....* 0000C24C 00000000 00000000 00000000 E2E2C9C2 *............SSIB* 0000C25C 00240000 D1C5E2F2 40404040 40404040 *....JES2 * 0000C26C 40404040 40404040 00000000 00000000 * ........* 0000C27C 8000C21C *..B. * Version 0 parmlists: 0000C21C E2E2D6C2 001C000B 0000C258 00000000 *SSOB......B.....* 0000C22C 0000C238 00000000 40404040 00100000 *..B..... ....* 0000C23C 00000000 C1D5E8C4 C5E2E340 00000000 *....ANYDEST ....* 0000C24C 00000000 00000000 00000000 E2E2C9C2 *............SSIB* 0000C25C 00240000 D1C5E2F2 40404040 40404040 *....JES2 * 0000C26C 40404040 40404040 00000000 00000000 * ........* 0000C27C 8000C21C *..B. * I will look some more at HASCSIRQ in more detail, but I didn't see anything jump out at me. I've had several interruptions today so it may be a day or so before I can get back to spending some quality time with the code. I even added a printer to our JES2 ($add prt1,class=t) to see if having a dest would change the results and I tried with various lengths of destination names but no difference. Harold ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
