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



IBM's flagship sort product DFSORT for sorting, merging, copying, data manipulation and reporting. Includes ICETOOL and ICEGENER

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

Postby BillyBoyo » Mon May 12, 2014 12:40 pm

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.
BillyBoyo
Global moderator
 
Posts: 3804
Joined: Tue Jan 25, 2011 12:02 am
Has thanked: 22 times
Been thanked: 264 times

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

 

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

Postby enrico-sorichetti » Mon May 12, 2014 1:12 pm

OK ...
I might be dumb, but after 40 posts I have not yet understood what is the problem :geek:
cheers
enrico
When I tell somebody to RTFM or STFW I usually have the page open in another tab/window of my browser,
so that I am sure that the information requested can be reached with a very small effort
enrico-sorichetti
Global moderator
 
Posts: 2643
Joined: Fri Apr 18, 2008 11:25 pm
Has thanked: 0 time
Been thanked: 130 times

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

Postby BillyBoyo » Mon May 12, 2014 2:05 pm

Once it it working, there won't be 40 posts :-)
BillyBoyo
Global moderator
 
Posts: 3804
Joined: Tue Jan 25, 2011 12:02 am
Has thanked: 22 times
Been thanked: 264 times

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

Postby Steve Coalbran » Tue May 13, 2014 10:12 am

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" ;)
Steve
User avatar
Steve Coalbran
 
Posts: 102
Joined: Wed Apr 06, 2011 11:49 am
Location: Stockholm, Sweden
Has thanked: 5 times
Been thanked: 1 time

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

Postby BillyBoyo » Tue May 13, 2014 11:36 am

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,
BillyBoyo
Global moderator
 
Posts: 3804
Joined: Tue Jan 25, 2011 12:02 am
Has thanked: 22 times
Been thanked: 264 times

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

Postby Steve Coalbran » Tue May 13, 2014 3:26 pm

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.
Steve
User avatar
Steve Coalbran
 
Posts: 102
Joined: Wed Apr 06, 2011 11:49 am
Location: Stockholm, Sweden
Has thanked: 5 times
Been thanked: 1 time

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

Postby BillyBoyo » Tue May 13, 2014 4:14 pm

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?
BillyBoyo
Global moderator
 
Posts: 3804
Joined: Tue Jan 25, 2011 12:02 am
Has thanked: 22 times
Been thanked: 264 times

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

Postby Steve Coalbran » Tue May 13, 2014 4:28 pm

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?
Steve
User avatar
Steve Coalbran
 
Posts: 102
Joined: Wed Apr 06, 2011 11:49 am
Location: Stockholm, Sweden
Has thanked: 5 times
Been thanked: 1 time

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

Postby BillyBoyo » Tue May 13, 2014 4:47 pm

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'),
BillyBoyo
Global moderator
 
Posts: 3804
Joined: Tue Jan 25, 2011 12:02 am
Has thanked: 22 times
Been thanked: 264 times

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

Postby Steve Coalbran » Tue May 13, 2014 5:03 pm

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:
Steve
User avatar
Steve Coalbran
 
Posts: 102
Joined: Wed Apr 06, 2011 11:49 am
Location: Stockholm, Sweden
Has thanked: 5 times
Been thanked: 1 time

PreviousNext

Return to DFSORT/ICETOOL/ICEGENER

 


  • Related topics
    Replies
    Views
    Last post