Page 5 of 6

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

PostPosted: Mon May 12, 2014 12:40 pm
by BillyBoyo
Nope. I adjusted the position of the test for SEARCH-FOR, due to the dropping of line-numbers, but didn't think it through.

   IFTHEN=(WHEN=GROUP,BEGIN=(3,13,CH,EQ,C'H-FOR SUMMARY'),


So, I've changed the text and the length.

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

PostPosted: Mon May 12, 2014 1:12 pm
by enrico-sorichetti
OK ...
I might be dumb, but after 40 posts I have not yet understood what is the problem :geek:

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

PostPosted: Mon May 12, 2014 2:05 pm
by BillyBoyo
Once it it working, there won't be 40 posts :-)

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

PostPosted: Tue May 13, 2014 10:12 am
by Steve Coalbran
Billy, I see no visible difference in the control cards but cut and pasted that line...
 SDSF OUTPUT DISPLAY K248610K JOB52429  DSID   106 LINE 6       COLUMNS 02- 81 
 COMMAND INPUT ===>                                            SCROLL ===> CSR 
ICE000I 1 - CONTROL STATEMENTS FOR 5694-A01, Z/OS DFSORT V1R12 - 06:31 ON TUE 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,13,CH,EQ,C'H-FOR SUMMARY'),       
                          PUSH=(5:3,1))                                         
            OUTFIL OMIT=(5,1,CH,EQ,C'S')                                       
ICE193I 0 ICEAM1 INVOCATION ENVIRONMENT IN EFFECT - ICEAM1 ENVIRONMENT SELECTED

gives...
 SDSF OUTPUT DISPLAY K248610K JOB52429  DSID   107 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 ********************************

The last lines are still all there.
I guess that DFSORT has no IFTHEN= ...STOP construct as one can do in REXX, with "LEAVE" ;)

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

PostPosted: Tue May 13, 2014 11:36 am
by BillyBoyo
No, there is no direct STOP. A variable-length record contains an RDW, which is four bytes long. The data-portion of the record starts at byte five. Anyone who gave you 3,11 as a position and length, which starts in the middle of the RDW, should be taken out and put out of their misery,

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

PostPosted: Tue May 13, 2014 3:26 pm
by Steve Coalbran
Billy - it was you!
Re: SORT VB records from SUPERC to remove headers & drop lin
Postby BillyBoyo » Mon May 12, 2014 8:10 am
Nope. I adjusted the position of the test for SEARCH-FOR, due to the dropping of line-numbers, but didn't think it through.
CODE: SELECT ALL
IFTHEN=(WHEN=GROUP,BEGIN=(3,13,CH,EQ,C'H-FOR SUMMARY'),
So, I've changed the text and the length.

All I am doing is cutting and pasting, I don't pretend to understand it ....yet.

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

PostPosted: Tue May 13, 2014 4:14 pm
by BillyBoyo
I know it was me :-)

I attempted the putting-out-of-misery, and missed...

Did I get the length wrong as well? Sheesh.

And does it work now?

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

PostPosted: Tue May 13, 2014 4:28 pm
by Steve Coalbran
Give me a clue? Does what work now? What should be changed? :lol:
BTW: Don't you have an MVS system to test these suggested solutions on? ;)
I can run this on DEMOMVS in MOP or US if that's easier to share? :?: (sorry password f¤ck¤p on US DEMO - watch this space, MOP still working.)
Did you see my private message to you?

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

PostPosted: Tue May 13, 2014 4:47 pm
by BillyBoyo
Is this where you want to stop?

H-FOR SUMMARY SECTION


That is

5,13,CH,EQ,C'H-FOR SUMMARY '


So, paste this in place of the previous, or just change the 3 to a 5.
IFTHEN=(WHEN=GROUP,BEGIN=(5,13,CH,EQ,C'H-FOR SUMMARY'),

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

PostPosted: Tue May 13, 2014 5:03 pm
by Steve Coalbran
Nope... changed the 3 to a 5 as requested - same? ...
 SDSF OUTPUT DISPLAY K248610K JOB01333  DSID   107 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                 
 -FOR SUMMARY SECTION            SRCH DSN: SYS4.EQQ.OPCA.MLOG.MVS3             
   LINES-PROC  DATASET-W/LNS  DATASET-WO/LNS  COMPARE-COLS  LONGEST-LINE       
      562598            1              0           1:121         121           
 IONS USED: ANYC MIXED                                                         
 NG PROCESS STATEMENTS (USING COLUMNS 1:72) WERE PROCESSED:                     
  '05/09'                                                      00               
 TRA DATA DETECTED AFTER NORMAL STATEMENT END.  STATEMENT ACCEPTED WITH WARNING
 STING LINES MAY BE TRUNCATED DUE TO LIMITING OUTPUT LINE WIDTH.               
******************************** BOTTOM OF DATA ********************************


 SDSF OUTPUT DISPLAY K248610K JOB01333  DSID   106 LINE 6       COLUMNS 02- 81 
 COMMAND INPUT ===>                                            SCROLL ===> CSR 
ICE000I 1 - CONTROL STATEMENTS FOR 5694-A01, Z/OS DFSORT V1R12 - 13:27 ON TUE 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=(5,13,CH,EQ,C'H-FOR SUMMARY'),       
                          PUSH=(5:3,1))                                         
            OUTFIL OMIT=(5,1,CH,EQ,C'S')                                       

Oh dear. :roll: