Apend a character in a empty line in the input file

IBM Mainframe Forums -> JCL & VSAM

Quick References

View previous topic :: View next topic

Author

Message

Niki

Active User

Joined: 20 Sep 2008
Posts: 106
Location: Bangalore

Hi all,

If my input is like below, lrecl = 80

Code:

----+----1----+----2----+----3----+----4----+----
Header;sdsad;dasda;sdaasd
001;1254;lklk;12222
121554;15454;dfgdg

I am Using a sort like this,

Code:

SORT FIELDS=COPY
OUTREC IFTHEN=(WHEN=(1,6,CH,EQ,C'Header'),
BUILD=(1:C'Z;',3:1,80)),
IFTHEN=(WHEN=NONE,
BUILD=(1:C'X;',3:1,80))

So my out put comes as

Code:

----+----1----+----2----+----3----+----4----+----
Z;Header;sdsad;dasda;sdaasd
X;001;1254;lklk;12222
X;121554;15454;dfgdg

But when there is a empty line in the input file i need to apend with character "B;" .

Code:

----+----1----+----2----+----3----+----4----+----
Header;sdsad;dasda;sdaasd
001;1254;lklk;12222

121554;15454;dfgdg

I tried with the following code .

Code:

SORT FIELDS=COPY
OUTREC IFTHEN=(WHEN=(1,6,CH,EQ,C'Header'),
BUILD=(1:C'Z;',3:1,80)),
IFTHEN=(WHEN=(1,50,CH,EQ,C'50X'),
BUILD=(1:C'B;',3:1,80)),
IFTHEN=(WHEN=NONE,
BUILD=(1:C'X;',3:1,80))

But here the enmpty line has been apending with "X;" instead of "B;"
So the O?p comes like below,

Code:

----+----1----+----2----+----3----+----4----+----
Z;Header;sdsad;dasda;sdaasd
X;
X;001;1254;lklk;12222
X;121554;15454;dfgdg

But i need it as

Code:

----+----1----+----2----+----3----+----4----+----
Z;Header;sdsad;dasda;sdaasd
B;
X;001;1254;lklk;12222
X;121554;15454;dfgdg

Can anyone help me to achieve this .

CICS Guy

Senior Member

Joined: 18 Jul 2007
Posts: 2146
Location: At my coffee table

Quote:

Code:

SORT FIELDS=COPY
OUTREC IFTHEN=(WHEN=(1,6,CH,EQ,C'Header'),
BUILD=(1:C'Z;',3:1,80)),
IFTHEN=(WHEN=(1,50,CH,EQ,C'50X'),
BUILD=(1:C'B;',3:1,80)),
IFTHEN=(WHEN=NONE,
BUILD=(1:C'X;',3:1,80))

Since you are not expecting a 50 byte field that contains "50X" followed by 47 blanks, wouldn't something like:

Code:

SORT FIELDS=COPY
OUTREC IFTHEN=(WHEN=(1,6,CH,EQ,C'Header'),
BUILD=(1:C'Z;',3:1,80)),
IFTHEN=(WHEN=(1,50,CH,EQ,50X'40'),
BUILD=(1:C'B;',3:1,80)),
IFTHEN=(WHEN=NONE,
BUILD=(1:C'X;',3:1,80))

work better?
Or maybe just 50X?

Niki

Active User

Joined: 20 Sep 2008
Posts: 106
Location: Bangalore

Hi,

Thanks for the reeply .

I tried by giving ,

Code:

SORT FIELDS=COPY
OUTREC IFTHEN=(WHEN=(1,6,CH,EQ,C'Header'),
BUILD=(1:C'Z;',3:1,80)),
IFTHEN=(WHEN=(1,50,CH,EQ,'50X'),
BUILD=(1:C'B;',3:1,80)),
IFTHEN=(WHEN=NONE,
BUILD=(1:C'X;',3:1,80))

and

Code:

SORT FIELDS=COPY
OUTREC IFTHEN=(WHEN=(1,6,CH,EQ,C'Header'),
BUILD=(1:C'Z;',3:1,80)),
IFTHEN=(WHEN=(1,50,CH,EQ,'50X'),
BUILD=(1:C'B;',3:1,80)),
IFTHEN=(WHEN=NONE,
BUILD=(1:C'X;',3:1,80))

and

Code:

SORT FIELDS=COPY
OUTREC IFTHEN=(WHEN=(1,6,CH,EQ,C'Header'),
BUILD=(1:C'Z;',3:1,80)),
IFTHEN=(WHEN=(1,50,CH,EQ,50X'40'),
BUILD=(1:C'B;',3:1,80)),
IFTHEN=(WHEN=NONE,
BUILD=(1:C'X;',3:1,80))

But the job was abending and the error message is as below,

Code:

WER268A OUTREC STATEMENT : SYNTAX ERROR
WER211B SYNCSMF CALLED BY SYNCSORT; RC=0000
WER449I SYNCSORT GLOBAL DSM SUBSYSTEM ACTIVE

