Installation of the command TSODS :
-----------------------------------

The installation of this new command includes three files, which include
first this installation description, then four assembler routines and
finally seven PL/I routines and the main program:

  Assembler:   PLIANF    macro
               PLILINK   routine
               PLISVC    routine
               PLITSSR   routine

  PL/I:        PLIDAER   routine
               PLIDAEX   routine
               PLIDA00   routine
               PLIPTIS   routine
               PLISCAN   routine
               PLISTAD   routine
               PLISTD    routine
               TSODS     main program

The later two files should be copied into two partitioned files
containing the mentioned members. Afterwards assemble the three ASM
members and compile the seven PL/I routines and the TSODS main program
using the PL/I optimizing compiler. Inside the ASM routine PLITSSR a
macro named CVT is used, I found it in our site in the systems library
called 'SYS1.AMODGEN'. After the assembly- and compile-step, the
object modules should be in one object library. With the following job,
these modules are linked together to form an executable command:


//TSODS    JOB NOTIFY=xxxx,MSGCLASS=X,USER=xxxx                         00010000
//*                                                                     00020000
//* +-------------------------------------------------------+           00319100
//* | The resulting LOAD-Module should have a size of about |           00319100
//* | Hex(33B0) bytes.                                      |           00319100
//* +-------------------------------------------------------+           00319100
//*                                                                     00020000
//LKED     EXEC PGM=IEWL,                                               00320000
//         PARM='MAP,LIST,LET,AMODE=24,SIZE=(512K,16K)'                 00321001
//SYSPRINT DD SYSOUT=*                                                  00330000
//SYSLOUT  DD SYSOUT=*                                                  00331000
//SYSUT1   DD UNIT=DISK,SPACE=(CYL,(1,1))                               00340000
//SYSOBJ   DD DISP=SHR,DSN=xxxx            /*Your object module     */  00380001
//SYSLIB   DD DISP=SHR,DSN=SYS1.PLIBASE                                 00390001
//SYSLMOD  DD DISP=SHR,DSN=xxxx            /*Systems command library*/  00400000
//SYSLIN   DD *                                                         00410000
  INCLUDE  SYSOBJ(TSODS)                                                00420002
  ENTRY    PLICALLA                                                     04060000
  INCLUDE  SYSOBJ(PLIDAER,PLIDAEX,PLIDA00,PLIPTIS,PLISCAN,PLISTAD)      04100001
  INCLUDE  SYSOBJ(PLISTD,PLILINK,PLISVC,PLITSSR)                        04110001
  NAME     TSODS(R)                                                     04330000
/*                                                                      04340000



By inserting the command to the systems command library, TSODS is now
an official command. Therefore you need too the corresonding 'help'
member for the systems help library:

)F Function -
     The  TSODS  command  executes another TSO command and directs ist
     output, which would normally be listed at the  terminal,  to  the
     file "TSODS".

)X Syntax -
     TSODS  'TSO command'

  Required -  'TSO command'

  Notes:   -  Prior  to  invoking  the TSODS command, the file "TSODS"
              must be allocated to a dataset.
           -  You should be careful when using the TSODS  command,  as
              it  does not properly support each TSO command available
              at our system.

)O Operands -

)) 'TSO command'
     -   the TSO command to be executed



After all, I wish you good luck with this new command:


Fritz Buetikofer
Abt. Individuelle Informatik
des Amtes fuer Informatik des Kt. Bern
Laengassstr. 51
CH-3012 Bern
SWITZERLAND