Condition Check for Signed Decimal to ZD conversion

IBM Mainframe Forums -> DFSORT/ICETOOL

Quick References

View previous topic :: View next topic

Author

Message

manoz_k

New User

Joined: 08 Mar 2007
Posts: 23
Location: CHENNAI

I have following sort control card

Code:

SORT FIELDS=(501,2,CH,A)
OUTREC BUILD=(1,104,
105,13,SFF,TO=ZDC,LENGTH=11,
118,13,SFF,TO=ZDC,LENGTH=11,
131,13,SFF,TO=ZDC,LENGTH=11,
144,13,SFF,TO=ZDC,LENGTH=11,
157,13,SFF,TO=ZDC,LENGTH=11,
170,13,SFF,TO=ZDC,LENGTH=11,
183,13,SFF,TO=ZDC,LENGTH=11,
196,200,
396,113,
509,13,SFF,TO=ZDC,LENGTH=11,
522,13)

I need to put a condition on this Control card for somefields during conversion.For fields that start at 118, 131 & 144 i want to change to ZDC only if they are Non Blank (or if they are blank i want to leave them as it is )

William Thompson

Global Moderator

Joined: 18 Nov 2006
Posts: 3156
Location: Tucson AZ

manoz_k wrote:

only if they are Non Blank (or if they are blank i want to leave them as it is )

Ouch.....
Have you looked at Sort's IFTHEN parameter?

manoz_k

New User

Joined: 08 Mar 2007
Posts: 23
Location: CHENNAI

Code:

SORT FIELDS=(501,2,CH,A)
OUTREC BUILD=(1,104,
105,13,SFF,TO=ZDC,LENGTH=11,
118,13,SFF,TO=ZDC,LENGTH=11,
131,13,SFF,TO=ZDC,LENGTH=11,---> I want to do this only when its non blank
144,13,SFF,TO=ZDC,LENGTH=11,---> I want to do this only when its non blank
157,13,SFF,TO=ZDC,LENGTH=11,---> I want to do this only when its non blank
170,13,SFF,TO=ZDC,LENGTH=11,
183,13,SFF,TO=ZDC,LENGTH=11,
196,200,
396,113,
509,13,SFF,TO=ZDC,LENGTH=11,
522,13)

I believe IFTHEN does a Reformat different records in different ways ? But not the same record in different ways ? Please correct me if i am wrong >>Thanks much !!!

Skolusu

Senior Member

Joined: 07 Dec 2007
Posts: 2205
Location: San Jose

manoz_k,

Assuming that you want to reduce the blank fields from 13 blanks to 11 blanks, try these control cards

Code:

//SYSIN DD *
SORT FIELDS=(501,2,CH,A)
OUTREC IFOUTLEN=518,
IFTHEN=(WHEN=INIT,
BUILD=(001,104,
105,013,SFF,TO=ZDC,LENGTH=11,
118,013,SFF,TO=ZDC,LENGTH=11,
33X,
170,13,SFF,TO=ZDC,LENGTH=11,
183,13,SFF,TO=ZDC,LENGTH=11,
196,200,
396,113,
509,13,SFF,TO=ZDC,LENGTH=11,
522,13,
131,39)),
IFTHEN=(WHEN=(519,13,CH,NE,C' '),
OVERLAY=(127:519,13,SFF,TO=ZDC,LENGTH=11),HIT=NEXT),
IFTHEN=(WHEN=(532,13,CH,NE,C' '),
OVERLAY=(138:532,13,SFF,TO=ZDC,LENGTH=11),HIT=NEXT),
IFTHEN=(WHEN=(545,13,CH,NE,C' '),
OVERLAY=(149:545,13,SFF,TO=ZDC,LENGTH=11))
/*

View previous topic :: :: View next topic

View Bookmarks
All times are GMT + 6 Hours

Forum Index -> DFSORT/ICETOOL

Topic		Forum	Replies
Similar Topics
	Issues Converting From ZD to Signed N...	DFSORT/ICETOOL	4
	Extracting Variable decimal numbers f...	DFSORT/ICETOOL	17
	SCOPE PENDING option -check data	DB2	2
	10 byte RBA conversion	DB2	2
	10 byte RBA conversion -non applicati...	JCL & VSAM	1

Search our Forums:

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