MVSFORUMS.com Forum Index MVSFORUMS.com
A Community of and for MVS Professionals
 
 FAQFAQ   SearchSearch   Quick Manuals   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Merge two files laterally
Goto page Previous  1, 2, 3, 4  Next
 
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Utilities
View previous topic :: View next topic  
Author Message
vivek
Beginner


Joined: 15 Jul 2004
Posts: 95
Topics: 11
Location: Edison,NJ
PostPosted: Wed Oct 06, 2004 10:00 am    Post subject: Reply with quote
Continuation of prior post. my problem is similar to first post of Kolusu.


//CTL1CNTL DD *
OUTFIL FNAMES=T1,OUTREC=(1,36,18Z,80:X,SEQNUM,8,ZD)
//CTL2CNTL DD *
OUTFIL FNAMES=T2,OUTREC=(36Z,19,18,80:X,SEQNUM,8,ZD)

I dont understand 18Z and 36Z . Can anyone explain ?

I dont have dfsort. if i replace with Synctool would it work without any modifications ? Since there is not documentation for synctool. can i just follow icetool documentation?
thanks,
_________________
Vivek,NJ

Db2,IDMS
Back to top
View user's profile Send private message Visit poster's website AIM Address Yahoo Messenger MSN Messenger
Frank Yaeger
Sort Forum Moderator
Sort Forum Moderator


Joined: 02 Dec 2002
Posts: 1618
Topics: 31
Location: San Jose
PostPosted: Wed Oct 06, 2004 10:36 am    Post subject: Reply with quote
Quote:
Since there is not documentation for synctool. can i just follow icetool documentation?


No. DFSORT's documentation describes DFSORT and DFSORT's ICETOOL. It does NOT describe other products, and if you try to use it for other products, you will be in for some surprises.
_________________
Frank Yaeger - DFSORT Development Team (IBM)
Specialties: JOINKEYS, FINDREP, WHEN=GROUP, ICETOOL, Symbols, Migration
DFSORT is on the Web at:
www.ibm.com/storage/dfsort
Back to top
View user's profile Send private message Send e-mail Visit poster's website
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12375
Topics: 75
Location: San Jose
PostPosted: Wed Oct 06, 2004 11:38 am    Post subject: Reply with quote
Vivek,

The following JCL will give you the desired results. I assumed that your input files lrecl is 80 and are of FB recfm. I am using the same binary zero summing technique shown in the first post.

Code:

//STEP0100 EXEC PGM=SYNCTOOL                                 
//TOOLMSG  DD SYSOUT=*                                       
//DFSMSG   DD SYSOUT=*                                       
//IN1      DD *                                               
ATLFJ00001004 ADDR1-ADDR3-ADDR4                               
ATLFJ00001304 ADDR2-ADDR5-ADDR6                               
ATLFJ00002404 ADDR3-ADDR7-ADDR8                               
//IN2      DD *                                               
ATLFJ00001004 CITY1-CITY4-CITY7                               
ATLFJ00001304 CITY2-CITY5-CITY8                               
ATLFJ00002404 CITY3-CITY6-CITY9                               
//IN3      DD *                                               
ATLFJ00001004 NAME1-NAME4-NAME7                               
ATLFJ00001304 NAME2-NAME5-NAME8                               
ATLFJ00002404 NAME3-NAME6-NAME9                               
//T1       DD DSN=&T1,DISP=(NEW,PASS),SPACE=(CYL,(X,Y),RLSE) 
//T2       DD DSN=&T2,DISP=(NEW,PASS),SPACE=(CYL,(X,Y),RLSE) 
//T3       DD DSN=&T3,DISP=(NEW,PASS),SPACE=(CYL,(X,Y),RLSE) 
//CON      DD DSN=&T1,DISP=OLD,VOL=REF=*.T1                   
//         DD DSN=&T2,DISP=OLD,VOL=REF=*.T2                   
//         DD DSN=&T3,DISP=OLD,VOL=REF=*.T3                   
//OUT      DD SYSOUT=*                               
//TOOLIN   DD *                                             
  COPY FROM(IN1) USING(CTL1)                               
  COPY FROM(IN2) USING(CTL2)                               
  COPY FROM(IN3) USING(CTL3)                               
  SORT FROM(CON) USING(CTL4)                               
