IBM Mainframe Forum

by **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.

Select all

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

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

by **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:

by **BillyBoyo** » Mon May 12, 2014 2:05 pm

Once it it working, there won't be 40 posts :-)

by **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...

Select all

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...

Select all

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"

by **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,

by **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.

by **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?

by **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?

by **BillyBoyo** » Tue May 13, 2014 4:47 pm

Is this where you want to stop?

Select all

H-FOR SUMMARY SECTION

That is

Select all

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

So, paste this in place of the previous, or just change the 3 to a 5.

Select all

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

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

Nope... changed the 3 to a 5 as requested - same? ...

Select all

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 ********************************

Select all

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.