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

Syncsort - Create Multiple Records from Single Record(I/P)
IBM Mainframe Forums -> JCL & VSAM
Post new topic   Reply to topic Quick References
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
 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
 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
 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
 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
 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 Developer


Joined: 15 Feb 2005
Posts: 7129
Location: San Jose, CA
PostPosted: Thu Nov 05, 2009 3:50 am
 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
 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
 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
 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
 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
 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: 8700
Location: Dubuque, Iowa, USA
PostPosted: Mon Nov 09, 2009 6:57 am
 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
 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 Developer


Joined: 15 Feb 2005
Posts: 7129
Location: San Jose, CA
PostPosted: Fri Nov 13, 2009 5:43 am
 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
 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 Developer


Joined: 15 Feb 2005
Posts: 7129
Location: San Jose, CA
PostPosted: Wed Nov 18, 2009 12:10 am
 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

Moderator Emeritus


Joined: 23 Nov 2006
Posts: 19243
Location: Inside the Matrix
PostPosted: Wed Nov 18, 2009 12:41 am
 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
 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 Developer


Joined: 15 Feb 2005
Posts: 7129
Location: San Jose, CA
PostPosted: Sat Dec 05, 2009 12:12 am
 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
 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
pushparaj v

New User


Joined: 03 Nov 2009
Posts: 14
Location: chennai
PostPosted: Sat Dec 05, 2009 2:29 am
 Reply with quote
I'm getting SOC7 Abend.


Error Message:
TOOLMSG:
*****************************TOP OF DATA **************************************

SYT000I SYNCTOOL RELEASE 1.6.2 - COPYRIGHT 2007 SYNCSORT INC.
SYT001I INITIAL PROCESSING MODE IS "STOP"
SYT002I "TOOLIN" INTERFACE BEING USED

COPY FROM(IN) USING(CTL1)
SYT020I SYNCSORT CALLED WITH IDENTIFIER "0001"
SYT030I OPERATION COMPLETED WITH RETURN CODE 0

SORT FROM(T1) TO(OUT) USING(CTL2)
SYT020I SYNCSORT CALLED WITH IDENTIFIER "0002"
******************************** BOTTOM OF DATA ********************************


Control Card Used:


//* Control card Description :

//* H1 - I have to update the unique fields - starting Location: 31 Displacement:9 , Increment by +1 and Starting Location : 395 Displacement:9 ,Increment by +1

//* D1 - Starting location :25 Displacement:9 , Increment by +1

//* D1 - Starting Location :25 Displacement:9 , Increament by +1
//IPTS2805 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//*
//IN DD DSN=IPTT.IPTF500A.IPTB913.TSS.BJ1.PT.SI.G0004V00,
// DISP=SHR
//*
//T1 DD DSN=&&T1,UNIT=SYSDA,SPACE=(CYL,(100,100)),DISP=(,PASS)
//*
//OUT DD DSN=IPTT.IPTF500A.IPTB913.TSS.BJ1.PT.SI.G0005V00,
// DISP=SHR,
// UNIT=SYSDA,
// SPACE=(CYL,(100,200),RLSE),
// DCB=(LRECL=471,BLKSIZE=0,RECFM=FB)
//*
//TOOLIN DD *
COPY FROM(IN) USING(CTL1)
SORT FROM(T1) TO(OUT) USING(CTL2)
/*
//CTL1CNTL DD *
INREC IFTHEN=(WHEN=INIT,OVERLAY=(472:1,2)),
IFTHEN=(WHEN=(1,2,CH,EQ,C'H1'),OVERLAY=(472:C'D1'))
OUTFIL FNAMES=T1,REPEAT=200,OVERLAY=(475:SEQNUM,8,ZD,START=0,
475:475,8,ZD,MOD,+200,TO=ZDF,LENGTH=8)
/*
//CTL2CNTL DD *
OPTION EQUALS
SORT FIELDS=(475,8,ZD,A)
OUTREC IFOUTLEN=471,
IFTHEN=(WHEN=(1,2,CH,EQ,C'H1'),
OVERLAY=(31:31,09,ZD,ADD,475,8,ZD,ADD,+1,TO=ZDF,LENGTH=09,
395:395,09,ZD,ADD,475,8,ZD,ADD,+1,TO=ZDF,LENGTH=09)),
IFTHEN=(WHEN=(1,2,CH,EQ,C'D1'),
OVERLAY=(25:25,09,ZD,ADD,475,8,ZD,ADD,+1,TO=ZDF,LENGTH=09)),
IFTHEN=(WHEN=(1,2,CH,EQ,C'D1'),
OVERLAY=(25:25,09,ZD,ADD,475,8,ZD,ADD,+1,TO=ZDF,LENGTH=09))
/*

Input File used: 471 Bytes:

[size=8][size=8][size=8]H1500A00005003400000300000+USD0000001 SCACSI 2009-10-282009-10-282009-10-28 00000001 SCHNEIDER NATIONAL, INC. 00955 0000045296+00000000+0000025+ 1234511 000050034HO
D1500ATFLHC TRKFRT 00002127600000052500+HK GOLDEN DEER CO. YANTIAN
D1500AAIRFS AIRFRT 00002127600000004301+HK GOLDEN DEER CO. YANTIAN[/size][/size][/size]
Back to top
View user's profile Send private message
dick scherrer

Moderator Emeritus


Joined: 23 Nov 2006
Posts: 19243
Location: Inside the Matrix
PostPosted: Sat Dec 05, 2009 2:39 am
 Reply with quote
Hello,

The s0c7 is caused by "numeric" data that is not a valid numeric.

You need to determine if the "record layout" is correct or if there is a problem with the data content (this could be many fields/records or a single invalid value).
Back to top
View user's profile Send private message
pushparaj v

New User


Joined: 03 Nov 2009
Posts: 14
Location: chennai
PostPosted: Wed Dec 09, 2009 7:57 am
 Reply with quote
Thanks a lot.

Actually it was data issue, I have sorted out the SOC 07 Abend.

Now,

Could help me for the below scenario:

1) Behalf of creating the multiple records(For Example : 25000) in single file, Create the records into equal parts i.e 5000 records in File A, Next 5000 records in File B,...Last 5000 records in File E.
2) Also I need to schedule the jobs Manually(Not using ZEKE Scheduler) i.e First File A will be sending 5000 records to Message Queue. then Second File B should start sending next set of 5000 records to Message Queue only when File A return code = 00, Third File C should start sending next set of 5000 records to message queue only when File B return code = 00, Fourth File D should start sending next set of 5000 records to message queue only when File C return code = 00, Finally File E will start sending the 5000 records to message Queue only when File D return code = 00.
Back to top
View user's profile Send private message
dick scherrer

Moderator Emeritus


Joined: 23 Nov 2006
Posts: 19243
Location: Inside the Matrix
PostPosted: Wed Dec 09, 2009 8:18 pm
 Reply with quote
Hello,

Suggest you start a new topic for this question that is not related to the sort question. . . You would probably get more/useful replies.

To do what you want, have each "job" submit the next job thru the internal reader (there are many topics in the forum about using the internal reader).

I don't know how a file sets a condition code. . .
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 -> JCL & VSAM

 

Similar Topics
Topic Forum Replies
No new posts Extract records for a specific condit... DFSORT/ICETOOL 25
No new posts Write record twice based on condition... SYNCSORT 7
No new posts Multiple INSPECTS on a big size file COBOL Programming 6
No new posts Create a specific record/file based o... SYNCSORT 8
No new posts Writing next records after a match an... Compuware & Other Tools 5
Search our Forums:


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