CICS Guy

Senior Member

Joined: 18 Jul 2007
Posts: 2146
Location: At my coffee table

Posted: Wed Mar 11, 2009 7:59 pm

Please post the entire sysout for the last example.......

Niki

Active User

Joined: 20 Sep 2008
Posts: 106
Location: Bangalore

Code:

SYNCSORT FOR Z/OS 1.3.1.0N U.S. PATENTS: 4210961, 5117495 (C) 2007 SYNCSO
022309: SYNCSORT Z/OS 1.3.1.0 + SY67000 z/OS
SYNCSORT LICENSED FOR CPU SERIAL NUMBER 3E14C, MODEL 2094 708 LICEN
SYSIN :
SORT FIELDS=COPY 0013002
OUTREC IFTHEN=(WHEN=(1,6,CH,EQ,C'Header'), 0014002

BUILD=(1:C'Z;',3:1,80)),
IFTHEN=(WHEN=(1,50,CH,EQ,'50X'),
BUILD=(1:C'B;',3:1,80)),
IFTHEN=(WHEN=NONE,
BUILD=(1:C'X;',3:1,80))

WER268A OUTREC STATEMENT : SYNTAX ERROR
WER211B SYNCSMF CALLED BY SYNCSORT; RC=0000
WER449I SYNCSORT GLOBAL DSM SUBSYSTEM ACTIVE

CICS Guy

Senior Member

Joined: 18 Jul 2007
Posts: 2146
Location: At my coffee table

SyncSort for z/OS 1.3 Programmer’s Guide
Chapter 15. Messages wrote:

WER268A statement STATEMENT: SYNTAX ERROR
EXPLANATION: A SyncSort control statement, as indicated in the message text, contains a syntax error. The next line will contain an '*' indicating the approximate location of the syntax error.

No line with an '*'?
Does that first BUILD really start in cc1?

Niki

Active User

Joined: 20 Sep 2008
Posts: 106
Location: Bangalore

Code:

BUILD=(1:C'Z;',3:1,80)),
IFTHEN=(WHEN=(1,50,CH,EQ,'50X'),
*
BUILD=(1:C'B;',3:1,80)),
IFTHEN=(WHEN=NONE,
BUILD=(1:C'X;',3:1,80))

Before submitting if i do a JCL SCAn, Then i got the following error,

DSS10080E VALUE ''50X'' SHOULD HAVE BEEN INIT, ANY, NONE, OR ANYthing

expat

Global Moderator

Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales

Code:

SORT FIELDS=COPY
OUTREC IFTHEN=(WHEN=(1,6,CH,EQ,C'Header'),
BUILD=(1:C'Z;',3:1,80)),
IFTHEN=(WHEN=(1,50,CH,EQ,50X'40'),
BUILD=(1:C'B;',3:1,80)),
IFTHEN=(WHEN=NONE,
BUILD=(1:C'X;',3:1,80))

Should it not be

Code:

SORT FIELDS=COPY
OUTREC IFTHEN=(WHEN=(1,6,CH,EQ,C'Header'),
BUILD=(1:C'Z;',3:1,80)),
IFTHEN=(WHEN=(1,50,CH,EQ,' '),
BUILD=(1:C'B;',3:1,80)),
IFTHEN=(WHEN=NONE,
BUILD=(1:C'X;',3:1,80))

Niki

Active User

Joined: 20 Sep 2008
Posts: 106
Location: Bangalore

Posted: Wed Mar 11, 2009 8:58 pm

Hi Expat, Its working Fine. Thanks for the help.

CICS Guy

Senior Member

Joined: 18 Jul 2007
Posts: 2146
Location: At my coffee table

FWIW....

Ezhil Murugan wrote:

I got that error message when I did a job scan. But the job went fine when I submitted it. Not sure why it is so..

dick scherrer

Moderator Emeritus

Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix

Hello,

Quote:

Before submitting if i do a JCL SCAn, Then i got the following error,

DSS10080E VALUE ''50X'' SHOULD HAVE BEEN INIT, ANY, NONE, OR ANYthing

This jcl scan product is quite well known for not being current with the sort products. As the sort products (Syncsort/DFSORT/CA-Sort) are enhanced (usually in different directions), the jcl scan flags more and more good syntax as an error.

View previous topic :: :: View next topic

View Bookmarks
All times are GMT + 6 Hours

Forum Index -> JCL & VSAM

Topic		Forum	Replies
Similar Topics
	FTP VB File from Mainframe retaining ...	JCL & VSAM	1
	Extract the file name from another fi...	DFSORT/ICETOOL	6
	How to split large record length file...	DFSORT/ICETOOL	10
	Extracting Variable decimal numbers f...	DFSORT/ICETOOL	17
	SFTP Issue - destination file record ...	All Other Mainframe Topics	2

Search our Forums:

IBMMainframes.com is not an official and/or affiliated with IBM^® in anyway
Board Rules \| FAQ \| Downloads \| Wiki \| SiteMap \| Contact Us