IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

Question related to Data dictionary feature


IBM Mainframe Forums -> SYNCSORT
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
rexx77

New User


Joined: 14 Apr 2008
Posts: 78
Location: Mysore

PostPosted: Thu Aug 31, 2017 7:23 am
Reply with quote

Hi Folks,

I am trying to use SYNCSORT Data dictionary feature , as my upstream files are created with meta attributes information . I am trying to extract the required fields using the column names available in SYMNAMES DD.

SYMNAMES Definition:
Code:

Asset_name,1,50,CH
Field1,51,32,ZD
Field2,*,5000,CH
Field3,*,10,CH


Sort statement is like below:
Code:

SORT FIELDS =(Asset name, A)
OUTREC FIELDS=(Asset_Name, 10X, Field1,10X,Field2,Field3)


1. Field 1 in input file is 32 length and ZD format, i want to convert that to 14 Packed decimal in the output. Do you know how to specify the conversion while mentioning the outrec fields
2. Field2 is around 5000 length and CHAR field. I want to extract first 100 characters from this field. How to do this?

Appreciate your inputs.
Back to top
View user's profile Send private message
sergeyken
Warnings : 2

Senior Member


Joined: 29 Apr 2008
Posts: 1080

PostPosted: Thu Aug 31, 2017 7:02 pm
Reply with quote

Answer to 1.
After RTFM (did you read it?) it's getting clear that field format is converted (from ZD to PD) as
Code:
 FIELDS=(.....51,32,ZD,PD[,LENGTH=nn],.......)

Same thing with dictionary name(s)
Code:
 FIELDS=(.....Field1,PD[,LENGTH=nn],.......)
Back to top
View user's profile Send private message
rexx77

New User


Joined: 14 Apr 2008
Posts: 78
Location: Mysore

PostPosted: Thu Aug 31, 2017 8:04 pm
Reply with quote

I added Length field as suggested , Here is my modified SORT statement

Code:

Field1,PD(,LENGTH=14),


It was substituted as below, during run time.

Code:


12,32,PD(,LENGTH=14)



I got SYNTAX error.

WER271A OUTREC STATEMENT : NUMERIC FIELD ERROR
WER211B SYNCSMF CALLED BY SYNCSORT; RC=0000
Back to top
View user's profile Send private message
sergeyken
Warnings : 2

Senior Member


Joined: 29 Apr 2008
Posts: 1080

PostPosted: Thu Aug 31, 2017 10:06 pm
Reply with quote

Correct syntax looks like this (copied from the manual)
Code:
 OUTREC FIELDS=(1,10,ZD,PD,
                11,4,FI,ZD,LENGTH=8)

Please RTFM carefully

My square brackets used to specify the "optional parameter LENGTH", but not to be replaced with regular parenthesis! icon_axe.gif
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> SYNCSORT

 


Similar Topics
Topic Forum Replies
No new posts COBOL Table data to a flat file with ... COBOL Programming 5
No new posts Compare 2 files replace data in 1st f... DFSORT/ICETOOL 4
No new posts DB2 SQL query to read and update data... DB2 12
This topic is locked: you cannot edit posts or make replies. copy file 2 data into file1 for match... DFSORT/ICETOOL 4
No new posts DATA SET LIST UTILITY screen TSO/ISPF 6
Search our Forums:

Back to Top