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 

Lost in Translation ICETOOL to SYNCSORT
Goto page 1, 2  Next
 
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Utilities
View previous topic :: View next topic  
Author Message
Samuel
Beginner


Joined: 12 Aug 2004
Posts: 38
Topics: 10
PostPosted: Mon Jun 27, 2005 11:34 am    Post subject: Lost in Translation ICETOOL to SYNCSORT Reply with quote
I am attempting to use some JCL that has been provided in an earlier JCL post.

http://www.mvsforums.com/helpboards/viewtopic.php?t=802&highlight=gdg

The main difference is that I am using SYNCSORT in place of ICETOOL.
I am getting the following error.

WER164B 1,028K BYTES OF VIRTUAL STORAGE AVAILABLE, MAX REQUESTED,
WER164B 0 BYTES RESERVE REQUESTED, 1M BYTES USED
WER267A SORT STATEMENT : STATEMENT NOT FOUND

Can anyone tell me where the problem lies?
Back to top
View user's profile Send private message
jayesh_g
Beginner


Joined: 14 Oct 2003
Posts: 2
Topics: 0
PostPosted: Mon Jun 27, 2005 12:56 pm    Post subject: Reply with quote
Try replacing "OPTION COPY" with "SORT FIELDS=COPY".

-Jayesh.
Back to top
View user's profile Send private message
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12376
Topics: 75
Location: San Jose
PostPosted: Mon Jun 27, 2005 2:43 pm    Post subject: Reply with quote
Samuel,

It would be helpful if you have posted the step which caused the error. Also please post the entire sysout messages. Also make sure that your control cards start from pos 2.

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
Samuel
Beginner


Joined: 12 Aug 2004
Posts: 38
Topics: 10
PostPosted: Mon Jun 27, 2005 4:00 pm    Post subject: Reply with quote
Code:

STMT NO. MESSAGE                                                       
        5 IEFC001I PROCEDURE SORT WAS EXPANDED USING SYSTEM LIBRARY SYS1.
ICH70001I PSX9040  LAST ACCESS AT 15:50:38 ON MONDAY, JUNE 27, 2005     
IEF236I ALLOC. FOR PS25J999 STEP01                                       
IGD101I SMS ALLOCATED TO DDNAME (SYSPRINT)                               
        DSN (SYS05178.T155256.RA000.PS25J999.L.H01       )               
        STORCLAS (SCSTD) MGMTCLAS (        ) DATACLAS (        )         
        VOL SER NOS= OFS057                                             
IEF237I JES2 ALLOCATED TO SYSIN                                         
IEF142I PS25J999 STEP01 - STEP WAS EXECUTED - COND CODE 0000             
IGD106I SYS05178.T155256.RA000.PS25J999.L.H01        PASSED,    DDNAME=SY
IEF285I   PSX9040.PS25J999.JOB08403.D0000101.?         SYSIN             
IEF373I STEP/STEP01  /START 2005178.1552                                 
IEF374I STEP/STEP01  /STOP  2005178.1552 CPU    0MIN 00.03SEC SRB    0MIN
IEF236I ALLOC. FOR PS25J999 SORT STEP02                                 
IEF237I JES2 ALLOCATED TO SYSOUT                                         
IEF237I DMY  ALLOCATED TO SYSPRINT                                       
IGD101I SMS ALLOCATED TO DDNAME (SYSLMOD )                               
        DSN (SYS05178.T155256.RA000.PS25J999.GOSET.H01   )
STORCLAS (SCSTD) MGMTCLAS (        ) DATACLAS (        )         
        VOL SER NOS= OFT006                                             
IGD101I SMS ALLOCATED TO DDNAME (SYSLIN  )                               
        DSN (SYS05178.T155256.RA000.PS25J999.LOADSET.H01 )               
        STORCLAS (SCSTD) MGMTCLAS (        ) DATACLAS (        )         
        VOL SER NOS= OFS059                                             
IGD101I SMS ALLOCATED TO DDNAME (SYSUT1  )                               
        DSN (SYS05178.T155256.RA000.PS25J999.SYSUT1.H01  )               
        STORCLAS (SCSTD) MGMTCLAS (        ) DATACLAS (        )         
        VOL SER NOS= OFS048                                             
IGD101I SMS ALLOCATED TO DDNAME (SORTWK01)                               
        DSN (SYS05178.T155256.RA000.PS25J999.R0183051    )               
        STORCLAS (SCSTD) MGMTCLAS (        ) DATACLAS (        )         
        VOL SER NOS= OFT035                                             
