Greg,
Sorry for not being clear.
EDGHSKP creates RMM.HSKP.EXTRACT using XREPTEXT DD. This is the same
file that is input to ICETOOL.
As I use the XREPTEXT DD, I get the more detailed information I need.
All I have done is change the supplied REPORT14 and changed stuff around
to how I want it. I am using all the stuff that is 'supplied' by
DFSMSRMM report .
Crispin Hugo
Systems Programmer
Macro 4 Limited
Direct Line: +44 (0)1293 872121, Switchboard: +44 (0)1293 872000, Fax:
+44 (0)1293 872001
A Division of the UNICOM Group of Companies
www.macro4.com
Macro 4 Registered office :The Orangery, Turners Hill Road, Worth,
Crawley, West Sussex, RH10 4SS
Registered in England no. 927588
Please consider the environment and THINK before you print this email.
Email Disclaimer
-----Original Message-----
From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On
Behalf Of Greg Shirey
Sent: 20 April 2010 15:48
To: IBM-MAIN@bama.ua.edu
Subject: Re: RMM EDGRRPTE printing Problem
Crispin,
I'm confused by your JCL below. What is the source of the
RMM.HSKP.EXTRACT data set? Is it the REPTEXT DD output from running
program EDGHSKP? If so, I'm don't see how the ICETOOL step reads it and
produces a usable report. For one thing, at least in our extract file,
there are no data set names that begin in column 44.
I'm wondering if you haven't edited the output from one EDGRRPTE run and
are using that to input into the EDGRRPTE step you've included below.
Greg Shirey
Ben E. Keith Co.
-----Original Message-----
From: IBM Mainframe Discussion List On Behalf Of Crispin Hugo
Sent: Tuesday, April 20, 2010 1:49 AM
To: IBM-MAIN@bama.ua.edu
Subject: Re: RMM EDGRRPTE printing Problem
<snip>
JCL:
//EXTRPDT EXEC PGM=IKJEFT01,DYNAMNBR=99,REGION=4096K
//SYSTSPRT DD SYSOUT=X
//SYSPRINT DD SYSOUT=X
//SORTIN DD DISP=SHR,DSN=RMM.HSKP.EXTRACT
//SORTOUT DD DSN=&TEMP01,DISP=(,PASS,DELETE),
// SPACE=(CYL,(200,20),RLSE),UNIT=SYSALLDA,
// DCB=*.SORTIN
//SYSIN DD DSN=&TEMP02,DISP=(,PASS,DELETE),
// SPACE=(TRK,(1,1),RLSE),UNIT=SYSALLDA,
// DCB=(LRECL=80,BLKSIZE=3120,RECFM=FB)
//SYSOUT DD SYSOUT=X
//REPORT14 DD SYSOUT=Y
//SYSTSIN DD *
EX 'SYS1.SEDGEXE1(EDGRRPTE)' -
'054 MACRO 4 INTERNAL USE ONLY'
//*
//WRITE1 EXEC PGM=ICETOOL,REGION=0M
//SYSPRINT DD SYSOUT=X
//TOOLMSG DD SYSOUT=X
//DFSMSG DD SYSOUT=X
//INDD DD DSN=RMM.HSKP.EXTRACT,
// DISP=SHR
//OUTDD DD SYSOUT=Y
//TEMP DD UNIT=SYSALLDA,SPACE=(TRK,(5,25))
//TOOLIN DD *
SORT FROM(INDD) TO(TEMP) USING(INCL)
DISPLAY FROM(TEMP) LIST(OUTDD) -
TITLE('Movement Report by Volume Serial') -
PAGE DATE(4MD/) TIME -
HEADER('Job Name') ON(23,8,CH) -
HEADER('Volume') ON(32,6,CH) -
HEADER('Volseq#') ON(39,4,CH) -
HEADER('Dataset Name') ON(44,44,CH) -
HEADER('Create Date') ON(89,10,CH) -
BTITLE('To Destination / From Location') -
BREAK(5,18,CH) -
BTOTAL('') -
BLANK -
TOTAL('REMOVABLE MEDIA MANAGER')
//INCLCNTL DD DSN=&INCL,DISP=(OLD,PASS) /*...@02c*/
<snip>
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
-
------------------------------------------------------------------------
This email has been scanned for all known viruses by the MessageLabs
Email
Security Service and the Macro 4 internal virus protection system.
.
------------------------------------------------------------------------
- ------------------------------------------------------------------------
This email has been scanned for all known viruses by the MessageLabs Email
Security Service and the Macro 4 internal virus protection system.
. ------------------------------------------------------------------------
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
