Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

Syncsort - Create Multiple Records from Single Record(I/P)
Goto page 1, 2  Next
 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM
View previous topic :: :: View next topic  
Author Message
pushparaj v

New User


Joined: 03 Nov 2009
Posts: 14
Location: chennai

PostPosted: Tue Nov 03, 2009 10:04 pm    Post subject: Syncsort - Create Multiple Records from Single Record(I/P)
Reply with quote

Hi,

I have to create the test data for my Performance testing.

where record contains Header & Detail.

Pl. find the attached sample file.

H1 - I have to update the unique fields - starting Location: 66 Displacement:5 , Increment by +1

D1 - Starting location :66 Displacement:5 , Increment by +1

D2 - Starting Location :66 Displacement:10 , Increament by +1 and Starting Location :76 Displacement:9 , Increament by +1

D3 - Starting Location :70 Displacement:5

Pl. lemme know the DFSORT/ICETOOL Command to create the multiple data for Header and detail record.
Back to top
View user's profile Send private message

saiprasadh

Active User


Joined: 20 Sep 2006
Posts: 154
Location: US

PostPosted: Tue Nov 03, 2009 10:25 pm    Post subject:
Reply with quote

Hi PRAJ,


Can you let us know the record length of file. It would be great if you provide the Example in the forum instead of attachment.



Sai
Back to top
View user's profile Send private message
pushparaj v

New User


Joined: 03 Nov 2009
Posts: 14
Location: chennai

PostPosted: Tue Nov 03, 2009 10:42 pm    Post subject: Reply to: How to Create the Multiple Records with Single Rec
Reply with quote

Hi ,

Record Length is 417.

I have copied the Header and Detail record for your reference:

Code:
H100000003                      805A   2009-10-28-07.45.04.00000012347                         1                                         MOV1008                     MOY1009       YMLU                                                            000000000     CAMIL          009602009-10-01CNCWN000000744+000000744+000000000                                                                                               
D100000003                      805A   2009-10-28-07.45.04.00000012347                                                                                          000000765278+000002595072+4604           Y                              PLY40         009660     CAMIL          010102009-10-01CNCWN000000744+000000744+000000000                                                                                               
D200000003                      805A   2009-10-13-07.45.04.000000000002000400002000400000000100955000034620CWI INT'L CHINA LIMITED-CONS  HK           25        000000765278+000002595072+4604           Y                              PLY40         009660     CAMIL          010102009-10-01CNCWN000000744+000000744+000000000                                                                                               
D300000003                      805A   2009-10-28-07.45.04.000000000024415BLACK SPRAY FAUCET HEAD REPLACEMT       00000000302000+EA000000000000744+00000000001744000000000005143002595072+4604           Y                              PLY40         009660     CAMIL          010102009-10-01CNCWN000000744+000000744+000000000                                                                         
Back to top
View user's profile Send private message
Skolusu

Senior Member


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

PostPosted: Tue Nov 03, 2009 10:51 pm    Post subject:
Reply with quote

pushparaj v,

Use the following DFSORT control cards

Code:

//SYSIN    DD *                               
  SORT FIELDS=COPY                             
  INREC IFTHEN=(WHEN=(1,2,SS,EQ,C'H1,D1'),     
  OVERLAY=(66:+1,ADD,66,5,ZD,M11,LENGTH=5)),   
  IFTHEN=(WHEN=(1,2,CH,EQ,C'D2'),             
  OVERLAY=(66:+1,ADD,66,10,ZD,M11,LENGTH=10,   
           76:+1,ADD,76,09,ZD,M11,LENGTH=09)),
  IFTHEN=(WHEN=(1,2,CH,EQ,C'D3'),             
  OVERLAY=(70:+1,ADD,70,5,ZD,M11,LENGTH=5))   
//*
Back to top
View user's profile Send private message
pushparaj v

New User


Joined: 03 Nov 2009
Posts: 14
Location: chennai

