Hi
I have this file in which each record has a tape dataset name, the creation
date, the last ref date, size and management class.
I need to summarize the size by high level qualifier and to create a file
with all the record that have one specific management class, and do the
same for the records that have a different management class.
What is troubling me is that I have at least one HLQ that is present on
both files with the records separated by the management class, but that
HLQ is only present on the summarized by HLQ file that does not have that
specific management class. And the INCLUDE that I am using is the same for
both cases
INCLUDE=(INP-K#CHAR,EQ,C'K',AND,
INP-MGMTCL,EQ,C'&MGMT'),
INCLUDE=(INP-K#CHAR,EQ,C'K',AND,
INP-MGMTCL,NE,C'&MGMT'),
So, what am I missing?
This is the JCL that I am using:
//*
//EXP#VARS EXPORT SYMLIST=MGMT
//*
//SET#IHLQ SET IHLQ=INHLQ
//SET#OHLQ SET OHLQ=OUTHLQ
//SET#MGMT SET MGMT=MCVT2DR
//*
//APAGA001 EXEC PGM=IEFBR14
//DL001 DD DSN=&OHLQ..RMM.TAPE.SPACE.BRS.BY.HLQ.TXT,
// DISP=(MOD,DELETE),SPACE=(TRK,(1))
//DL002 DD DSN=&OHLQ..RMM.TAPE.SPACE.LX.BY.HLQ.TXT,
// DISP=(MOD,DELETE),SPACE=(TRK,(1))
//DL003 DD DSN=&OHLQ..RMM.TAPE.SPACE.BRS.TXT,
// DISP=(MOD,DELETE),SPACE=(TRK,(1))
//DL004 DD DSN=&OHLQ..RMM.TAPE.SPACE.LX.TXT,
// DISP=(MOD,DELETE),SPACE=(TRK,(1))
//*
//* +-------------------------------------------------------------+
//* | |
//* | SUMMARIZE THE BRS USED TAPE SPACE BY HIGH LEVEL QUALIFIER |
//* | |
//* +-------------------------------------------------------------+
//SORT001 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SYMNOUT DD SYSOUT=*
//SORTIN DD DISP=SHR,DSN=&IHLQ..RMM.TAPE.MASTER.LIST
//HLQ#BRS DD DSN=&OHLQ..RMM.TAPE.SPACE.BRS.BY.HLQ.TXT,
// DISP=(NEW,CATLG),SPACE=(TRK,(1,1),RLSE),
// RECFM=FB,LRECL=30
//SYMNAMES DD *
INP-DSNAME,02,44,CH
INP-CRDATE,47,10,CH
INP-LRDATE,58,10,CH
INP-XPDATE,69,10,CH
INP-FLSIZE,80,10,UFF
INP-K#CHAR,90,01,CH
INP-MGMTCL,92,30,CH
SKIP,1
BRS-HLQ,*,08,CH
SKIP,1
BRS-BYT,*,16,PD
//SYSIN DD *,SYMBOLS=EXECSYS
INREC PARSE=(%01=(ABSPOS=2,ENDBEFR=C'.',FIXLEN=8)),
OVERLAY=(BRS-HLQ:%01,
BRS-BYT:INP-FLSIZE,TO=PD,LENGTH=16)
SORT FIELDS=(BRS-HLQ,A)
SUM FIELDS=(BRS-BYT)
OUTFIL FNAMES=HLQ#BRS,
INCLUDE=(INP-K#CHAR,EQ,C'K',AND,
INP-MGMTCL,EQ,C'&MGMT'),
REMOVECC,
HEADER1=(01:' HLQ BRS TOTAL KB',/,
01:' --------- -------------------'),
BUILD=(X,
BRS-HLQ,
X,
BRS-BYT,MUL,+4,LENGTH=20,
EDIT=(I.III.III.III.III.IIT))
/*
//*
//* +---------------------------------------------------------------+
//* | |
//* | SUMMARIZE THE NOT BRS USED TAPE SPACE BY HIGH LEVEL QUALIFIER |
//* | |
//* +---------------------------------------------------------------+
//SORT002 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SYMNOUT DD SYSOUT=*
//SORTIN DD DISP=SHR,DSN=&IHLQ..RMM.TAPE.MASTER.LIST
//HLQ#LX DD DSN=&OHLQ..RMM.TAPE.SPACE.LX.BY.HLQ.TXT,
// DISP=(NEW,CATLG),SPACE=(TRK,(1,1),RLSE),
// RECFM=FB,LRECL=30
//SYMNAMES DD *
INP-DSNAME,02,44,CH
INP-CRDATE,47,10,CH
INP-LRDATE,58,10,CH
INP-XPDATE,69,10,CH
INP-FLSIZE,80,10,UFF
INP-K#CHAR,90,01,CH
INP-MGMTCL,92,30,CH
SKIP,1
LX-HLQ,*,08,CH
SKIP,1
LX-BYT,*,16,PD
//SYSIN DD *,SYMBOLS=EXECSYS
INREC PARSE=(%01=(ABSPOS=2,ENDBEFR=C'.',FIXLEN=8)),
OVERLAY=(LX-HLQ:%01,
LX-BYT:INP-FLSIZE,TO=PD,LENGTH=16)
SORT FIELDS=(LX-HLQ,A)
SUM FIELDS=(LX-BYT)
OUTFIL FNAMES=HLQ#LX,
INCLUDE=(INP-K#CHAR,EQ,C'K',AND,
INP-MGMTCL,NE,C'&MGMT'),
REMOVECC,
HEADER1=(01:' HLQ NON BRS TOTAL KB',/,
01:' --------- -------------------'),
BUILD=(X,
LX-HLQ,
X,
LX-BYT,MUL,+2,LENGTH=20,
EDIT=(I.III.III.III.III.IIT))
/*
//*
//* +---------------------------------------------------------------+
//* | |
//* | LIST THE BRS TAPE FILES |
//* | LIST THE NOT BRS TAPE FILES |
//* | |
//* +---------------------------------------------------------------+
//SORT003 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SYMNOUT DD SYSOUT=*
//SORTIN DD DISP=SHR,DSN=&IHLQ..RMM.TAPE.MASTER.LIST
//BRS#RMM DD DSN=&OHLQ..RMM.TAPE.SPACE.BRS.TXT,
// DISP=(NEW,CATLG),SPACE=(CYL,(150,150),RLSE),
// RECFM=FB,LRECL=87
//LX#RMM DD DSN=&OHLQ..RMM.TAPE.SPACE.LX.TXT,
// DISP=(NEW,CATLG),SPACE=(CYL,(150,150),RLSE),
// RECFM=FB,LRECL=87
//SYMNAMES DD *
INP-DSNAME,02,44,CH
INP-CRDATE,47,10,CH
INP-LRDATE,58,10,CH
INP-XPDATE,69,10,CH
INP-FLSIZE,80,10,UFF
INP-K#CHAR,90,01,CH
INP-MGMTCL,92,30,CH
//SYSIN DD *,SYMBOLS=EXECSYS
OPTION VLSCMP,DYNALLOC=(,4)
SORT FIELDS=(INP-DSNAME,A,INP-CRDATE,A,INP-LRDATE,A)
OUTFIL FNAMES=BRS#RMM,
INCLUDE=(INP-K#CHAR,EQ,C'K',AND,
INP-MGMTCL,EQ,C'&MGMT'),
REMOVECC,
HEADER1=(01:' DATASET NAME',
47:'CR DATE',
57:'LST REF DT',
78:' BRS KB',/,
01:'-------------------------------------------',
46:'----------',
57:'----------',
74:'--------------'),
BUILD=(INP-DSNAME,
X,
INP-CRDATE,
X,
INP-LRDATE,
X,
INP-FLSIZE,MUL,+4,LENGTH=20,
EDIT=(I.III.III.III.III.IIT))
OUTFIL FNAMES=LX#RMM,
INCLUDE=(INP-K#CHAR,EQ,C'K',AND,
INP-MGMTCL,NE,C'&MGMT'),
REMOVECC,
HEADER1=(01:' DATASET NAME',
47:'CR DATE',
57:'LST REF DT',
78:'NON BRS KB',/,
01:'-------------------------------------------',
46:'----------',
57:'----------',
74:'--------------'),
BUILD=(INP-DSNAME,
X,
INP-CRDATE,
X,
INP-LRDATE,
X,
INP-FLSIZE,MUL,+2,LENGTH=20,
EDIT=(I.III.III.III.III.IIT))
/*
//*
Thank you for your help,
Regards,
Jack
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
