Dumb TSSO question
In the TSSO automated response table, how do I code a OSCMD type entry when I want to execute a TSSO proc? I tried "EXT='?STRTCICP', but that does not seem to work. The log shows: (TSSO AOF): ?STRTCICP ?STRTCICP # OK but the command in the STRTCICP TSSO proc are not executed. Using ?STRTCICP from the console works. -- Tony Thigpen -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
TSSO question
(Posting for a co-worker) We have installed TSSO (PRE Z1 .8 version) Our test: DIPLINF TABENTRY MSG=IEE254I,ACTION=OSCMD,MATCHLIM=17,ECHO=YES, X TEXT='D A,L' IEE254I is the message response from a D IPLINFO. When we issue D IPLINFO and the message fires... TSSO rapidly issue 17 "D A,L" commands... Anyone ever seen this before? -- Tony Thigpen -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
AW: Re: TSSO question - reading TSSOPARM (internals question)
>1) I have the CBT404 source. I understood that. 5) So, is it _required_ that TSSOPARM have and "END" command in it so that you don't get an I/O error reading past end of file? Not trying now, but I'm not an I/O error but a wild branch, since the access method will branch to whatever address it finds in DCBEODAD, doesn't it? >My plan is to remove the "hard coded" allocation of SYS1.PARMLIB with the appropriate use of IEFPRMLB to allocate & free the "system PARMLIB concatenation". I think this is a good plan. Go ahead. -- Peter Hunkeler -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: TSSO question - reading TSSOPARM (internals question)
Apparently I threw in too many curves. 1) I have the CBT404 source. 2) I am looking at the program TSSOINI2. 3) This program dynamically allocate SYS1.PARMLIB and reads member TSSOPARM using BPAM. 4) Nowhere in the program do I see an "End Of Data" address set. I.e. no EODAD= on the DCB or moved into the DCBEODA field. 5) So, is it _required_ that TSSOPARM have and "END" command in it so that you don't get an I/O error reading past end of file? That is, how does TSSOINI2 know to stop reading since there is no "end of data" address to branch to? My plan is to remove the "hard coded" allocation of SYS1.PARMLIB with the appropriate use of IEFPRMLB to allocate & free the "system PARMLIB concatenation". I may also use IEFPRMLB to read the TSSOPARM (or other member if specified on the START command) instead of using BPAM (that is, remove the FIND , READ, and CHECK logic). IEFPRMLB looks like a really fantastic way to read a short member of any FB/80 PDS or PDSE (I think) library. I may write a monograph on that. -- I have a theory that it's impossible to prove anything, but I can't prove it. Maranatha! <>< John McKown -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: TSSO question - reading TSSOPARM (internals question)
So I went through the 3 files that had TSSO listed in the description
File 404 had this entry in it
TITLE 'T S S O M A I N L I N E M O D U L E '0001
&WTORSETC 'YES' INCLUDE SUPPORT FOR WTOR REPLY 0002
TSSO CSECT 0003
*** 0004
* THIS IS THE MAINLINE ROUTINE OF TSSO. IT IS RESPONSIBLE FOR THE * 0005
* INITIALIZATION AND TERMINATION OF THE SUBSYSTEM ADDRESS SPACE. * 0006
* TSSO WILL LINK TO THE TSSOMAIN ROUTINE FOLLOWING INITIALIZATION.* 0007
* * 0008
* VERSION IDENTIFIER: TSSO 4.3* 0009
* DATE: 2/25/86 * 0010
* AUTHOR: MARC SCHARE * 0011
* * 0012
* * 0013
* CHANGE LOG: * 0014
* * 0015
* NOTE: LAST MESSAGE ID FOR TSSO MAINLINE MODULE IS 73. * 0016
* * 0017
*
I was thinking this was what John was looking for.
File 306 was TSSO 1.5
And within the code from file 404 were these statements
*** 0860
* TSSO ONLY DATA CONSTANTS. 0861
*** 0862
ALPRMLIB DCCL50'ALLOC FI(PARMLIB) DSN(''SYS1.PARMLIB'') SHR'0863
FRPRMLIB DCCL20'FREE FI(PARMLIB)' 0864
LINK1C LINK LSEARCH=YES,SF=L 0865
* 0866
LINK1CE EQU *0867
LOAD1C LOAD EPLOC=0,GLOBAL=(YES,P),LSEARCH=YES,ERRET=SSILOADB, X0868
SF=L 0869
LOAD1CE DS0H 0870
0871
* TSSO ONLY DSECT- NOT SHARED WITH OTHER MODULES. *0872
But I could be wrong.
Lizette
> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
> Behalf Of Peter Hunkeler
> Sent: Sunday, November 12, 2017 5:15 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: AW: Re: TSSO question - reading TSSOPARM (internals question)
>
>
> >Did you check the cbttape.org to see if the source is there?
>
> John's post started with "I am looking at the source code to TSSO 4.3."
>
>
> --
> Peter Hunkeler
>
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
AW: Re: TSSO question - reading TSSOPARM (internals question)
>Did you check the cbttape.org to see if the source is there? John's post started with "I am looking at the source code to TSSO 4.3." -- Peter Hunkeler -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: TSSO question - reading TSSOPARM (internals question)
Did you check the cbttape.org to see if the source is there? I found files 306 399 and 404 Maybe one of they have the source Lizette > -Original Message- > From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On > Behalf Of John McKown > Sent: Saturday, November 11, 2017 12:36 PM > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: TSSO question - reading TSSOPARM (internals question) > > I am looking at the source code to TSSO 4.3. In particular in program > TSSOINI2. This program does a TSO ALLOCATE of 'SYS1.PARMLIB' (hard coded) and > reads the configuration member, which defaults to TSSOPARM. One thing that I > do _NOT_ see is a EODAD address to process "end of file". It appears that the > TSSOPARM had better have an "END" statement as the last control card. If not, > it appears to me that you'd get an I/O error (read past end of file). > > Nowhere in the documentation that I can find is this requirement mentioned. > > Why am I looking? In order to remove the TSO ALLOCAT & FREE of > DSN=SYS1.PARMLIB with an IEFPRMLB REQUEST=ALLOCATE and REQUEST=FREE > respectively. I may also consider removing the BPAM I/O with a > REQUEST=READMEMBER. This will use the standard system PARMLIB concatenation > for the TSSOPARM initialization statements, so that there will be fewer WTF > moments for new users. > > -- > I have a theory that it's impossible to prove anything, but I can't prove it. > > Maranatha! <>< > John McKown > -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: TSSO question - reading TSSOPARM (internals question)
On Sat, 11 Nov 2017 13:35:36 -0600, John McKown wrote: >I am looking at the source code to TSSO 4.3. In particular in program >TSSOINI2. This program does a TSO ALLOCATE of 'SYS1.PARMLIB' (hard coded) >and reads the configuration member, which defaults to TSSOPARM. One thing >that I do _NOT_ see is a EODAD address to process "end of file". It appears >that the TSSOPARM had better have an "END" statement as the last control >card. If not, it appears to me that you'd get an I/O error (read past end >of file). > Does it use BSAM/BPAM on a presumed single-block member, or QSAM? >Why am I looking? In order to remove the TSO ALLOCAT & FREE of >DSN=SYS1.PARMLIB with an IEFPRMLB REQUEST=ALLOCATE and REQUEST=FREE >respectively. I may also consider removing the BPAM I/O with a >REQUEST=READMEMBER. This will use the standard system PARMLIB concatenation >for the TSSOPARM initialization statements, so that there will be fewer WTF >moments for new users. > A noble quest. That should even be RFE material. If TSO weren't (sort of) functionally stabilized. But is there any component that presumes that TSSOPARM, like UADS, can be updated in place? -- gil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
TSSO question - reading TSSOPARM (internals question)
I am looking at the source code to TSSO 4.3. In particular in program TSSOINI2. This program does a TSO ALLOCATE of 'SYS1.PARMLIB' (hard coded) and reads the configuration member, which defaults to TSSOPARM. One thing that I do _NOT_ see is a EODAD address to process "end of file". It appears that the TSSOPARM had better have an "END" statement as the last control card. If not, it appears to me that you'd get an I/O error (read past end of file). Nowhere in the documentation that I can find is this requirement mentioned. Why am I looking? In order to remove the TSO ALLOCAT & FREE of DSN=SYS1.PARMLIB with an IEFPRMLB REQUEST=ALLOCATE and REQUEST=FREE respectively. I may also consider removing the BPAM I/O with a REQUEST=READMEMBER. This will use the standard system PARMLIB concatenation for the TSSOPARM initialization statements, so that there will be fewer WTF moments for new users. -- I have a theory that it's impossible to prove anything, but I can't prove it. Maranatha! <>< John McKown -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
