Jordi,
I ran you job updating all the columns to the right values:
//TOOLIN DD *
COPY FROM(RAWSMF) TO(SMF) USING(SMFI)
DISPLAY FROM(SMF) LIST(SMFREP) -
TITLE('SMF-17 : WHO DELETED DATASETS') DATE TIME PAGE -
HEADER('SMF') ON(6,1,BI) -
HEADER('SYS') ON(15,4,CH) - SMF17SID
HEADER('DATE') ON(11,4,DT1,E'9999/99/99') - SMF17DTE
HEADER('TIME') ON(7,4,TM1,E'99:99:99') - SMF17TME
HEADER('JOB') ON(19,8,CH) - SMF17JBN
HEADER('USER') ON(35,8,CH) - SMF17UID
HEADER('DATASET DELETED') ON(45,44,CH) - SMF17DSN
HEADER('-VOLS') ON(92,1,BI) - SMF17NVL
**HEADER('VOLSER') ON(2,6,CH) - SMF17FVL
BETWEEN(2) -
LINES(999) -
BLANK
/*
//SMFICNTL DD *
* INCLUDE COND=(6,1,BI,EQ,X'11',AND,44,4,CH,EQ,C'UCAT')
INCLUDE COND=(6,1,BI,EQ,X'11')
SORT FIELDS=(11,4,CH,A,7,4,CH,A)
/*
and everything was OK.
I commented the VOLSER because it's not at position 2.
Volser is an array from 1 to N after the VOLS count and depends on the
count value.
If you need to print all the volsers .... it's a bit more difficult.
If you need mainly the first one it's enough to write ON(95,6,CH)
Best regards.
Max
<https://www.avast.com/sig-email?utm_medium=email&utm_source=link&utm_campaign=sig-email&utm_content=webmail>
Mail
priva di virus. www.avast.com
<https://www.avast.com/sig-email?utm_medium=email&utm_source=link&utm_campaign=sig-email&utm_content=webmail>
<#DAB4FAD8-2DD7-40BB-A1B8-4E2AA1F9FDF2>
Il giorno ven 6 nov 2020 alle ore 10:10 Jordi Bornay <
[email protected]> ha scritto:
> thank's
>
> I will review the INCLUDE .... to see if it is what you say. (My
> background is not that ...)
>
>
> OPTION STOPAFT=1000
>
> INCLUDE COND=(6,1,BI,EQ,X'11',AND,45,4,CH,EQ,C'UCAT')
> 0021000
> SORT FIELDS=(11,4,CH,A,7,4,CH,A)
> 0022000
> PARMLIST :
>
> OPTION
> RESINV=0,ARESINV=0,MSGDDN=DFSMSG,SORTIN=RAWSMF,SORTOUT=SMF,SORTDD=SMFI,C
> PY
>
> WER813I INSTALLATION OPTIONS IN MFX LOAD LIBRARY WILL BE USED
>
> WER428I CALLER-PROVIDED IDENTIFIER IS "0001"
>
> WER276B SYSDIAG= 299308, 1313535, 1313535, 1791920
>
> WER164B 7,896K BYTES OF VIRTUAL STORAGE AVAILABLE, MAX REQUESTED,
>
> WER164B 0 BYTES RESERVE REQUESTED, 2,436K BYTES USED
>
> WER146B 44K BYTES OF EMERGENCY SPACE ALLOCATED
>
> WER108I RAWSMF : RECFM=VBS ; LRECL= 32767; BLKSIZE= 32760
>
> WER073I RAWSMF : DSNAME=SA$SF.ALL.M.GEN1.YEAR2011.DATA.G0001V00 (FIRST
> OF 4
> WER110I SMF : RECFM=VBS ; LRECL= 32767; BLKSIZE= 27998
>
> WER074I SMF : DSNAME=SYS20311.T100342.RA000.SA80855C.TEMPV.H01
>
> WER410B 5,844K BYTES OF VIRTUAL STORAGE AVAILABLE ABOVE THE 16-MEGABYTE
> LINE,
> WER410B 0 BYTES RESERVE REQUESTED, 2,300K BYTES USED
>
> WER055I INSERT 0, DELETE 1583850
>
> WER449I SYNCSORT GLOBAL DSM SUBSYSTEM ACTIVE
>
> WER416B RAWSMF : EXCP'S=3308,UNIT=3490,DEV=690,CHP=6474
>
> WER416B SMF :
> EXCP'S=0,UNIT=3390,DEV=5F3D,CHP=(24253435,1),VOL=GSS116
> WER416B TOTAL OF 3,308 EXCP'S ISSUED FOR COPYING
>
> WER054I RCD IN 1583850, OUT 0
>
> WER169I RELEASE 2.1 BATCH 0539 TPF LEVEL 8.0
>
> WER052I END SYNCSORT -
> SA80855C,STEP1,,DIAG=A400,7306,8808,0044,ECF6,58AA,0E48
> PARMLIST :
>
> OPTION RESINV=100K,ARESINV=0,MSGDDN=DFSMSG,SORTIN=SMF
>
> INREC
> FIELDS=(00001,004,00006,0001,00014,0004,00010,0004,DT1,00006,0004,TM1,000
> 8,0008,00034,0008,00045,0044,00091,0001,00002,0006)
>
> SORT FIELDS=COPY
>
> WER813I INSTALLATION OPTIONS IN MFX LOAD LIBRARY WILL BE USED
>
> WER428I CALLER-PROVIDED IDENTIFIER IS "0002"
>
> WER276B SYSDIAG= 299005, 1308890, 1308890, 1791920
>
> WER164B 7,996K BYTES OF VIRTUAL STORAGE AVAILABLE, MAX REQUESTED,
>
> WER164B 100K BYTES RESERVE REQUESTED, 2,231,488 BYTES USED
>
> WER146B 44K BYTES OF EMERGENCY SPACE ALLOCATED
>
> WER108I SMF : RECFM=VBS ; LRECL= 32767; BLKSIZE= 27998
>
> WER073I SMF : DSNAME=SYS20311.T100342.RA000.SA80855C.TEMPV.H01
>
> WER257I INREC RECORD LENGTH = 90
>
> WER410B 5,844K BYTES OF VIRTUAL STORAGE AVAILABLE ABOVE THE 16-MEGABYTE
> LINE,
> WER410B 0 BYTES RESERVE REQUESTED, 192K BYTES USED
>
> WER055I INSERT 0, DELETE 0
>
> WER449I SYNCSORT GLOBAL DSM SUBSYSTEM ACTIVE
>
> WER416B SMF :
> EXCP'S=1,UNIT=3390,DEV=5F3D,CHP=(24253435,1),VOL=GSS116
> WER416B TOTAL OF 1 EXCP'S ISSUED FOR COPYING
>
> WER054I RCD IN 0, OUT 0
>
> WER169I RELEASE 2.1 BATCH 0539 TPF LEVEL 8.0
>
> WER052I END SYNCSORT -
> SA80855C,STEP1,,DIAG=8800,5306,A008,006C,C0F6,7C8A,2248
>
> ----------------------------------------------------------------------
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to [email protected] with the message: INFO IBM-MAIN
>
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
