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

Syncsort Splice 0C7 Problem


IBM Mainframe Forums -> JCL & VSAM
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
balakrishna reddy

Active User


Joined: 13 Jul 2007
Posts: 128
Location: Guntur

PostPosted: Fri Feb 08, 2008 5:07 pm
Reply with quote

Hi All,

I need a sort card for alignment of below given records into a single record.

Code:

ASNAPPLT                       
                               
                       IBMSNAP_APPLYTRAIL
                               
ASNREGSR                       
                               
                        TYW_ASN_REGISTER 
                               
ASNSUBST                       
                               
                        IBMSNAP_SUBS_SET 
                               
BMITACA                         
                               
                        VBM_ANOC_CAT     



i need it to be like below

Code:


ASNAPPLT       IBMSNAP_APPLYTRAIL
ASNREGSR      TYW_ASN_REGISTER 
ASNSUBST      IBMSNAP_SUBS_SET 
BMITACA        VBM_ANOC_CAT     



record length is 133
and recfm is fb

first record length is max of characters 8 and second record always starts on 15 col of the file.
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 Feb 08, 2008 10:17 pm
Reply with quote

Here's a DFSORT/ICETOOL job that will do what you asked for:

Code:

//S1    EXEC  PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG  DD SYSOUT=*
//IN DD DSN=...  input file (FB/133)
//OUT DD DSN=...  output file (FB/133)
//TOOLIN DD *
SPLICE FROM(IN) TO(OUT) ON(135,8,ZD) WITH(15,119) USING(CTL1)
/*
//CTL1CNTL DD *
  OPTION COPY
  OMIT COND=(1,20,CH,EQ,C' ')
  INREC IFTHEN=(WHEN=INIT,
    OVERLAY=(134:SEQNUM,1,ZD,START=0,INCR=5,
             135:SEQNUM,8,ZD)),
   IFTHEN=(WHEN=(134,1,CH,EQ,C'0'),
    OVERLAY=(135:SEQNUM,8,ZD)),
   IFTHEN=(WHEN=NONE,
                OVERLAY=(143:SEQNUM,8,ZD,
                         135:135,8,ZD,SUB,143,8,ZD,TO=ZD,LENGTH=8))
   OUTFIL FNAMES=OUT,BUILD=(1,133)
/*
Back to top
View user's profile Send private message
balakrishna reddy

Active User


Joined: 13 Jul 2007
Posts: 128
Location: Guntur

PostPosted: Mon Feb 11, 2008 12:21 pm
Reply with quote

Hi Frank,

I have run the code, but soc7 is coming for it, Below i am mentioning the spool messages i got

Code:

SYT000I  SYNCTOOL RELEASE 1.5.3 - COPYRIGHT 2004  SYNCSORT INC.           
SYT001I  INITIAL PROCESSING MODE IS "STOP"                               
SYT002I  "TOOLIN" INTERFACE BEING USED                                   
                                                                         
           SPLICE FROM(IN) TO(OUT) ON(135,8,ZD) WITH(15,119) USING(CTL1) 
SYT020I  SYNCSORT CALLED WITH IDENTIFIER "0001"                           
Back to top
View user's profile Send private message
balakrishna reddy

Active User


Joined: 13 Jul 2007
Posts: 128
Location: Guntur

PostPosted: Mon Feb 11, 2008 12:24 pm
Reply with quote

Hi

Below is DFSMSG

Code:

CTL1CNTL :                                                                     
  OPTION COPY                                                                 
  OMIT COND=(1,20,CH,EQ,C' ')                                                 
  INREC IFTHEN=(WHEN=INIT,                                                     
    OVERLAY=(134:SEQNUM,1,ZD,START=0,INCR=5,                                   
             135:SEQNUM,8,ZD)),                                               
      IFTHEN=(WHEN=(134,1,CH,EQ,C'0'),                                         
        OVERLAY=(135:SEQNUM,8,ZD)),                                           
       IFTHEN=(WHEN=NONE,                                                     
                    OVERLAY=(143:SEQNUM,8,ZD,                                 
                             135:135,8,ZD,SUB,143,8,ZD,TO=ZD,LENGTH=8))       
       OUTFIL FNAMES=OUT,BUILD=(1,133)                                         
PARMLIST :                                                                     
OPTION RESINV=0,ARESINV=0,MSGDDN=DFSMSG,SORTIN=IN,SORTDD=CTL1,SORTOUT=OUT,DYNAL
OC,CMP=CLC,NOVLSHRT,EQUALS                                                     
SORT FIELDS=(00135,0008,ZD,A)                                                 
MODS E35=(SYNCT#35,4096,,N)                                                   


forgot to post
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: Mon Feb 11, 2008 9:40 pm
Reply with quote

My job runs fine with DFSORT's ICETOOL, but the SYT messages indicate you're using Syncsort's SYNCTOOL, not DFSORT's ICETOOL. I'm a DFSORT developer. DFSORT and Syncsort are competitive products. I'm happy to answer questions on DFSORT and DFSORT's ICETOOL, but I don't answer questions on Syncsort.
Back to top
View user's profile Send private message
balakrishna reddy

Active User


Joined: 13 Jul 2007
Posts: 128
Location: Guntur

PostPosted: Tue Feb 12, 2008 10:49 am
Reply with quote

Hi Dick,

Can you give me the solution using syncsort because we don't have dfsort in our shop.
Back to top
View user's profile Send private message
CICS Guy

Senior Member


Joined: 18 Jul 2007
Posts: 2146
Location: At my coffee table

PostPosted: Tue Feb 12, 2008 8:17 pm
Reply with quote

balakrishna reddy wrote:
Can you give me the solution using syncsort because we don't have dfsort in our shop.
Since Frank's solution did not raise any Syncsort errors (is this true?), you might have to talk with Syncsort as to why you got the 0C7 error.....
Try SyncSort Mainframe Product Services
201-930-8260
or
zos_tech@syncsort.com
Back to top
View user's profile Send private message
Alissa Margulies

SYNCSORT Support


Joined: 25 Jul 2007
Posts: 496
Location: USA

PostPosted: Wed Feb 13, 2008 9:36 pm
Reply with quote

Removing the OPTION COPY statement in this ICETOOL application should resolve the Abend0C7 in SyncSort and provide the desired output. Please let me know if you continue to encounter a problem and I would be happy to assist you further.
Back to top
View user's profile Send private message
balakrishna reddy

Active User


Joined: 13 Jul 2007
Posts: 128
Location: Guntur

PostPosted: Thu Feb 14, 2008 5:11 pm
Reply with quote

Thank you very much alissa, but how did it worked i am surprized icon_confused.gif
Back to top
View user's profile Send private message
acevedo

Active User


Joined: 11 May 2005
Posts: 344
Location: Spain

PostPosted: Thu Feb 14, 2008 10:39 pm
Reply with quote

in this thread I appear as the OP...and it's not true...why?
Quote:
Syncsort Splice 0C7 Problem
started at Tue Feb 12, 2008 8:03 pm by acevedo Replies: 8
Views: 185 JCL View latest post Thu Feb 14, 2008 4:41 pm
balakrishna reddy


what's more...I made a point becouse the title was about Syncsort and 'someone who belongs to the DFSORT team' was answering...and that answer
has disappeared too..

what's hapenning?
Back to top
View user's profile Send private message
William Thompson

Global Moderator


Joined: 18 Nov 2006
Posts: 3156
Location: Tucson AZ

PostPosted: Thu Feb 14, 2008 10:46 pm
Reply with quote

acevedo wrote:
in this thread I appear as the OP...and it's not true...why?
Minor thread manipulation, Don't worry about it.....
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 Feb 15, 2008 12:46 am
Reply with quote

Quote:
what's more...I made a point becouse the title was about Syncsort and 'someone who belongs to the DFSORT team' was answering.


The Subject did NOT originally mention Syncsort. If it had, I wouldn't have posted a DFSORT solution. The Subject was changed to mention Syncsort AFTER I posted my solution.

To whoever is deleting posts from this topic - please stop it!

I've posted twice here about why I used the OPTION COPY statement that works fine with DFSORT's ICETOOL (copy is more efficient than sort) and my post has been deleted both times. I thought this information was relevant given that my DFSORT/ICETOOL job is shown here with OPTION COPY, but you don't seem to agree. I don't like the implication that my job as posted doesn't work - it does work with DFSORT and I think I have the right to point that out. If you insist on removing my posts about my DFSORT job, then you should just remove my DFSORT job. This is really starting to get annoying.
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 Compare only first records of the fil... SYNCSORT 7
No new posts Map Vols and Problem Dataset All Other Mainframe Topics 2
No new posts Join multiple records using splice DFSORT/ICETOOL 5
No new posts z/vm installation problem All Other Mainframe Topics 0
No new posts Job scheduling problem. JCL & VSAM 9
Search our Forums:

Back to Top