Cherryl,
One way comes to mind - you could specify the formal designator for the
LIST command, SUPRLIST, as a disk file, then append a summary line
following the extract showing the number of records extracted:
- file equate SUPRLIST to disk file with enough room for all
extracted records + summary line(s):
- execute SUPRTOOL task
- append summary line with value of the SUPRTOOLFULLCOUNT
variable (SUPRTOOLOUTCOUNT is restricted to max 16-bit value)
using the :ECHO command
- print the SUPRLIST file
Example:
:file SUPRLIST=mylist;rec=-132,,f,ascii;cctl;disk=1000;save
{SUPRTOOL task - listing goes to the file 'mylist' }
:file mylist,old;acc=append
:echo >> *mylist
:echo Total Output Records = !SUPRTOOLFULLCOUNT >> *mylist
:print mylist
I'm assuming you're using SUPRTOOL version 3.8 - I don't remember if
SUPRTOOLFULLCOUNT is supported on an earlier release.
Hopefully, others may have more elegant solutions - you'll probably hear from a
Robelle person, too. :-)
Lee Gunter [log in to unmask]
HMO Oregon
______________________________ Reply Separator _________________________________
Subject: Suprtool Question
Author: Cherryl Ball <[log in to unmask]> at ~INTERNET
Date: 10/2/96 2:21 PM
Does anyone know of a way to print a record count at the end of a Suprtool
list report?
Here is the report part of the JCL:
INPUT LST8.WORK { Generate Sorted Report Listing }
+2 LIST STANDARD, TITLE "TSW Sal-Op Stations W/Bad Horizon Stats" &
+3 HEADING " " "Loc " "Terr " "Modem No " " " &
+4 " STN Phone No " " " "Location"
+5 SORT TERRITORY
+6 SORT STN
+7 IF STNTYPE = "TSW "
+8 EXTRACT " ", STN, TERRITORY, PC-MODEM-NO, " "
+9 EXTRACT PHONE-NO, " ", CITY, STATE
10 X
What we would like to do is print the number of records extracted for the
report at the end of the report...We've tried LOTS of things...nothing has
worked so far. Any help is appreciated...THANKS.
Cherryl Ball,
Mobil Oil Corporation
Dallas, Texas
e-mail: [log in to unmask]
|