//CTL1CNTL DD *                                             
  OUTFIL FNAMES=T1,                                         
  OUTREC=(1,31,35Z,80:X)                                   
//CTL2CNTL DD *                                             
  OUTFIL FNAMES=T2,                                         
  OUTREC=(1,14,17Z,15,17,18Z,80:X)                         
//CTL3CNTL DD *                                             
  OUTFIL FNAMES=T3,                                         
  OUTREC=(1,14,34Z,15,17,Z,80:X)                           
//CTL4CNTL DD *                                             
  OPTION EQUALS                                             
  SORT FIELDS=(1,14,CH,A)                                   
  SUM FIELDS=(15,8,23,8,31,8,39,8,47,8,55,8,63,4),FORMAT=BI
  OUTFIL FNAMES=OUT                                         
/*



Hope this helps....

Cheers

kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu
Back to top
View user's profile Send private message Send e-mail Visit poster's website
vivek
Beginner


Joined: 15 Jul 2004
Posts: 95
Topics: 11
Location: Edison,NJ
PostPosted: Wed Oct 06, 2004 3:11 pm    Post subject: Reply with quote
Anything wrong with this ? I used your first post .I have used the SUM fields to entire length I want to sum is this ok or should i break it up like you did ?

Code:

//PSTEP01  EXEC PGM=SYNCTOOL
//TOOLMSG  DD SYSOUT=*
//DFSMSG   DD SYSOUT=*
//IN1      DD DSN=JUFACT.DNA.CASSTAT.CHADIS.OTHER,DISP=SHR
//IN2      DD DSN=JUFACT.DNA.CHARGES.GOOD,DISP=SHR
//IN3      DD DSN=JUFACT.DNA.CHADIS.OTHER,DISP=SHR
//IN4      DD DSN=JUFACT.DNA.PARTY.JUV,DISP=SHR
//T1       DD DSN=JUFACT.DNA.TEMP.CASSTAT,DISP=(NEW,CATLG),
//            LABEL=(,SL),
//            UNIT=(SYSDA,10),
//            SPACE=(CYL,(10,10),RLSE),
//            DCB=(RECFM=FB,LRECL=117,BLKSIZE=11700)
//T2       DD DSN=JUFACT.DNA.TEMP.CHARGES,DISP=(NEW,CATLG),
//            LABEL=(,SL),
//            UNIT=(SYSDA,10),
//            SPACE=(CYL,(10,10),RLSE),
//            DCB=(RECFM=FB,LRECL=117,BLKSIZE=11700)
//T3       DD DSN=JUFACT.DNA.CHADIS,DISP=(NEW,CATLG),
//            LABEL=(,SL),
//            UNIT=(SYSDA,10),
//            SPACE=(CYL,(10,10),RLSE),
//            DCB=(RECFM=FB,LRECL=117,BLKSIZE=11700)
//T4       DD DSN=JUFACT.DNA.PARTY,DISP=(NEW,CATLG),
//            LABEL=(,SL),
//            UNIT=(SYSDA,10),
//            SPACE=(CYL,(10,10),RLSE),
//            DCB=(RECFM=FB,LRECL=117,BLKSIZE=11700)
//OUT      DD DSN=JUFACT.DNA.NOT.ORDERED,DISP=(NEW,CATLG),
//            LABEL=(,SL),
//            UNIT=(SYSDA,10),
//            SPACE=(CYL,(10,10),RLSE),
//            DCB=(RECFM=FB,LRECL=109,BLKSIZE=10900)
//SORTWK01 DD SPACE=(CYL,(50,20)),UNIT=SYSDA
//SORTWK02 DD SPACE=(CYL,(50,20)),UNIT=SYSDA
//SORTWK03 DD SPACE=(CYL,(50,20)),UNIT=SYSDA
//SORTWK04 DD SPACE=(CYL,(50,20)),UNIT=SYSDA
//SYSOUT   DD SYSOUT=*
//TOOLIN   DD *
    COPY FROM(IN1) USING(CTL1)
    COPY FROM(IN2) USING(CTL2)
    COPY FROM(IN3) USING(CTL3)
    COPY FROM(IN4) USING(CTL4)
    SORT FROM(CON) USING(CTL5)
//CTL1CNTL DD *
   OUTFIL FNAMES=T1,OUTREC=(1,31,13Z,109:X,SEQNUM,8,ZD)
//CTL2CNTL DD *
   OUTFIL FNAMES=T2,OUTREC=(31Z,14,24,109:X,SEQNUM,8,ZD)
//CTL3CNTL DD *
   OUTFIL FNAMES=T3,OUTREC=(55Z,14,8,109:X,SEQNUM,8,ZD)
//CTL4CNTL DD *
   OUTFIL FNAMES=T4,OUTREC=(63Z,14,46,109:X,SEQNUM,8,ZD)
//CTL5CNTL DD *
   OPTION EQUALS
   SORT FIELDS=(32,78),FORMAT=BI
   OUTFIL FNAMES=OUT,OUTREC=(1,109)
/*

_________________
Vivek,NJ

Db2,IDMS
Back to top
View user's profile Send private message Visit poster's website AIM Address Yahoo Messenger MSN Messenger
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12375
Topics: 75
Location: San Jose
PostPosted: Wed Oct 06, 2004 5:01 pm    Post subject: Reply with quote
Vivek,

A couple errors in your post. You don't have CON dd which is the concatenation of all the 4 temp files. I guess you missed it in your cut and paste.You don't need to provide the DCB parameters for a sort step.

Also you CANNOT sum on the entire length. For binary fields you can only sum in 2 or 4 or 8 bytes. so you need to break up the sum fields

If you understand the concept it is very easy to replicate

Let me explain it with an example. All the files have the following layout
Code:

KEY-ID      PIC X(5)
KEY-INFO    PIC X(8).

FILE: 1

Code:

----+-----1----+----2
123  AAAAAAAA
456  BBBBBBBB


FILE: 2

Code:

----+-----1----+----2
123  CCCCCCCC
456  DDDDDDDD


FILE: 3

Code:

----+-----1----+----2
123  EEEEEEEE
456  FFFFFFFF


FILE: 4

Code:

----+-----1----+----2
123  GGGGGGGG
456  HHHHHHHH


SO if you need to get the output as
Code:

----+-----1----+----2
123  AAAAAAAACCCCCCCCEEEEEEEEGGGGGGGG
456  BBBBBBBBDDDDDDDDFFFFFFFFHHHHHHHH



The first copy operator will take in file1 and create a temp file which looks like this

Code:

KEY|INFO1       |8Z FOR FILE2|8Z FOR FILE3|8Z FOR FILE4


8Z = 8 binary zeroes.

The second copy operator will take in file2 and create a temp file which looks like this

Code:

KEY|8Z FOR FILE1|INFO2       |8Z FOR FILE3|8Z FOR FILE4


The third copy operator will take in file3 and create a temp file which looks like this

Code:

KEY|8Z FOR FILE1|8Z FOR FILE3|INFO3       |8Z FOR FILE4


The fourth copy operator will take in file4 and create a temp file which looks like this

Code:

KEY|8Z FOR FILE1|8Z FOR FILE3|8Z FOR FILE4|INFO4


If you notice clearly the info position keeps changing from each of the files.

Now when you concatenate all these files together it will look like this

Code:

KEY|INFO1       |8Z FOR FILE2|8Z FOR FILE3|8Z FOR FILE4
KEY|8Z FOR FILE1|INFO2       |8Z FOR FILE3|8Z FOR FILE4
KEY|8Z FOR FILE1|8Z FOR FILE3|INFO3       |8Z FOR FILE4
KEY|8Z FOR FILE1|8Z FOR FILE3|8Z FOR FILE4|INFO4



Now all you have to do is sort and sum on the padded binary fields.once you have done you will have

Code:

KEY|INFO1       |INFO2        |INFO3       |INFO4


Hope this will give you some idea as to how the job works. If you still cannot figure out how to do it, then post the details

1. what is the LRECL of all the files.
2. What is the position of KEY, format and length in all the files
3. what is the position of info, format and length in all fields.

Once I have the details then I will post the solution.

Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu
Back to top
View user's profile Send private message Send e-mail Visit poster's website
vivek
Beginner


Joined: 15 Jul 2004
Posts: 95
Topics: 11
Location: Edison,NJ
PostPosted: Wed Oct 06, 2004 10:19 pm    Post subject: Reply with quote
Kolusu, thanks for the information about summing by 2,4,8 bytes for binary fields.

Yes I did miss con while cut and pasting it. i will run this jcl and let you know how it went.

thanks,
_________________
Vivek,NJ

Db2,IDMS
Back to top
View user's profile Send private message Visit poster's website AIM Address Yahoo Messenger MSN Messenger
vivek
Beginner


Joined: 15 Jul 2004
Posts: 95
Topics: 11
Location: Edison,NJ
PostPosted: Thu Oct 07, 2004 12:28 pm    Post subject: Reply with quote
ALL MY INPUT RECS ARE 80 BYTE LONG.
COLUMN 1-13 IS KEY FIELD
OTHER THAN KEY FIELD IN EACH TYPE OF FILE
FIRST FILE I NEED 14 THRU 31
SECOND FILE I NEED 14 THRU 37
THIRD FILE I NEED 14 THRU 21
FOURTH FILE I NEED 14 THRU 59.

FIRST THREE FILES GET PROCESSED FINE.
BUT IN DFSMSG I GET AN ERROR THAT FOURTH FILE OUTREC IS OUT OF RANGE. I DONT KNOW WHERE I AM
MAKING THE MISTAKE.

DFSMSG MESSAGE IS BELOW
Code:

SYNCSORT  3.7DNI TPF3A US PATENTS: 4210961,5117495, OTHER PAT. PEND. (C) 1998 S
                                              z/OS   1.2.0   CPU MODEL 9672
CTL1CNTL :
   OUTFIL FNAMES=T1,OUTREC=(1,31,24Z,8Z,46Z,2Z)
PARMLIST :
OPTION RESINV=0,ARESINV=0,MSGDDN=DFSMSG,SORTIN=IN1,SORTDD=CTL1,COPY
WER428I  CALLER-PROVIDED IDENTIFIER IS "0001"
WER108I  IN1      :  RECFM=FB   ; LRECL=    80; BLKSIZE= 16000
WER110I  T1       :  RECFM=FB   ; LRECL=   111; BLKSIZE= 27972
WER405I  T1       :  DATA RECORDS OUT         42; TOTAL RECORDS OUT         42
WER054I  RCD IN         42, OUT         42
WER169I  RELEASE 3.7D BATCH 0366 TPF LEVEL 3A
WER052I  END SYNCSORT - JUMSB4Y1,PSTEP01,,DIAG=A600,370C,484A,E026,A64A,260D,48
SYNCSORT  3.7DNI TPF3A US PATENTS: 4210961,5117495, OTHER PAT. PEND. (C) 1998 S
                                              z/OS   1.2.0   CPU MODEL 9672
CTL2CNTL :
   OUTFIL FNAMES=T2,OUTREC=(1,13,18Z,32,24,8Z,46Z,2Z)
PARMLIST :
OPTION RESINV=0,ARESINV=0,MSGDDN=DFSMSG,SORTIN=IN2,SORTDD=CTL2,COPY
WER428I  CALLER-PROVIDED IDENTIFIER IS "0002"
WER108I  IN2      :  RECFM=FB   ; LRECL=    80; BLKSIZE= 16000
WER110I  T2       :  RECFM=FB   ; LRECL=   111; BLKSIZE= 27972
WER405I  T2       :  DATA RECORDS OUT         56; TOTAL RECORDS OUT         56
WER054I  RCD IN         56, OUT         56
WER169I  RELEASE 3.7D BATCH 0366 TPF LEVEL 3A
WER052I  END SYNCSORT - JUMSB4Y1,PSTEP01,,DIAG=C800,1D86,224A,680C,C84A,0C87,22
SYNCSORT  3.7DNI TPF3A US PATENTS: 4210961,5117495, OTHER PAT. PEND. (C) 1998 S
                                              z/OS   1.2.0   CPU MODEL 9672
CTL3CNTL :
   OUTFIL FNAMES=T3,OUTREC=(1,13,18Z,24Z,56,8,46Z,2Z)
PARMLIST :
OPTION RESINV=0,ARESINV=0,MSGDDN=DFSMSG,SORTIN=IN3,SORTDD=CTL3,COPY
WER428I  CALLER-PROVIDED IDENTIFIER IS "0003"
WER108I  IN3      :  RECFM=FB   ; LRECL=    80; BLKSIZE= 16000
 WER110I  T3       :  RECFM=FB   ; LRECL=   111; BLKSIZE= 27972
 WER405I  T3       :  DATA RECORDS OUT         42; TOTAL RECORDS OUT         42
 WER054I  RCD IN         42, OUT         42
 WER169I  RELEASE 3.7D BATCH 0366 TPF LEVEL 3A
 WER052I  END SYNCSORT - JUMSB4Y1,PSTEP01,,DIAG=8600,1780,684A,6C06,864A,0681,6
 SYNCSORT  3.7DNI TPF3A US PATENTS: 4210961,5117495, OTHER PAT. PEND. (C) 1998
                                               z/OS   1.2.0   CPU MODEL 9672
 CTL4CNTL :
    OUTFIL FNAMES=T4,OUTREC=(1,13,18Z,24Z,8Z,64,46,2Z)
 PARMLIST :
 OPTION RESINV=0,ARESINV=0,MSGDDN=DFSMSG,SORTIN=IN4,SORTDD=CTL4,COPY
 WER428I  CALLER-PROVIDED IDENTIFIER IS "0004"
 WER164B  13,996K BYTES OF VIRTUAL STORAGE AVAILABLE, MAX REQUESTED,
 WER164B     0 BYTES RESERVE REQUESTED, 6,120K BYTES USED
 WER146B  20K BYTES OF EMERGENCY SPACE ALLOCATED
 WER108I  IN4      :  RECFM=FB   ; LRECL=    80; BLKSIZE= 16000
 WER230A  T4       OUTREC FIELD OUTSIDE RANGE


MY JCL IS BELOW

Code:
//PSTEP01  EXEC PGM=SYNCTOOL
//TOOLMSG  DD SYSOUT=*
//DFSMSG   DD SYSOUT=*
//IN1      DD DSN=VIVEK.DNA.CASSTAT.CHADIS.OTHER,DISP=SHR
//IN2      DD DSN=VIVEK.DNA.CHARGES.GOOD,DISP=SHR
//IN3      DD DSN=VIVEK.DNA.CHADIS.OTHER,DISP=SHR
//IN4      DD DSN=VIVEK.DNA.PARTY.OTH,DISP=SHR
//T1       DD DSN=&&CASSTAT,DISP=(NEW,PASS),SPACE=(CYL,(10,10),RLSE)
//T2       DD DSN=&&CHARGES,DISP=(NEW,PASS),SPACE=(CYL,(10,10),RLSE)
//T3       DD DSN=&&CHADIS,DISP=(NEW,PASS),SPACE=(CYL,(10,10),RLSE)
//T4       DD DSN=&&PARTY,DISP=(NEW,PASS),SPACE=(CYL,(10,10),RLSE)
//CON      DD DSN=&T1,DISP=(OLD,PASS),VOL=REF=*.T1
//         DD DSN=&T2,DISP=(OLD,PASS),VOL=REF=*.T2
//         DD DSN=&T3,DISP=(OLD,PASS),VOL=REF=*.T3
//         DD DSN=&T4,DISP=(OLD,PASS),VOL=REF=*.T4
//OUT      DD DSN=VIVEK.DNA.NOT.ORDERED,DISP=(NEW,CATLG),
//            LABEL=(,SL),
//            UNIT=(SYSDA,10),
//            SPACE=(CYL,(10,10),RLSE),
//            DCB=(RECFM=FB,LRECL=109,BLKSIZE=10900)
//SORTWK01 DD SPACE=(CYL,(50,20)),UNIT=SYSDA
//SORTWK02 DD SPACE=(CYL,(50,20)),UNIT=SYSDA
//SORTWK03 DD SPACE=(CYL,(50,20)),UNIT=SYSDA
//SORTWK04 DD SPACE=(CYL,(50,20)),UNIT=SYSDA
//SYSOUT   DD SYSOUT=*
//TOOLIN   DD *
    COPY FROM(IN1) USING(CTL1)
    COPY FROM(IN2) USING(CTL2)
    COPY FROM(IN3) USING(CTL3)
    COPY FROM(IN4) USING(CTL4)
    SORT FROM(CON) USING(CTL5)
//CTL1CNTL DD *
   OUTFIL FNAMES=T1,OUTREC=(1,31,24Z,8Z,46Z)
//CTL2CNTL DD *
   OUTFIL FNAMES=T2,OUTREC=(1,13,18Z,32,24,8Z,46Z)
//CTL3CNTL DD *
   OUTFIL FNAMES=T3,OUTREC=(1,13,18Z,24Z,56,8,46Z)
//CTL4CNTL DD *
   OUTFIL FNAMES=T4,OUTREC=(1,13,18Z,24Z,8Z,64,46)
//CTL5CNTL DD *
   OPTION EQUALS
   SORT FIELDS=(1,13,CH,A)
   SUM FIELDS=(14,8,22,8,30,8,38,8,46,8,54,8,62,8,70,
               8,78,8,86,8,94,8,102,8),FORMAT=BI
   OUTFIL FNAMES=OUT
/*

_________________
Vivek,NJ

Db2,IDMS
Back to top
View user's profile Send private message Visit poster's website AIM Address Yahoo Messenger MSN Messenger
vivek
Beginner


Joined: 15 Jul 2004
Posts: 95
Topics: 11
Location: Edison,NJ
PostPosted: Thu Oct 07, 2004 12:42 pm    Post subject: Reply with quote
oK i THINK I FIGURED OUT THE PREVIOUS PROBLEM, 64,46 IS OVER 80 SO I CHANGED IT TO RIGHT CO ORDINATES 14,46.

nOW I GET THIS ERROR IN DFSMSG , HELP NEEDED.
Code:

PARMLIST :
OPTION RESINV=0,ARESINV=0,MSGDDN=DFSMSG,SORTIN=CON,SORTDD=CTL5,DYNALLOC
WER038I  WARNING: SYNCSORT MVS IS NOT CERTIFIED TO RUN ON Z/OS. CONTACT SYNC
WER428I  CALLER-PROVIDED IDENTIFIER IS "0005"
WER164B  29,724K BYTES OF VIRTUAL STORAGE AVAILABLE, MAX REQUESTED,
WER164B     0 BYTES RESERVE REQUESTED, 6,120K BYTES USED
WER146B  20K BYTES OF EMERGENCY SPACE ALLOCATED
WER188A  CON      IS D.A./DSCB NOT FOUND/OBTAIN FAILED
WER108I  CON      :  RECFM=     ; LRECL=      ; BLKSIZE=


JCL remains same except
Code:

//CTL1CNTL DD *
   OUTFIL FNAMES=T1,OUTREC=(1,31,24Z,8Z,46Z)
//CTL2CNTL DD *
   OUTFIL FNAMES=T2,OUTREC=(1,13,18Z,14,24,8Z,46Z)
//CTL3CNTL DD *
   OUTFIL FNAMES=T3,OUTREC=(1,13,18Z,24Z,14,8,46Z)
//CTL4CNTL DD *
   OUTFIL FNAMES=T4,OUTREC=(1,13,18Z,24Z,8Z,14,46)

_________________
Vivek,NJ

Db2,IDMS
Back to top
View user's profile Send private message Visit poster's website AIM Address Yahoo Messenger MSN Messenger
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12375
Topics: 75
Location: San Jose
PostPosted: Thu Oct 07, 2004 12:45 pm    Post subject: Reply with quote
vivek,

The fourth copy(CTL4CNTL) statement is trying copy fields from pos 64 for a length of 46 bytes. Since your input file is only 80 bytes it is out of range. I guess that 64 is a typo, it should 14.

Change that and re-run your job.

Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu
Back to top
View user's profile Send private message Send e-mail Visit poster's website
vivek
Beginner


Joined: 15 Jul 2004
Posts: 95
Topics: 11
Location: Edison,NJ
PostPosted: Thu Oct 07, 2004 12:59 pm    Post subject: Reply with quote
Kolusu, i fixed that. Now i am getting this error

Quote:
CTL5CNTL :
OPTION EQUALS
SORT FIELDS=(1,13,CH,A)
SUM FIELDS=(14,8,22,8,30,8,38,8,46,8,54,8,62,8,70,
8,78,8,86,8,94,8,102,8 ),FORMAT=BI
OUTFIL FNAMES=OUT
PARMLIST :
OPTION RESINV=0,ARESINV=0,MSGDDN=DFSMSG,SORTIN=CON,SORTDD=CTL5,DYNALLOC
WER038I WARNING: SYNCSORT MVS IS NOT CERTIFIED TO RUN ON Z/OS. CONTACT SYNCSOR
WER428I CALLER-PROVIDED IDENTIFIER IS "0005"
WER164B 29,724K BYTES OF VIRTUAL STORAGE AVAILABLE, MAX REQUESTED,
WER164B 0 BYTES RESERVE REQUESTED, 6,120K BYTES USED
WER146B 20K BYTES OF EMERGENCY SPACE ALLOCATED
WER188A CON IS D.A./DSCB NOT FOUND/OBTAIN FAILED
WER108I CON : RECFM= ; LRECL= ; BLKSIZE=
[/code]
_________________
Vivek,NJ

Db2,IDMS
Back to top
View user's profile Send private message Visit poster's website AIM Address Yahoo Messenger MSN Messenger
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12375
Topics: 75
Location: San Jose
PostPosted: Thu Oct 07, 2004 2:55 pm    Post subject: Reply with quote
Vivek,

since you have given file names to the DD names T1 -T4 you need to give the same names in the concatenation list also. Change your CON to the following and re-run the job

Code:

//CON      DD DSN=&&CASSTAT,DISP=(OLD,PASS),VOL=REF=*.T1
//         DD DSN=&&CHARGES,DISP=(OLD,PASS),VOL=REF=*.T2
//         DD DSN=&&CHADIS,DISP=(OLD,PASS),VOL=REF=*.T3
//         DD DSN=&&PARTY,DISP=(OLD,PASS),VOL=REF=*.T4


Hope this helps...

Cheers

Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu
Back to top
View user's profile Send private message Send e-mail Visit poster's website
vivek
Beginner


Joined: 15 Jul 2004
Posts: 95
Topics: 11
Location: Edison,NJ
PostPosted: Thu Oct 07, 2004 4:21 pm    Post subject: Reply with quote
Kolusu i get a return code S213 . i think it is not finding the dataset in the volume serial . anyway to fix this ?
Code:

EF237I 1146 ALLOCATED TO ARCHIVE#
DR326**  RESTORE ENDED WITH NO DATA SET SELECTED
DR316** RECALL DID NOT FIND REQUESTED DSN/DSG=SYS04281.T171608.RA000.JUMSB4Y1.
EF285I   FDRABR.ARCHIVE                               KEPT
EF285I   VOL SER NOS= SYSVOL.
EC143I 213-04,IFG0194D,JUMSB4Y1,PSTEP01,CON-0003,2154,WORK37,SYS04281.T171608.
ER999A JUMSB4Y1,        ,PSTEP01 -  UNSUCCESSFUL SORT 213 S REASON=00000004
EA995I SYMPTOM DUMP OUTPUT
YSTEM COMPLETION CODE=213  REASON CODE=00000004
TIME=17.16.12  SEQ=03971  CPU=0000  ASID=007C
PSW AT TIME OF ERROR  075C1000   80E763C2  ILC 2  INTC 0D
  NO ACTIVE MODULE FOUND

_________________
Vivek,NJ

Db2,IDMS
Back to top
View user's profile Send private message Visit poster's website AIM Address Yahoo Messenger MSN Messenger
NutCracker
Beginner


Joined: 13 Dec 2002
Posts: 45
Topics: 3
Location: 3rd Block from the SUN
PostPosted: Fri Oct 08, 2004 12:18 am    Post subject: Reply with quote
Try this & it should work ...

Code:

//CON      DD DSN=&&CASSTAT,DISP=(OLD,PASS)
//         DD DSN=&&CHARGES,DISP=(OLD,PASS)
//         DD DSN=&&CHADIS,DISP=(OLD,PASS)
//         DD DSN=&&PARTY,DISP=(OLD,PASS)
Back to top
View user's profile Send private message
Phantom
Data Mgmt Moderator
Data Mgmt Moderator


Joined: 07 Jan 2003
Posts: 1056
Topics: 91
Location: The Blue Planet
PostPosted: Fri Oct 08, 2004 2:19 am    Post subject: Reply with quote
Vivek,

Couple of corrections in your JCL.

Code:

//T1       DD DSN=&&CASSTAT,DISP=(NEW,PASS),SPACE=(CYL,(10,10),RLSE)
//T2       DD DSN=&&CHARGES,DISP=(NEW,PASS),SPACE=(CYL,(10,10),RLSE)
//T3       DD DSN=&&CHADIS,DISP=(NEW,PASS),SPACE=(CYL,(10,10),RLSE)
//T4       DD DSN=&&PARTY,DISP=(NEW,PASS),SPACE=(CYL,(10,10),RLSE)


The Temporary files are allocated as &&CASSTAT, &&CHARGES, &&CHADIS and &&PARTY but look at the concatenation for DD CON below. You reference these files as &T1, &T2, &T3 and &T4. change them back to &&CASSTAT, &&CHARGES etc... and run your jcl.

Cut & Paste Error. I think you copied kolusu's JCL when he pointed out that you need to use CON DD. But he created the temp files as &T1, &T2 etc...but yours are different.

Code:

//CON      DD DSN=&T1,DISP=(OLD,PASS),VOL=REF=*.T1
//         DD DSN=&T2,DISP=(OLD,PASS),VOL=REF=*.T2
//         DD DSN=&T3,DISP=(OLD,PASS),VOL=REF=*.T3
//         DD DSN=&T4,DISP=(OLD,PASS),VOL=REF=*.T4


Hope this helps,

Thanks,
Phantom
Back to top
View user's profile Send private message
Phantom
Data Mgmt Moderator
Data Mgmt Moderator


Joined: 07 Jan 2003
Posts: 1056
Topics: 91
Location: The Blue Planet
PostPosted: Fri Oct 08, 2004 2:25 am    Post subject: Reply with quote
Oops, I did not look at the second page of this thread. Please ignore my solution.

Phantom
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Utilities All times are GMT - 5 Hours
Goto page Previous  1, 2, 3, 4  Next
Page 3 of 4

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


MVSFORUMS
Powered by phpBB © 2001, 2005 phpBB Group