IBM Mainframe Forum

by **Squashman** » Wed Aug 13, 2014 10:19 pm

----+----1----+----2----+----3----+----4----+----5----+----6----+----7----+----8
//SYSIN DD *
SORT FIELDS=(091,15,CH,A,171,20,CH,A)
SUM FIELDS=NONE
OUTREC IFTHEN=(WHEN=(171,11,CH,EQ,C'WEST REGION'),OVERLAY=(740:C'1')),
IFTHEN=(WHEN=NONE,OVERLAY=(740:C'2'))
//*
//*********************************************
//* END OF SORT1
//*********************************************

by **BillyBoyo** » Wed Aug 13, 2014 10:26 pm

Yes, your comma is in column 72. A non-blank is column 72 is a continuation, so your comma was ignored.

Select all

SORT FIELDS=(091,15,CH,A,171,20,CH,A)
SUM FIELDS=NONE
OUTREC IFTHEN=(WHEN=(171,11,CH,EQ,C'WEST REGION'),
OVERLAY=(740:C'1')),
IFTHEN=(WHEN=NONE,
OVERLAY=(740:C'2'))

I always break the code up, makes it easier (for me) to read.

by **Squashman** » Wed Aug 13, 2014 10:36 pm

I am usually pretty anal about code indentation. Just wasn't aware of the continuation column. Still new to SyncSort.

I prefer to keep things that are bracketed together on the same line if I can.

Select all

----+----1----+----2----+----3----+----4----+----5----+----6----+----7----+----8
//SYSIN DD *
SORT FIELDS=(091,15,CH,A,171,20,CH,A)
SUM FIELDS=NONE
OUTREC IFTHEN=(WHEN=(171,11,CH,EQ,C'WEST REGION'),OVERLAY=(740:C'1')),
IFTHEN=(WHEN=NONE,OVERLAY=(740:C'2'))
//
//*********************************************
//* END OF SORT1
//*********************************************

IBM Mainframe Forum

Outrec When match with spaces.

Re: Outrec When match with spaces.

Re: Outrec When match with spaces.

Re: Outrec When match with spaces.