IBM Mainframe Forum

by **BillyBoyo** » Sat May 10, 2014 6:22 pm

What output do you get from Kolusu's last? It should be a VB, no blank lines, no line-numbers, no headers, otherwise all data from the report.

by **BillyBoyo** » Sat May 10, 2014 6:30 pm

Select all

* Does a COPY, allows for short records less than the comparison fields of
* INCLUDE/OMIT

OPTION COPY,VLSCMP

* Excludes: record-length (variable-length records) less than 16; 8 for a length of 7 equal to
* ISRSUPC; 7 for a length of 6 equal to LINE-Ä; 7 for a length of 10 equal to blanks.

OMIT COND=(1,02,BI,LT,16,OR,
8,07,CH,EQ,C'ISRSUPC',OR,
7,06,CH,EQ,C'LINE-Ä',OR,
7,10,CH,EQ,C' ')

* Makes a new record, including the RDW (a must for variable output) and data from position 16
* to the end of the record.

INREC BUILD=(1,4,16)

If that does not work, how does it not work. Sysout, first part of output, please.

by **Steve Coalbran** » Sat May 10, 2014 6:31 pm

OK, last ditch attempt combining some artial solutions...

Select all

//SYSIN DD *
OPTION COPY,VLSCMP
OMIT COND=(1,02,BI,LT,16,OR,
8,07,CH,EQ,C'ISRSUPC',OR,
7,06,CH,EQ,C'LINE-Ä',OR,
16,10,CH,EQ,X'40404040404040404040')
INREC IFTHEN=(WHEN=(1,2,BI,GE,15),BUILD=(1,4,16))

worked!
At least it got rid of the blank lines!
Now I just need to scrap the rest of the file from the first summary rec...

Select all

037755 502874 05/09 07.59.49 EQQE016I PDGSX.XTCPNON.SRSTAT.PXSNIJ24.G7900V0
037756
037757 1 ISRSUPC - MVS/PDF FILE/LINE/WORD/BYTE/SFOR COMPARE UTILITY- ISPF <<<<<<<<<<
037758 SEARCH-FOR SUMMARY SECTION SRCH DSN: SYS4.EQQ.OPCA.MLOG
037759
037760 LINES-FOUND LINES-PROC DATASET-W/LNS DATASET-WO/LNS COMPARE-COLS L
037761 35694 562598 1 0 1:121
037762
037763 PROCESS OPTIONS USED: ANYC MIXED
037764
037765 THE FOLLOWING PROCESS STATEMENTS (USING COLUMNS 1:72) WERE PROCESSED:
037766 SRCHFOR '05/09'
037767 ISRS024W EXTRA DATA DETECTED AFTER NORMAL STATEMENT END. STATEMENT ACC
037768
037769 ISRS004I LISTING LINES MAY BE TRUNCATED DUE TO LIMITING OUTPUT LINE WID
037770
****** **************************** Bottom of Data ****************************

Any suggestions!? :roll:

by **BillyBoyo** » Sat May 10, 2014 7:02 pm

Select all

* Does a COPY, allows for short records less than the comparison fields of
* INCLUDE/OMIT

OPTION COPY,VLSCMP

* Excludes: record-length (variable-length records) less than 16; 8 for a length of 7 equal to
* ISRSUPC; 7 for a length of 6 equal to LINE-Ä; 7 for a length of 10 equal to blanks.

OMIT COND=(1,02,BI,LT,16,OR,
8,07,CH,EQ,C'ISRSUPC',OR,
7,06,CH,EQ,C'LINE-Ä',OR,
7,10,CH,EQ,C' ')

* Makes a new record, including the RDW (a must for variable output) and data from position 16
* to the end of the record.

