Page 4 of 6

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

PostPosted: Sat May 10, 2014 6:22 pm
by BillyBoyo
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.

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

PostPosted: Sat May 10, 2014 6:30 pm
by BillyBoyo
* 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.

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

PostPosted: Sat May 10, 2014 6:31 pm
by Steve Coalbran
OK, last ditch attempt combining some artial solutions...
//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...
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:

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

PostPosted: Sat May 10, 2014 7:02 pm
by BillyBoyo
* 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).

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

PostPosted: Sat May 10, 2014 7:31 pm
by Steve Coalbran
OK, I am pronbably suppoed to spot the deliberate mistake but I didn't, just reformatted the long comments and executed it...
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   

:|

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

PostPosted: Sat May 10, 2014 7:37 pm
by BillyBoyo
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.

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

PostPosted: Sat May 10, 2014 8:08 pm
by Steve Coalbran
I did not think one could post after a response - perhaps just superhumans such as yourself? :D
Anyhow, I recut the code and removed any comments and ran it - similar but different... :oops:
 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 ********************************

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

PostPosted: Sat May 10, 2014 8:24 pm
by BillyBoyo
Sorry. Big typo. I wrote IFTHEN=(WHEN=INIT but spelled IFTHEN=(WHEN=NONE.

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

PostPosted: Sat May 10, 2014 8:34 pm
by BillyBoyo
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 :-)

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

PostPosted: Mon May 12, 2014 11:30 am
by Steve Coalbran
(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 ...
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...
 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? :?