PostPosted: Thu Nov 05, 2009 3:31 am    Post subject: Reply to: How to Create the Multiple Records with Single Rec
Reply with quote

Thanks Skolusu.

It working fine.

But pl tell me the command to create 1000 record.
Back to top
View user's profile Send private message
Frank Yaeger

DFSORT Moderator


Joined: 15 Feb 2005
Posts: 7130
Location: San Jose, CA

PostPosted: Thu Nov 05, 2009 3:50 am    Post subject:
Reply with quote

Quote:
But pl tell me the command to create 1000 record.


In what context? Is this related to your original requirement (how?) or is it a new requirement? Please explain in detail what you want to do with an example.
Back to top
View user's profile Send private message
pushparaj v

New User


Joined: 03 Nov 2009
Posts: 14
Location: chennai

PostPosted: Thu Nov 05, 2009 4:29 am    Post subject:
Reply with quote

Hi,

Is this related to my original requirement.

With the below comments, I am able to create the single record.

But I would like to know what comment should I update for creation of 1000 records.

//SYSIN DD *
SORT FIELDS=COPY
INREC IFTHEN=(WHEN=(1,2,SS,EQ,C'H1,D1'),
OVERLAY=(66:+1,ADD,66,5,ZD,M11,LENGTH=5)),
IFTHEN=(WHEN=(1,2,CH,EQ,C'D2'),
OVERLAY=(66:+1,ADD,66,10,ZD,M11,LENGTH=10,
76:+1,ADD,76,09,ZD,M11,LENGTH=09)),
IFTHEN=(WHEN=(1,2,CH,EQ,C'D3'),
OVERLAY=(70:+1,ADD,70,5,ZD,M11,LENGTH=5))
//*
Back to top
View user's profile Send private message
Skolusu

Senior Member


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

PostPosted: Thu Nov 05, 2009 4:58 am    Post subject: Reply to: How to Create the Multiple Records with Single Rec
Reply with quote

pushparaj v,

The control cards I have shown are updating specific records. ie it is looking for values at pos 1 and 2 for H1, D1 , D2, D3. They are just updating the existing records. As long as you have the values 'H1, D1 , D2, D3' in pos 1 and 2 it will update each and every record. What do you mean 1000 records?

Show us an example of input and desired output along with DCB properties.
Back to top
View user's profile Send private message
pushparaj v

New User


Joined: 03 Nov 2009
Posts: 14
Location: chennai

PostPosted: Thu Nov 05, 2009 5:49 am    Post subject:
Reply with quote

Please find attachment.

I have specified the Input & Expected output details.

File Detail:

Organization . . . : PS
Record format . . . : FB
Record length . . . : 417
Block size . . . . : 27939



Note: One Transaction = 1 Header and 3 Detail records D1,D2,D3

Similarly I need it for 1000 Transaction.
Back to top
View user's profile Send private message
pushparaj v

New User


Joined: 03 Nov 2009
Posts: 14
Location: chennai

PostPosted: Fri Nov 06, 2009 1:57 am    Post subject: Reply to: How to Create the Multiple Records with Single Rec
Reply with quote

By using below control card, I'm able to create a single transaction( H1, D1, D2,D3 )only.
Code:

//SYSIN    DD *                               
  SORT FIELDS=COPY                             
  INREC IFTHEN=(WHEN=(1,2,SS,EQ,C'H1,D1'),     
  OVERLAY=(66:+1,ADD,66,5,ZD,M11,LENGTH=5)),   
  IFTHEN=(WHEN=(1,2,CH,EQ,C'D2'),             
  OVERLAY=(66:+1,ADD,66,10,ZD,M11,LENGTH=10,   
           76:+1,ADD,76,09,ZD,M11,LENGTH=09)),
  IFTHEN=(WHEN=(1,2,CH,EQ,C'D3'),             
  OVERLAY=(70:+1,ADD,70,5,ZD,M11,LENGTH=5))   
//*

Could you guide me for replicating the record i.e output file should contain 1000 transaction.
Back to top
View user's profile Send private message
pushparaj v