INREC IFTHEN=(WHEN=INIT,BUILD=(1,4,16)),
* Looking at the new record, created just now, is 3,11 our end-of-required-data?
* If yes, PUSH the 'S' onto the first position of all records in the group (all remaining
* records.
IFTHEN=(WHEN=GROUP,BEGIN=(3,11,CH,EQ,C'SEARCH-FOR'),
PUSH=(5:3,1))

* Use OUTFIL's OMIT to drop the records we've identified as in the group starting with the first
* record we don't want.

OUTFIL OMIT=(5,1,CH,EQ,C'S')

Since the first data position can never be 'S', and since we don't want the data that we don't want, this is as safe extending a variable-length record, but less to code (not much).

by **Steve Coalbran** » Sat May 10, 2014 7:31 pm

OK, I am pronbably suppoed to spot the deliberate mistake but I didn't, just reformatted the long comments and executed it...

Select all

ICE250I 0 VISIT http://www.ibm.com/storage/dfsort FOR DFSORT PAPERS, EXAMPLES AND MORE
ICE000I 1 - CONTROL STATEMENTS FOR 5694-A01, Z/OS DFSORT V1R12 - 15:56 ON SAT MAY 10, 2014 -
* Does a COPY, allows for short records less than the comparison fields
* of INCLUDE/OMIT
OPTION COPY,VLSCMP
* Excludes: record-length (variable-length records) less than 16; 8 for
* a length of 7 equal to ISRSUPC; 7 for a length of 6 equal to LINE-Ä;
* 7 for a length of 10 equal to blanks.
OMIT COND=(1,02,BI,LT,16,OR,
8,07,CH,EQ,C'ISRSUPC',OR,
7,06,CH,EQ,C'LINE-Ä',OR,
7,10,CH,EQ,C' ')
* Makes a new record, including the RDW (a must for variable output)
* and data from position 16 to the end of the record.
INREC IFTHEN=(WHEN=NONE),BUILD=(1,4,16),
Å
ICE107A 6 DUPLICATE, CONFLICTING, OR MISSING INREC OR OUTREC STATEMENT OPERANDS
* Looking at the new record, created just now, is 3,11 our end-of
* required-data? If yes, PUSH the 'S' onto the first position of all
* records in the group (all remaining records.
IFTHEN=(WHEN=GROUP,BEGIN=(3,11,CH,EQ,C'SEARCH-FOR'),
Å
ICE005A 0 BLANK NEEDED IN COLUMN 1 OR OPERATION NOT DEFINED CORRECTLY
PUSH=(5:3,1))
Å
ICE005A 0 BLANK NEEDED IN COLUMN 1 OR OPERATION NOT DEFINED CORRECTLY
* Use OUTFIL's OMIT to drop the records we've identified as in the
* group starting with the first record we don't want.
OUTFIL OMIT=(5,1,CH,EQ,C'S')
ICE751I 0 C5-K76982 C6-K90026 C7-K94453 C8-K94453 E7-K95469
ICE052I 3 END OF DFSORT

by **BillyBoyo** » Sat May 10, 2014 7:37 pm

Sorry, just dropping in and out, and not able to run. I put the closing bracket in the wrong place, and lost a space before OUTFIL. Corrected in original post.

by **Steve Coalbran** » Sat May 10, 2014 8:08 pm

I did not think one could post after a response - perhaps just superhumans such as yourself?

Anyhow, I recut the code and removed any comments and ran it - similar but different... :oops:

Select all

SDSF OUTPUT DISPLAY K248610K JOB64553 DSID 105 LINE 0 COLUMNS 02- 81
COMMAND INPUT ===> SCROLL ===> CSR
********************************* TOP OF DATA **********************************
ICE805I 1 JOBNAME: K248610K , STEPNAME: SORT
ICE802I 0 BLOCKSET TECHNIQUE IN CONTROL
ICE143I 0 BLOCKSET COPY TECHNIQUE SELECTED
ICE250I 0 VISIT http://www.ibm.com/storage/dfsort FOR DFSORT PAPERS, EXAMPLES AN
ICE000I 1 - CONTROL STATEMENTS FOR 5694-A01, Z/OS DFSORT V1R12 - 16:32 ON SAT MA
OPTION COPY,VLSCMP
OMIT COND=(1,02,BI,LT,16,OR,
8,07,CH,EQ,C'ISRSUPC',OR,
7,06,CH,EQ,C'LINE-Ä',OR,
7,10,CH,EQ,C' ')
INREC IFTHEN=(WHEN=NONE,BUILD=(1,4,16)),
IFTHEN=(WHEN=GROUP,BEGIN=(3,11,CH,EQ,C'SEARCH
Å
ICE107A F DUPLICATE, CONFLICTING, OR MISSING INREC OR OUTREC STATEMENT OPERANDS
PUSH=(5:3,1))
Å
ICE005A 0 BLANK NEEDED IN COLUMN 1 OR OPERATION NOT DEFINED CORRECTLY
OUTFIL OMIT=(5,1,CH,EQ,C'S')
ICE751I 0 C5-K76982 C6-K90026 C7-K94453 C8-K94453 E7-K95469
ICE052I 3 END OF DFSORT
******************************** BOTTOM OF DATA ********************************

by **BillyBoyo** » Sat May 10, 2014 8:24 pm

Sorry. Big typo. I wrote IFTHEN=(WHEN=INIT but spelled IFTHEN=(WHEN=NONE.

by **BillyBoyo** » Sat May 10, 2014 8:34 pm

I refuse to admit to how long it took me to spot that, as I "knew" what it said. I think I'll clean up this topic severely once you have it working :-)

by **Steve Coalbran** » Mon May 12, 2014 11:30 am

(I thought I posted this yesterday? P'raps forgot to hit the Submit?)

Hi Billy
Almost, just some of the Summary stuff remaining after this 'INIT' correction ...

Select all

ICE000I 1 - CONTROL STATEMENTS FOR 5694-A01, Z/OS DFSORT V1R12 - 11:49 ON SUN MA
OPTION COPY,VLSCMP
OMIT COND=(1,02,BI,LT,16,OR,
8,07,CH,EQ,C'ISRSUPC',OR,
7,06,CH,EQ,C'LINE-Ä',OR,
7,10,CH,EQ,C' ')
INREC IFTHEN=(WHEN=INIT,BUILD=(1,4,16)),
IFTHEN=(WHEN=GROUP,BEGIN=(3,11,CH,EQ,C'SEARCH-FOR'),
PUSH=(5:3,1))
OUTFIL OMIT=(5,1,CH,EQ,C'S')
ICE193I 0 ICEAM1 INVOCATION ENVIRONMENT IN EFFECT - ICEAM1 ENVIRONMENT SELECTED

giving...

Select all

SDSF OUTPUT DISPLAY K248610K JOB85223 DSID 106 LINE 35,692 COLUMNS 02- 81
COMMAND INPUT ===> SCROLL ===> CSR
05/09 07.59.33 EQQE016I BJ80P.STARTA.PXSNIJ25
05/09 07.59.49 EQQE016I ETT HAS SUCCESSFULLY ADDED PXSNI24O FOR TRIGGERING EVENT
05/09 07.59.49 EQQE016I PDGSX.XTCPNON.SRSTAT.PXSNIJ24.G7900V00
H-FOR SUMMARY SECTION SRCH DSN: SYS4.EQQ.OPCA.MLOG.MVS3
D LINES-PROC DATASET-W/LNS DATASET-WO/LNS COMPARE-COLS LONGEST-LINE
562598 1 0 1:121 121
TIONS USED: ANYC MIXED
ING PROCESS STATEMENTS (USING COLUMNS 1:72) WERE PROCESSED:
'05/09' 00
XTRA DATA DETECTED AFTER NORMAL STATEMENT END. STATEMENT ACCEPTED WITH WARNING
ISTING LINES MAY BE TRUNCATED DUE TO LIMITING OUTPUT LINE WIDTH.
******************************** BOTTOM OF DATA ********************************

Any typos on my part?

IBM Mainframe Forum

SORT VB records from SUPERC to remove headers & drop line#s

Re: SORT VB records from SUPERC to remove headers & drop lin

Re: SORT VB records from SUPERC to remove headers & drop lin

Re: SORT VB records from SUPERC to remove headers & drop lin

Re: SORT VB records from SUPERC to remove headers & drop lin

Re: SORT VB records from SUPERC to remove headers & drop lin

Re: SORT VB records from SUPERC to remove headers & drop lin

Re: SORT VB records from SUPERC to remove headers & drop lin

Re: SORT VB records from SUPERC to remove headers & drop lin

Re: SORT VB records from SUPERC to remove headers & drop lin

Re: SORT VB records from SUPERC to remove headers & drop lin