IGD101I SMS ALLOCATED TO DDNAME (SORTWK02)                               
        DSN (SYS05178.T155256.RA000.PS25J999.R0183052    )               
        STORCLAS (SCSTD) MGMTCLAS (        ) DATACLAS (        )         
        VOL SER NOS= OFT016                                             
IGD101I SMS ALLOCATED TO DDNAME (SORTWK03)                               
        DSN (SYS05178.T155256.RA000.PS25J999.R0183053    )
STORCLAS (SCSTD) MGMTCLAS (        ) DATACLAS (        )         
        VOL SER NOS= OFT001                                             
IEF237I JES2 ALLOCATED TO TOOLMSG                                       
IEF237I JES2 ALLOCATED TO DFSMSGG                                       
IGD103I SMS ALLOCATED TO DDNAME IN                                       
IGD101I SMS ALLOCATED TO DDNAME (TOOL    )                               
        DSN (SYS05178.T155256.RA000.PS25J999.T.H01       )               
        STORCLAS (SCSTD) MGMTCLAS (        ) DATACLAS (        )         
        VOL SER NOS= OFT021                                             
IGD101I SMS ALLOCATED TO DDNAME (INDD    )                               
        DSN (SYS05178.T155256.RA000.PS25J999.I.H01       )               
        STORCLAS (SCSTD) MGMTCLAS (        ) DATACLAS (        )         
        VOL SER NOS= OFT013                                             
IGD101I SMS ALLOCATED TO DDNAME (OUTDD   )                               
        DSN (SYS05178.T155256.RA000.PS25J999.O.H01       )               
        STORCLAS (SCSTD) MGMTCLAS (        ) DATACLAS (        )         
        VOL SER NOS= OFT047                                             
IEF237I JES2 ALLOCATED TO TOOLIN                                         
IEF237I JES2 ALLOCATED TO CTL1CNTL                                       
IEF142I PS25J999 SORT STEP02 - STEP WAS EXECUTED - COND CODE 0016
IEF285I   PSX9040.PS25J999.JOB08403.D0000108.?         SYSOUT           
IGD105I SYS05178.T155256.RA000.PS25J999.GOSET.H01    DELETED,   DDNAME=SY
IGD105I SYS05178.T155256.RA000.PS25J999.LOADSET.H01  DELETED,   DDNAME=SY
IGD105I SYS05178.T155256.RA000.PS25J999.SYSUT1.H01   DELETED,   DDNAME=SY
IGD105I SYS05178.T155256.RA000.PS25J999.R0183051     DELETED,   DDNAME=SO
IGD105I SYS05178.T155256.RA000.PS25J999.R0183052     DELETED,   DDNAME=SO
IGD105I SYS05178.T155256.RA000.PS25J999.R0183053     DELETED,   DDNAME=SO
IEF285I   PSX9040.PS25J999.JOB08403.D0000109.?         SYSOUT           
IEF285I   PSX9040.PS25J999.JOB08403.D0000110.?         SYSOUT           
IGD105I SYS05178.T155256.RA000.PS25J999.L.H01        DELETED,   DDNAME=IN
IGD106I SYS05178.T155256.RA000.PS25J999.T.H01        PASSED,    DDNAME=TO
IGD106I SYS05178.T155256.RA000.PS25J999.I.H01        PASSED,    DDNAME=IN
IGD106I SYS05178.T155256.RA000.PS25J999.O.H01        PASSED,    DDNAME=OU
IEF285I   PSX9040.PS25J999.JOB08403.D0000102.?         SYSIN             
IEF285I   PSX9040.PS25J999.JOB08403.D0000103.?         SYSIN             
IEF373I STEP/SORT    /START 2005178.1552                                 
IEF374I STEP/SORT    /STOP  2005178.1552 CPU    0MIN 00.01SEC SRB    0MIN
IEF237I 2065 ALLOCATED TO SYS00001                                       
IEF285I   SYS05178.T155258.RA000.PS25J999.R0183054     KEPT             
IEF285I   VOL SER NOS= OFT021.
IGD105I SYS05178.T155256.RA000.PS25J999.T.H01        DELETED,   DDNAME=TO
IEF237I 205D ALLOCATED TO SYS00002                                       
IEF285I   SYS05178.T155258.RA000.PS25J999.R0183055     KEPT             
IEF285I   VOL SER NOS= OFT013.                                           
IGD105I SYS05178.T155256.RA000.PS25J999.I.H01        DELETED,   DDNAME=IN
IEF237I 207F ALLOCATED TO SYS00003                                       
IEF285I   SYS05178.T155258.RA000.PS25J999.R0183056     KEPT             
IEF285I   VOL SER NOS= OFT047.                                           
IGD105I SYS05178.T155256.RA000.PS25J999.O.H01        DELETED,   DDNAME=OU
IEF201I PS25J999 SORT STEP02 - JOB TERMINATED BECAUSE OF CONDITION CODES
IEF375I  JOB/PS25J999/START 2005178.1552                                 
IEF376I  JOB/PS25J999/STOP  2005178.1552 CPU    0MIN 00.04SEC SRB    0MIN
Back to top
View user's profile Send private message
Samuel
Beginner