New User


Joined: 03 Nov 2009
Posts: 14
Location: chennai

PostPosted: Mon Nov 09, 2009 5:35 am    Post subject:
Reply with quote

Pl. find the attachement.

I need my output file as attached.

Note: Pl. save this document in your desktop and then open it.
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 7904
Location: Bellevue, IA

PostPosted: Mon Nov 09, 2009 6:57 am    Post subject:
Reply with quote

Quote:
Note: Pl. save this document in your desktop and then open it.
And in this day of trojans, viruses, and worms let's hope your antivirus protection is up to date ....
Back to top
View user's profile Send private message
pushparaj v

New User


Joined: 03 Nov 2009
Posts: 14
Location: chennai

PostPosted: Mon Nov 09, 2009 7:19 am    Post subject: Reply to: How to Create the Multiple Records with Single Rec
Reply with quote

Hi ,

Apologies for Trojan.

I need the DFSORT/ICETOOL/JCL command for the below:

My output file should be as follows.

Input:
H100000003 805A 2009-10-28-07.45.04.00000012347 1 MOV1008 MOY1009 YMLU 000000000 CAMIL 009602009-10-01CNCWN000000744+000000744+000000000
D100000003 805A 2009-10-28-07.45.04.00000012347 000000765278+000002595072+4604 Y PLY40 009660 CAMIL 010102009-10-01CNCWN000000744+000000744+000000000
D200000003 805A 2009-10-13-07.45.04.000000000002000400002000400000000100955000034620CWI INT'L CHINA LIMITED-CONS HK 25 000000765278+000002595072+4604 Y PLY40 009660 CAMIL 010102009-10-01CNCWN000000744+000000744+000000000
D300000003 805A 2009-10-28-07.45.04.000000000024415BLACK SPRAY FAUCET HEAD REPLACEMT 00000000302000+EA000000000000744+00000000001744000000000005143002595072+4604 Y PLY40 009660 CAMIL 010102009-10-01CNCWN000000744+000000744+000000000


