|
View previous topic :: View next topic
|
| Author |
Message |
balakrishna reddy
Active User
Joined: 13 Jul 2007
Posts: 128
Location: Guntur
|
|
|
|
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 |
|
 |
Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005
Posts: 7129
Location: San Jose, CA
|
|
|
|
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 |
|
|
balakrishna reddy
Active User
Joined: 13 Jul 2007
Posts: 128
Location: Guntur
|
|
|
|
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 |
|
|
balakrishna reddy
Active User
Joined: 13 Jul 2007
Posts: 128
Location: Guntur
|
|
|
|
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 |
|
|
Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005
Posts: 7129
Location: San Jose, CA
|
|
|
|
| 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 |
|
|
balakrishna reddy
Active User
Joined: 13 Jul 2007
Posts: 128
Location: Guntur
|
|
|
|
Hi Dick,
Can you give me the solution using syncsort because we don't have dfsort in our shop. |
|
| Back to top |
|
|
CICS Guy
Senior Member
Joined: 18 Jul 2007
Posts: 2146
Location: At my coffee table
|
|
|
|
| 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
[email protected] |
|
| Back to top |
|
|
Alissa Margulies
SYNCSORT Support
Joined: 25 Jul 2007
Posts: 496
Location: USA
|
|
|
|
| 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 |
|
|
balakrishna reddy
Active User
Joined: 13 Jul 2007
Posts: 128
Location: Guntur
|
|
|
|
Thank you very much alissa, but how did it worked i am surprized  |
|
| Back to top |
|
|
acevedo
Active User
Joined: 11 May 2005
Posts: 344
Location: Spain
|
|
|
|
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 |
|
|
William Thompson
Global Moderator
Joined: 18 Nov 2006
Posts: 3156
Location: Tucson AZ
|
|
|
|
| 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 |
|
|
Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005
Posts: 7129
Location: San Jose, CA
|
|
|
|
| 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 |
|
|
|
|
  |
All times are GMT + 6 Hours |
|
