This JCL will get 'q occ' into a file.  Also, the ptf level 10 mvs server
has a major fix for 'q occ' performance.

Bill Colwell
The Charles Stark Draper Laboratory
Cambridge Ma.

- - jcl - - -
//jobname  JOB  ...                                                     00010000
//TSO1   EXEC PGM=IKJEFT01,DYNAMNBR=100                                 00090000
//*                                                                     00100000
//*        EXEC TSO IN BATCH                                            00110000
//*                                                                     00120000
//SYSTSPRT DD  SYSOUT=*                                                 00130000
//SYSUADS  DD  DSN=SYS1.UADS,DISP=SHR                                   00170000
//SYSTSIN  DD *                                                         00180000
FREE F(DSCLANG DSCOPT)                                                  00190000
ALLOC F(DSCLANG)  DA('SYS1.CMD.MSG(ANSMENU)') SHR REU                   00200000
ALLOC F(DSCOPT)   DA('ADSM.ADMIN.PROD.TSOOPT') SHR REU                  00210000
DELETE 'ADSM.PORT1500.OCCLIST'                                          00220000
ALLOC F(NEWFILE) DA('ADSM.PORT1500.OCCLIST') NEW SP(1 1) CYL            00240000
FREE F(NEWFILE)                                                         00250000
CALL 'SYS1.LINKLIB(ANSADMT)' +                                          00280000
 '-ID=admin    -PASS=passwd  -Q -OUTF=''ADSM.PORT1500.OCCLIST'' +       00290000
 Q OCC'                                                                 00300000
/*                                                                      00360000




_________________________Reply Header_________________________
Author: ADSM-L AT vm.marist DOT edu
Subject: Capturing Output from Admin Schedule Command
11-20-1996 10:48 AM

I would like to have an administrative schedule defined, which
periodically does space accounting for nodes and appends to MVS dataset,
for billing purposes.  If I perform interactively, under Windows admin
client, V2 MVS server, the command would be:

Q OCC * * >> C:\ACCOUNT.TXT

Can this be set up as scheduled admin command or macro and output to MVS
dataset? I am assuming type=admin schedules are run as MVS batch admin
sessions on MVS server?

I have tried "Q OCC * * >> MVS.DSN" in a schedule (doesn't recognize " >>"
option)
I have tried adding OPT=-OUTF=MVS.DSN (doesn't recognize OPT=)

Can this be done... or do I need regular MVS scheduled Batch-TSO job to
execute as MVS TSO admin client?

Thanks..

Joe Standaert
joestand AT gte DOT net
813-978-4870
-------------------------
=========================================================================