Output:
H100000003 805A 2009-10-28-07.45.04.00000012348 1 MOV1008 MOY1009 YMLU 000000000 CAMIL 009602009-10-01CNCWN000000744+000000744+000000000
D100000003 805A 2009-10-28-07.45.04.00000012348 000000765278+000002595072+4604 Y PLY40 009660 CAMIL 010102009-10-01CNCWN000000744+000000744+000000000
D200000003 805A 2009-10-13-07.45.04.000000000002000500002000500000000100955000034620CWI INT'L CHINA LIMITED-CONS HK 25 000000765278+000002595072+4604 Y PLY40 009660 CAMIL 010102009-10-01CNCWN000000744+000000744+000000000
D300000003 805A 2009-10-28-07.45.04.000000000024416BLACK SPRAY FAUCET HEAD REPLACEMT 00000000302000+EA000000000000744+00000000001744000000000005143002595072+4604 Y PLY40 009660 CAMIL 010102009-10-01CNCWN000000744+000000744+000000000
H100000003 805A 2009-10-28-07.45.04.00000012349 1 MOV1008 MOY1009 YMLU 000000000 CAMIL 009602009-10-01CNCWN000000744+000000744+000000000
D100000003 805A 2009-10-28-07.45.04.00000012349 000000765278+000002595072+4604 Y PLY40 009660 CAMIL 010102009-10-01CNCWN000000744+000000744+000000000
D200000003 805A 2009-10-13-07.45.04.000000000002000600002000600000000100955000034620CWI INT'L CHINA LIMITED-CONS HK 25 000000765278+000002595072+4604 Y PLY40 009660 CAMIL 010102009-10-01CNCWN000000744+000000744+000000000
D300000003 805A 2009-10-28-07.45.04.000000000024417BLACK SPRAY FAUCET HEAD REPLACEMT 00000000302000+EA000000000000744+00000000001744000000000005143002595072+4604 Y PLY40 009660 CAMIL 010102009-10-01CNCWN000000744+000000744+000000000
H100000003 805A 2009-10-28-07.45.04.00000012350 1 MOV1008 MOY1009 YMLU 000000000 CAMIL 009602009-10-01CNCWN000000744+000000744+000000000
D100000003 805A 2009-10-28-07.45.04.00000012350 000000765278+000002595072+4604 Y PLY40 009660 CAMIL 010102009-10-01CNCWN000000744+000000744+000000000
D200000003 805A 2009-10-13-07.45.04.000000000002000700002000700000000100955000034620CWI INT'L CHINA LIMITED-CONS HK 25 000000765278+000002595072+4604 Y PLY40 009660 CAMIL 010102009-10-01CNCWN000000744+000000744+000000000
D300000003 805A 2009-10-28-07.45.04.000000000024418BLACK SPRAY FAUCET HEAD REPLACEMT 00000000302000+EA000000000000744+00000000001744000000000005143002595072+4604 Y PLY40 009660 CAMIL 010102009-10-01CNCWN000000744+000000744+000000000
H100000003 805A 2009-10-28-07.45.04.00000012351 1 MOV1008 MOY1009 YMLU 000000000 CAMIL 009602009-10-01CNCWN000000744+000000744+000000000
D100000003 805A 2009-10-28-07.45.04.00000012351 000000765278+000002595072+4604 Y PLY40 009660 CAMIL 010102009-10-01CNCWN000000744+000000744+000000000
D200000003 805A 2009-10-13-07.45.04.000000000002000800002000800000000100955000034620CWI INT'L CHINA LIMITED-CONS HK 25 000000765278+000002595072+4604 Y PLY40 009660 CAMIL 010102009-10-01CNCWN000000744+000000744+000000000
D300000003 805A 2009-10-28-07.45.04.000000000024419BLACK SPRAY FAUCET HEAD REPLACEMT 00000000302000+EA000000000000744+00000000001744000000000005143002595072+4604 Y PLY40 009660 CAMIL 010102009-10-01CNCWN000000744+000000744+000000000
Back to top
View user's profile Send private message
Frank Yaeger

DFSORT Moderator


Joined: 15 Feb 2005
Posts: 7130
Location: San Jose, CA

PostPosted: Fri Nov 13, 2009 5:43 am    Post subject:
Reply with quote

I believe this DFSORT/ICETOOL job will give you the 1000 transactions you want:

Code:

//S1   EXEC  PGM=ICETOOL
//TOOLMSG   DD  SYSOUT=*
//DFSMSG    DD  SYSOUT=*
//IN DD DSN=...  input file (FB/417)
//T1 DD DSN=&&T1,UNIT=SYSDA,SPACE=(CYL,(5,5)),DISP=(,PASS)
//OUT DD DSN=...  output file (FB/417)
//TOOLIN DD *
COPY FROM(IN) USING(CTL1)
SORT FROM(T1) TO(OUT) USING(CTL2)
/*
//CTL1CNTL DD *
  INREC IFTHEN=(WHEN=INIT,OVERLAY=(418:1,2)),
        IFTHEN=(WHEN=(1,2,CH,EQ,C'H1'),OVERLAY=(418:C'D0'))
  OUTFIL FNAMES=T1,REPEAT=1000,OVERLAY=(421:SEQNUM,8,ZD,START=0,
    421:421,8,ZD,MOD,+1000,TO=ZD,LENGTH=8)
/*
//CTL2CNTL DD *
 OPTION EQUALS
 SORT FIELDS=(421,8,ZD,A)
 OUTREC IFOUTLEN=417,
  IFTHEN=(WHEN=(1,2,SS,EQ,C'H1,D1'),
    OVERLAY=(66:66,5,ZD,ADD,421,8,ZD,ADD,+1,TO=ZD,LENGTH=5)),
  IFTHEN=(WHEN=(1,2,CH,EQ,C'D2'),
    OVERLAY=(66:66,10,ZD,ADD,421,8,ZD,ADD,+1,TO=ZD,LENGTH=10,
             76:76,9,ZD,ADD,421,8,ZD,ADD,+1,TO=ZD,LENGTH=9)),
  IFTHEN=(WHEN=(1,2,CH,EQ,C'D3'),
    OVERLAY=(70:70,5,ZD,ADD,421,8,ZD,ADD,+1,TO=ZD,LENGTH=5))
/*
Back to top
View user's profile Send private message
pushparaj v

New User


Joined: 03 Nov 2009
Posts: 14
Location: chennai

PostPosted: Tue Nov 17, 2009 9:41 pm    Post subject: Reply to: How to Create the Multiple Records with Single Rec
Reply with quote

Hi

I have used the control card given:

I am able to create 1000 transaction H1,D1,D2,D3

But I would like to convey that Increment(+1) is not happening by number, its getting incremented by alphabet

Pl. let me know the reason.

Input:
[size=7][size=9]
H19318 805A 2009-07-29-17.45.00.00000012346678 HANJIN BASEL MVOY08 YMLU 000000000 USSAV 010342009-08-28USLAX000000504+000000504+000000000PUTTI
D19318 805A 2009-07-29-17.45.00.000000123466789A 000000259207+000000878976+23456789 Y CDY40 014200 CNSHA 010342009-08-28USLAX000000504+000000504+000000000PUTTI
D29318 805A 2009-07-29-17.45.00.000000004444413404444413400000000100960000034692 IT 25 000000259207+000000878976+23456789 Y CDY40 014200 CNSHA 010342009-08-28USLAX000000504+000000504+000000000PUTTI
D39318 805A 2009-07-29-17.45.00.00000000023589112X12 ROMAN STONE NOCE 00000000050400+EA000000000000504+00000000001744000000000005143000878976+23456789 Y CDY40 014200 CNSHA 010342009-08-28USLAX000000504+000000504+000000000PUTTI

[/size]

Output File:

[size=7][size=9]H19318 805A 2009-07-29-17.45.00.0000001234G678 HANJIN BASEL MVOY08 YMLU 000000000 USSAV 010342009-08-28USLAX000000504+000000504+000000000PUTTI
D19318 805A 2009-07-29-17.45.00.0000001234G6789A 000000259207+000000878976+23456789 Y CDY40 014200 CNSHA 010342009-08-28USLAX000000504+000000504+000000000PUTTI
D29318 805A 2009-07-29-17.45.00.000000004444413E04444413E00000000100960000034692 IT 25 000000259207+000000878976+23456789 Y CDY40 014200 CNSHA 010342009-08-28USLAX000000504+000000504+000000000PUTTI
D39318 805A 2009-07-29-17.45.00.00000000023589B12X12 ROMAN STONE NOCE 00000000050400+EA000000000000504+00000000001744000000000005143000878976+23456789 Y CDY40 014200 CNSHA 010342009-08-28USLAX000000504+000000504+000000000PUTTI
H19318 805A 2009-07-29-17.45.00.0000001234H678 HANJIN BASEL MVOY08 YMLU 000000000 USSAV 010342009-08-28USLAX000000504+000000504+000000000PUTTI
D19318 805A 2009-07-29-17.45.00.0000001234H6789A 000000259207+000000878976+23456789 Y CDY40 014200 CNSHA 010342009-08-28USLAX000000504+000000504+000000000PUTTI
D29318 805A 2009-07-29-17.45.00.000000004444413F04444413F00000000100960000034692 IT 25 000000259207+000000878976+23456789 Y CDY40 014200 CNSHA 010342009-08-28USLAX000000504+000000504+000000000PUTTI
D39318 805A 2009-07-29-17.45.00.00000000023589C12X12 ROMAN STONE NOCE 00000000050400+EA000000000000504+00000000001744000000000005143000878976+23456789 Y CDY40 014200 CNSHA 010342009-08-28USLAX000000504+000000504+000000000PUTTI
H19318 805A 2009-07-29-17.45.00.0000001234I678 HANJIN BASEL MVOY08 YMLU 000000000 USSAV 010342009-08-28USLAX000000504+000000504+000000000PUTTI
D19318 805A 2009-07-29-17.45.00.0000001234I6789A 000000259207+000000878976+23456789 Y CDY40 014200 CNSHA 010342009-08-28USLAX000000504+000000504+000000000PUTTI
D29318 805A 2009-07-29-17.45.00.000000004444413G04444413G00000000100960000034692 IT 25 000000259207+000000878976+23456789 Y CDY40 014200 CNSHA 010342009-08-28USLAX000000504+000000504+000000000PUTTI
D39318 805A 2009-07-29-17.45.00.00000000023589D12X12 ROMAN STONE NOCE 00000000050400+EA000000000000504+00000000001744000000000005143000878976+23456789 Y CDY40 014200 CNSHA 010342009-08-28USLAX000000504+000000504+000000000PUTTI
H19318 805A 2009-07-29-17.45.00.0000001235{678 HANJIN BASEL MVOY08 YMLU 000000000 USSAV 010342009-08-28USLAX000000504+000000504+000000000PUTTI
D19318 805A 2009-07-29-17.45.00.0000001235{6789A 000000259207+000000878976+23456789 Y CDY40 014200 CNSHA 010342009-08-28USLAX000000504+000000504+000000000PUTTI
D29318 805A 2009-07-29-17.45.00.000000004444413H04444413H00000000100960000034692 IT 25 000000259207+000000878976+23456789 Y CDY40 014200 CNSHA 010342009-08-28USLAX000000504+000000504+000000000PUTTI
D39318 805A 2009-07-29-17.45.00.00000000023589E12X12 ROMAN STONE NOCE 00000000050400+EA000000000000504+00000000001744000000000005143000878976+23456789 Y CDY40 014200 CNSHA 010342009-08-28USLAX000000504+000000504+000000000PUTTI
H19318 805A 2009-07-29-17.45.00.0000001235A678 HANJIN BASEL MVOY08 YMLU 000000000 USSAV 010342009-08-28USLAX000000504+000000504+000000000PUTTI
D19318 805A 2009-07-29-17.45.00.0000001235A6789A 000000259207+000000878976+23456789 Y CDY40 014200 CNSHA 010342009-08-28USLAX000000504+000000504+000000000PUTTI
D29318 805A 2009-07-29-17.45.00.000000004444413I04444413I00000000100960000034692 IT 25 000000259207+000000878976+23456789 Y CDY40 014200 CNSHA 010342009-08-28USLAX000000504+000000504+000000000PUTTI
D39318 805A 2009-07-29-17.45.00.00000000023589F12X12 ROMAN STONE NOCE 00000000050400+EA000000000000504+00000000001744000000000005143000878976+23456789 Y CDY40 014200 CNSHA 010342009-08-28USLAX000000504+000000504+000000000PUTTI
H19318 805A 2009-07-29-17.45.00.0000001235B678 HANJIN BASEL MVOY08 YMLU 000000000 USSAV 010342009-08-28USLAX000000504+000000504+000000000PUTTI
D19318 805A 2009-07-29-17.45.00.0000001235B6789A 000000259207+000000878976+23456789 Y CDY40 014200 CNSHA 010342009-08-28USLAX000000504+000000504+000000000PUTTI
D29318 805A 2009-07-29-17.45.00.000000004444414{04444414{00000000100960000034692 IT 25 000000259207+000000878976+23456789 Y CDY40 014200 CNSHA 010342009-08-28USLAX000000504+000000504+000000000PUTTI
D39318 805A 2009-07-29-17.45.00.00000000023589G12X12 ROMAN STONE NOCE 00000000050400+EA000000000000504+00000000001744000000000005143000878976+23456789 Y CDY40 014200 CNSHA 010342009-08-28USLAX000000504+000000504+000000000PUTTI
H19318 805A 2009-07-29-17.45.00.0000001235C678 HANJIN BASEL MVOY08 YMLU 000000000 USSAV 010342009-08-28USLAX000000504+000000504+000000000PUTTI
D19318 805A 2009-07-29-17.45.00.0000001235C6789A 000000259207+000000878976+23456789 Y CDY40 014200 CNSHA 010342009-08-28USLAX000000504+000000504+000000000PUTTI
D29318 805A 2009-07-29-17.45.00.000000004444414A04444414A00000000100960000034692 IT 25 000000259207+000000878976+23456789 Y CDY40 014200 CNSHA 010342009-08-28USLAX000000504+000000504+000000000PUTTI
D39318 805A 2009-07-29-17.45.00.00000000023589H12X12 ROMAN STONE NOCE 00000000050400+EA000000000000504+00000000001744000000000005143000878976+23456789 Y CDY40 014200 CNSHA 010342009-08-28USLAX000000504+000000504+000000000PUTTI
H19318 805A 2009-07-29-17.45.00.0000001235D678 HANJIN BASEL MVOY08 YMLU 000000000 USSAV 010342009-08-28USLAX000000504+000000504+000000000PUTTI
D19318 805A 2009-07-29-17.45.00.0000001235D6789A 000000259207+000000878976+23456789 Y CDY40 014200 CNSHA 010342009-08-28USLAX000000504+000000504+000000000PUTTI
D29318 805A 2009-07-29-17.45.00.000000004444414B04444414B00000000100960000034692 IT 25 000000259207+000000878976+23456789 Y CDY40 014200 CNSHA 010342009-08-28USLAX000000504+000000504+000000000PUTTI
D39318 805A 2009-07-29-17.45.00.00000000023589I12X12 ROMAN STONE NOCE 00000000050400+EA000000000000504+00000000001744000000000005143000878976+23456789 Y CDY40 014200 CNSHA 010342009-08-28USLAX000000504+000000504+000000000PUTTI
H19318 805A 2009-07-29-17.45.00.0000001235E678 HANJIN BASEL MVOY08 YMLU 000000000 USSAV 010342009-08-28USLAX000000504+000000504+000000000PUTTI
D19318 805A 2009-07-29-17.45.00.0000001235E6789A 000000259207+000000878976+23456789 Y CDY40 014200 CNSHA 010342009-08-28USLAX000000504+000000504+000000000PUTTI
D29318 805A 2009-07-29-17.45.00.000000004444414C04444414C00000000100960000034692 IT 25 000000259207+000000878976+23456789 Y CDY40 014200 CNSHA 010342009-08-28USLAX000000504+000000504+000000000PUTTI
D39318 805A 2009-07-29-17.45.00.00000000023590{12X12 ROMAN STONE NOCE 00000000050400+EA000000000000504+00000000001744000000000005143000878976+23456789 Y CDY40 014200 CNSHA 010342009-08-28USLAX000000504+000000504+000000000PUTTI
H19318 805A 2009-07-29-17.45.00.0000001235F678 HANJIN BASEL MVOY08 YMLU 000000000 USSAV 010342009-08-28USLAX000000504+000000504+000000000PUTTI
D19318 805A 2009-07-29-17.45.00.0000001235F6789A 000000259207+000000878976+23456789 Y CDY40 014200 CNSHA 010342009-08-28USLAX000000504+000000504+000000000PUTTI
D29318 805A 2009-07-29-17.45.00.000000004444414D04444414D00000000100960000034692 IT 25 000000259207+000000878976+23456789 Y CDY40 014200 CNSHA 010342009-08-28USLAX000000504+000000504+000000000PUTTI
D39318 805A 2009-07-29-17.45.00.00000000023590A12X12 ROMAN STONE NOCE 00000000050400+EA000000000000504+00000000001744000000000005143000878976+23456789 Y CDY40 014200 CNSHA 010342009-08-28USLAX000000504+000000504+000000000PUTTI
[/size][/size][/size]



2. Kolusu has given simple control card for creation of multiple data.

Is't possible to amend the below control card as per my requirement.


SORT FIELDS=COPY
INREC IFTHEN=(WHEN=(1,2,SS,EQ,C'H1,D1'),
OVERLAY=(66:+1,ADD,66,5,ZD,M11,LENGTH=5)),
IFTHEN=(WHEN=(1,2,CH,EQ,C'D2'),
OVERLAY=(66:+1,ADD,66,10,ZD,M11,LENGTH=10,
76:+1,ADD,76,09,ZD,M11,LENGTH=09)),
IFTHEN=(WHEN=(1,2,CH,EQ,C'D3'),
OVERLAY=(70:+1,ADD,70,5,ZD,M11,LENGTH=5))


Bcoz I am able to understand the above control card easily.
Back to top
View user's profile Send private message
Frank Yaeger

DFSORT Moderator


Joined: 15 Feb 2005
Posts: 7130
Location: San Jose, CA

PostPosted: Wed Nov 18, 2009 12:10 am    Post subject:
Reply with quote

1. DFSORT will give you what you asked for with the job I posted. Based on what you say you're getting, you must be using Syncsort, not DFSORT.

2. Kolusu and I are DFSORT developers. DFSORT and Syncsort are competitive products. We're happy to answer questions on DFSORT and DFSORT's ICETOOL, but we don't answer questions on Syncsort.
Back to top
View user's profile Send private message
dick scherrer

Site Director


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

PostPosted: Wed Nov 18, 2009 12:41 am    Post subject:
Reply with quote

Hello,

Quote:
that Increment(+1) is not happening by number, its getting incremented by alphabet
Not really. . . Both an "F" sign and "C" sign are "positive" numerically.

Quote:
SyncSort returns a C sign for ZD instead of an F sign. DFSORT gives an F sign for TO=ZD. Try using TO=ZDF.
Back to top
View user's profile Send private message
pushparaj v

New User


Joined: 03 Nov 2009
Posts: 14
Location: chennai

PostPosted: Sat Dec 05, 2009 12:07 am    Post subject:
Reply with quote

Hi ,

I have modified from ZD to "ZDF".

Now its getting incremented by Number

Thanks SYNCSORT TEAM.
Back to top
View user's profile Send private message
Frank Yaeger

DFSORT Moderator


Joined: 15 Feb 2005
Posts: 7130
Location: San Jose, CA

PostPosted: Sat Dec 05, 2009 12:12 am    Post subject:
Reply with quote

Quote:
Thanks SYNCSORT TEAM.


FYI, nobody from the "Syncsort Team" actually posted in this thread.
Kolusu and I are on the "DFSORT Team" and everyone else who posted is not associated with either team.
Back to top
View user's profile Send private message
pushparaj v

New User


Joined: 03 Nov 2009
Posts: 14
Location: chennai

PostPosted: Sat Dec 05, 2009 12:27 am    Post subject: Reply to: Syncsort - Create Multiple Records from Single Rec
Reply with quote

Hi

Actually I want to say thanks to Frank and Kolusu for their support to complete my Task easily.

Kudo's to you!

Thanks to all!
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM All times are GMT + 6 Hours
Goto page 1, 2  Next
Page 1 of 2

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts syncsort: copy lines after the keyword shreya19 SYNCSORT 1 Fri Dec 02, 2016 9:47 am
No new posts Limit duplicate records in the SORT pshongal SYNCSORT 6 Mon Nov 21, 2016 12:54 pm
No new posts How to update a portion of text in a ... Bill Woodger DFSORT/ICETOOL 25 Wed Nov 09, 2016 9:41 pm
No new posts Two Selects in a single select query Rohit Umarjikar DB2 1 Fri Nov 04, 2016 8:46 pm
No new posts Syncsort - Hard coded Value in output PORYES SYNCSORT 1 Thu Nov 03, 2016 9:23 am


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us