Joined: 12 Aug 2004
Posts: 38
Topics: 10
PostPosted: Mon Jun 27, 2005 4:02 pm    Post subject: Reply with quote
Code:

//*******************************************************************   
//*STEP02 PLACES LISTCAT ENTRIES IN A TEMP FILE.                  ***   
//*****************************************************************     
//STEP02   EXEC SORT                                                   
//TOOLMSG  DD   SYSOUT=*
//DFSMSGG  DD   SYSOUT=*                                               
//IN       DD   DSN=&L,DISP=(OLD,DELETE)                               
//TOOL     DD   DSN=&T,DISP=(,PASS),SPACE=(CYL,(5,5),RLSE),RECFM=FB     
//INDD     DD   DSN=&I,DISP=(,PASS),SPACE=(CYL,(5,5),RLSE),RECFM=FB     
//OUTDD    DD   DSN=&O,DISP=(,PASS),SPACE=(CYL,(5,5),RLSE),RECFM=FB     
//TOOLIN   DD   *                                                       
  COPY FROM(FB) USING(CTL1)                                             
//CTL1CNTL DD   *                                                       
  INCLUDE COND=(4,7,CH,EQ,C'NONVSAM')                                   
  OUTFIL FNAMES=TOOL,                                                   
  OUTREC=(C' COPY FROM(GDG',                                           
         SEQNUM,3,ZD,                                                   
         C')TO NEW',                                                   
         SEQNUM,3,ZD,C')',80:X)                                         
  OUTFIL FNAMES=INDD                                                   
  OUTREC=(C'//GDG',                                                     
         SEQNUM,3,ZD,3X,                                               
         C'DD',X,                                                       
         C'DISP=SHR,',                                                 
         C'DSN=',17,44,
         80:X)                                                         
  OUTFIL FNAMES=OUTDD,                                                 
  OUTREC=(C'//NEW',                                                     
         SEQNUM,3,ZD,3X,                                               
         C'DD',X,                                                       
         C'DSN=USERID.XXX.FILEB.',34,8,C','/,                           
         C'//',12X,D'DISP=(NEW,CATLG,DELETE),',/,                       
         C'//',12X,C'UNIT=SYSDA,',/,                                   
         C'//',12X,C'SPACE=(CYL,(5,1),RLSE)',                           
         80:X
/*
Back to top
View user's profile Send private message
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12376
Topics: 75
Location: San Jose
PostPosted: Mon Jun 27, 2005 5:01 pm    Post subject: Reply with quote
samuel,

*sigh* I asked you to post the SYSOUT messages, you posted JES messages. Any way please look at the JCL posted in the link and compare it with the one you posted. Hint look at the EXEC PGM statement and correct the mistake.

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


Joined: 12 Aug 2004
Posts: 38
Topics: 10
PostPosted: Tue Jun 28, 2005 9:24 am    Post subject: Reply with quote
Kolusu,

We don't need to code EXEC PGM at our shop because an EXEC SORT defaults to the system proclib.

SYNCSORT FOR Z/OS 1.1DN TPF3A U.S. PATENTS: 4210961, 5117495 (C) 20
I.S.D. DEPT OF FINANCE z/OS 1
PRODUCT LICENSED FOR CPU SERIAL NUMBER 13FCC, MODEL 2066 003
WER164B 1,028K BYTES OF VIRTUAL STORAGE AVAILABLE, MAX REQUESTED,
WER164B 0 BYTES RESERVE REQUESTED, 1M BYTES USED
WER267A SORT STATEMENT : STATEMENT NOT FOUND
Back to top
View user's profile Send private message
dneufarth
Beginner


Joined: 05 Apr 2005
Posts: 11
Topics: 0
PostPosted: Tue Jun 28, 2005 9:50 am    Post subject: Reply with quote
ICETOOL and SORT (ICEMAN) are not the same program.

SORT (ICEMAN or SYNCSORT) looks for a SORT control statement.


Dave
Back to top
View user's profile Send private message
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12376
Topics: 75
Location: San Jose
PostPosted: Tue Jun 28, 2005 10:07 am    Post subject: Reply with quote
Quote:

We don't need to code EXEC PGM at our shop because an EXEC SORT defaults to the system proclib.


Samuel,

*sigh* I am not sure as to how you drew conclusion that that pgm=synctool is same as running pgm=sort.

If you are running PGM=SORT then you are fine running a System proc for sort. However you are running the pgm SYNCTOOL and I am sure that your shop does not have a default system proc for it as synctool itself is an unsupported/undocumented utility from syncsort.

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


Joined: 12 Aug 2004
Posts: 38
Topics: 10
PostPosted: Tue Jun 28, 2005 11:40 am    Post subject: Reply with quote
That is unacceptable. I have just sent SyncSort an email. I'll let you know what they say.
Back to top
View user's profile Send private message
Frank Yaeger
Sort Forum Moderator
Sort Forum Moderator


Joined: 02 Dec 2002
Posts: 1618
Topics: 31
Location: San Jose
PostPosted: Tue Jun 28, 2005 12:31 pm    Post subject: Reply with quote
Quote:
synctool itself is an unsupported/undocumented utility from syncsort


For the record, DFSORT's ICETOOL is fully documented and fully supported (has been since 1991). Syncsort's SYNCTOOL only has a subset of the functions available with DFSORT's ICETOOL.

If anyone would like me to send them some documents prepared by the DFSORT Team that discuss what we see as the advantages of DFSORT, as well as considerations for migrating from Syncsort to DFSORT, send me an e-mail offline (yaeger@us.ibm.com). Please put "DFSORT" somewhere in your Subject line to catch my attention.
_________________
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
Samuel
Beginner


Joined: 12 Aug 2004
Posts: 38
Topics: 10
PostPosted: Wed Jun 29, 2005 12:31 pm    Post subject: Reply with quote
Well, SyncSort has not responded to my email.
Therefore I fell back on the master manual. Trail and Error.
Here is the code that satisfied me. I altered the following code :
changed COPY FROM(FB) to COPY FROM(IN)
deleted DD DSN=&C,DISP=(OLD,PASS)
added/altered C'DSN=',17,35,C',',/,
C'//',12X,C'LABEL=(1,SL)',
to INDD OUTREC
Any other changes are related to the differences in the utilities.

Code:

//PS25J999 JOB 12345678,                                               
// '6420,   ROBINSON    ',TIME=(01,59),MSGCLASS=X,COND=(0,NE)           
//*******************************************************************   
//*STEP01 PLACES LISTCAT ENTRIES IN A TEMP FILE.                  ***   
//*******************************************************************   
//STEP01   EXEC PGM=IKJEFT01                                           
//SYSTSPRT DD  DSN=&L,                                                 
//             DISP=(,PASS),                                           
//             UNIT=3390,                                               
//             SPACE=(CYL,(1,1),RLSE),                                 
//             DCB=(LRECL=80,RECFM=FB,BLKSIZE=0)                       
//SYSTSIN  DD *                                                         
  LISTCAT ENT('XX.XX.XXXXXX.XXXXXXX.XXXXX')NAME                         
/*                                                                     
//*******************************************************************   
//*STEP02 TAKE THE OUTPUT FROM THIS STEP AND CREATE 3 FILES FOR    **   
//*       COPYING THE GDG.                                         **   
//*******************************************************************   
//STEP02   EXEC PGM=SYNCTOOL
//SYSDUMP  DD   SYSOUT=*                                               
//TOOLMSG  DD   SYSOUT=*                                               
//SSMSG    DD   SYSOUT=*                                               
//IN       DD   DSN=&L,DISP=(OLD,DELETE)                               
//TOOL     DD   DSN=&T,DISP=(,PASS),SPACE=(CYL,(5,5),RLSE),RECFM=FB     
//INDD     DD   DSN=&I,DISP=(,PASS),SPACE=(CYL,(5,5),RLSE),RECFM=FB     
//OUTDD    DD   DSN=&O,DISP=(,PASS),SPACE=(CYL,(5,5),RLSE),RECFM=FB     
//TOOLIN   DD   *                                                       
 COPY FROM(IN) USING(CTL1)                                             
//CTL1CNTL DD   *                                                       
 INCLUDE COND=(4,7,CH,EQ,C'NONVSAM')                                   
 OUTFIL FNAMES=TOOL,                                                   
 OUTREC=(C' COPY FROM(GDG',                                             
         SEQNUM,3,ZD,                                                   
         C') TO(NEW',                                                   
         SEQNUM,3,ZD,C')',80:X)                                         
 OUTFIL FNAMES=INDD,                                                   
 OUTREC=(C'//GDG',                                                     
         SEQNUM,3,ZD,3X,                                               
         C'DD',X,
         C'DISP=SHR,',                                                 
         C'DSN=',17,35,C',',/,                                         
         C'//',12X,C'LABEL=(1,SL)',                                     
         80:X)                                                         
 OUTFIL FNAMES=OUTDD,                                                   
 OUTREC=(C'//NEW',                                                     
        SEQNUM,3,ZD,3X,                                                 
        C'DD',X,                                                       
        C'DSN=PS.CR.TEST.MONTHLY.BKUP2',43,9,C',',/,                   
        C'//',12X,C'DISP=(NEW,CATLG,DELETE),',/,                       
        C'//',12X,C'UNIT=SYSDA,',/,                                     
        C'//',12X,C'SPACE=(CYL,(100,5),RLSE)',                         
        80:X)                                                           
/*                                                                     
//*******************************************************************   
//*STEP03  MERGE ALL THESE 3 FILES WITH A JOB CARD AND SUBMIT TO   **   
//*        THE INTRDR.                                             **   
//*******************************************************************   
//STEP30   EXEC PGM=ICEMAN                                             
//SYSDUMP  DD SYSOUT=*
//SYSOUT   DD SYSOUT=*                                                 
//SYSIN    DD *                                                         
   OPTION COPY                                                         
/*                                                                     
//SORTOUT DD SYSOUT=(*,INTRDR)                                         
//SORTIN  DD DATA,DLM=$$                                               
//PS25000  JOB 'COPY',                                                 
//             'XXXX',                                                 
//             CLASS=A,                                                 
//             MSGCLASS=X,                                             
//             MSGLEVEL=(1,1)                                           
//*******************************************************************   
//*STEP04  COPY GDG OFFSPRING TO ANOTHER BASE.                     **   
//*******************************************************************   
//STEP04  EXEC PGM=SYNCTOOL                                             
//SYSDUMP DD SYSOUT=*                                                   
//TOOLMSG DD SYSOUT=*                                                   
//SSMSG   DD SYSOUT=*                                                   
//TOOLIN  DD *                                                         
$$
//        DD DSN=&T,DISP=(OLD,PASS)                                     
//        DD DSN=&I,DISP=(OLD,PASS)                                     
//        DD DSN=&O,DISP=(OLD,PASS)                                     
/*
Back to top
View user's profile Send private message
Samuel
Beginner


Joined: 12 Aug 2004
Posts: 38
Topics: 10
PostPosted: Wed Jun 29, 2005 12:53 pm    Post subject: Reply with quote
Frank,

Your argument for DFSORT over SYNCSORT is undeniable, and it remains unchallanged. I honestly do not know why the state of Alabama has chosen SYNCSORT. All I have been told is that SyncSort is "better"...

How do they arrive at that conclusion(Rhetorical) ?

I have not asked them that.
Back to top
View user's profile Send private message
Frank Yaeger
Sort Forum Moderator
Sort Forum Moderator


Joined: 02 Dec 2002
Posts: 1618
Topics: 31
Location: San Jose
PostPosted: Wed Jun 29, 2005 1:06 pm    Post subject: Reply with quote
Samuel,

Well, if you want the documents I mentioned as ammunition for refuting that unsubstantiated claim, drop me an e-mail and I'll send them to you.
_________________
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
Samuel
Beginner


Joined: 12 Aug 2004
Posts: 38
Topics: 10
PostPosted: Tue Jul 05, 2005 1:03 pm    Post subject: Reply with quote
A SyncSort represenative contaced me today. They told me that they do not currently have documentation for SyncTool. They claim that SyncSort can be coded to perform any function that one can render from SyncTool/IceTool.

I have submitted the JCL to them, and I have requested that they either

A) Provide some sort of SyncSort alternative
or
B) Provide some documentation for SyncTool
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 1, 2  Next
Page 1 of 2

 
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