Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

Sort card to match fields
Goto page 1, 2  Next
 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL
View previous topic :: :: View next topic  
Author Message
Skss

New User


Joined: 16 Feb 2010
Posts: 46
Location: India

PostPosted: Tue Jul 31, 2012 3:15 pm    Post subject: Sort card to match fields
Reply with quote

Hi,

I have 2 files and file1 has 2 fields in it.
Structure of File 1
1) 15 char ID
2) 10 char source name

Structure of File 2
1) 15 char ID
2) 10 char source name
3) 40 char long Address

Requirement :
Find a match of 1st field of File 1 against File 2, if a match is found then update the 2nd field of file 1 into the 2nd field of File 2.
If a match is not found then add the record from File 1 into File 2.

Request you to suggest me if this can be done by SORT.
I tried the below code
Code:
//SYSIN    DD *                                       
  SORT FIELDS=COPY                                     
  INREC IFTHEN=(WHEN=(01,15,CH = XXXXXXXX),   
  OVERLAY=(85:C'YYYYYYYYYYYY'))

But not sure how to frame the condition because as per my requirement I need to compare the value of File1 against File 2 and then update or insert the record.

Request your response.
Back to top
View user's profile Send private message

dbzTHEdinosauer

Global Moderator


Joined: 20 Oct 2006
Posts: 6966
Location: porcelain throne

PostPosted: Tue Jul 31, 2012 3:34 pm    Post subject:
Reply with quote

Response:

start here with joinkeys

that will give you the syntax to join matching records as well as include the unmatched F1.

Or you could search the forum for examples (JOINKEY)

or you can wait until someone gives you the complete solution.
Back to top
View user's profile Send private message
Anuj Dhawan

Senior Member


Joined: 22 Apr 2006
Posts: 6258
Location: Mumbai, India

PostPosted: Tue Jul 31, 2012 3:36 pm    Post subject:
Reply with quote

Have you considered using JOINKEYS along with control cards?
Back to top
View user's profile Send private message
dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Tue Jul 31, 2012 7:04 pm    Post subject:
Reply with quote

Hello,

You have posted in the JCL part of the forum - which is where Syncsort topics are supported.

Which sort product are you using? The first part of the generated output will show which product is being used.
Back to top
View user's profile Send private message
Skss

New User


Joined: 16 Feb 2010
Posts: 46
Location: India

PostPosted: Tue Jul 31, 2012 8:04 pm    Post subject: Reply to: Sort card
Reply with quote

I tired the below code
Code:

//SYSIN DD *
 JOINKEYS F1=IN01,FIELDS=(1,15,A),SORTED
 JOINKEYS F2=IN02,FIELDS=(1,15,A),SORTED
 JOIN UNPAIRED
 REFORMAT FIELDS=(F1:1,80,F2:1,80)
 SORT FIELDS=COPY
 OUTFIL FNAMES=SORT01,BUILD(1,80)
//*

but the job failed and here was the error message
Code:

IEF403I QQSAM2S1 - STARTED - TIME=10.27.37
+ICE143I 0 QQSAM2S1.STEP1    BLOCKSET     COPY  TECHNIQUE SELECTED
+ICE250I 0 QQSAM2S1.STEP1    VISIT http://www.ibm.com/storage/dfsort FOR DFSORT
+ICE000I 1 QQSAM2S1.STEP1    - CONTROL STATEMENTS FOR 5694-A01, Z/OS DFSORT V1R1
+ICE056A 2 QQSAM2S1.STEP1    IN01     NOT DEFINED
+ICE751I 0 QQSAM2S1.STEP1    C5-K51707 C6-K51707 C7-K54603 E7-K51707
+ICE052I 3 QQSAM2S1.STEP1    END OF DFSORT
IEA995I SYMPTOM DUMP OUTPUT  330
  USER COMPLETION CODE=0016


Request your response
Back to top
View user's profile Send private message
Bill Woodger

DFSORT Moderator


Joined: 09 Mar 2011
Posts: 7223

PostPosted: Tue Jul 31, 2012 8:10 pm    Post subject: Reply to: Sort card
Reply with quote

For those cards you need DD statements for IN01 and IN02.
Back to top
View user's profile Send private message
dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Tue Jul 31, 2012 8:55 pm    Post subject:
Reply with quote

Hello,

When posting a problem like this, it is best to post all of the JCL and control statements used in the problem run, along with all of the generated diagnostics.

Good job using the code tag icon_cool.gif
Back to top
View user's profile Send private message
Skss

New User


Joined: 16 Feb 2010
Posts: 46
Location: India

PostPosted: Tue Jul 31, 2012 9:13 pm    Post subject: Reply to: Sort card
Reply with quote

As per Bill I modified the DDNAMES

My Sort step
Code:

//STEP1  EXEC PGM=SORT
//IN01 DD DSN=TB@XXXXX.TEST.SORT1,DISP=SHR
//IN02 DD DSN=TB@XXXXX.TEST.SORT2,DISP=SHR
//SYSIN DD *
 JOINKEYS F1=IN01,FIELDS=(1,15,A),SORTED
 JOINKEYS F2=IN02,FIELDS=(1,15,A),SORTED
 JOIN UNPAIRED
 REFORMAT FIELDS=(F1:1,80,F2:1,80)
 SORT FIELDS=COPY
 OUTFIL FNAMES=IN02,BUILD(1,80)
//*


Output
Code:

IEF403I QQSAM2S1 - STARTED - TIME=10.44.04
+ICE143I 0 QQSAM2S1.STEP1    BLOCKSET     COPY  TECHNIQUE SELECTED
+ICE250I 0 QQSAM2S1.STEP1    VISIT http://www.ibm.com/storage/dfsort FOR DFSORT
+ICE000I 1 QQSAM2S1.STEP1    - CONTROL STATEMENTS FOR 5694-A01, Z/OS DFSORT V1R1
+ICE411I 0 QQSAM2S1.STEP1    THIS IS THE JOINKEYS MAIN TASK FOR JOINING F1 AND F
+ICE416I 0 QQSAM2S1.STEP1    JOINKEYS IS USING THE F1 SUBTASK FOR IN01     - SEE
+ICE416I 1 QQSAM2S1.STEP1    JOINKEYS IS USING THE F2 SUBTASK FOR IN02     - SEE
+ICE419I 0 QQSAM2S1.STEP1    JOINED RECORDS: TYPE=F, LENGTH=160
+ICE201I G QQSAM2S1.STEP1    RECORD TYPE IS F - DATA STARTS IN POSITION 1
+ICE751I 0 QQSAM2S1.STEP1    C5-K51707 C6-K51707 C7-K54603 C8-K51707 E9-K51707 C
+ICE193I 0 QQSAM2S1.STEP1    ICEAM1 INVOCATION ENVIRONMENT IN EFFECT - ICEAM1 EN
+ICE089I 0 QQSAM2S1.STEP1    QQSAM2S1.STEP1   .        , INPUT LRECL = 160, TYPE
+ICE093I 0 QQSAM2S1.STEP1    MAIN STORAGE = (MAX,16777216,16777216)
+ICE156I 0 QQSAM2S1.STEP1    MAIN STORAGE ABOVE 16MB = (16719856,16719856)
+ICE235I 0 QQSAM2S1.STEP1    OPTIONS: NULLOUT=RC0
+ICE231I 0 QQSAM2S1.STEP1    STORAGE USED FOR OUTFIL : BELOW 16M = 20480, ABOVE
+ICE210I 0 QQSAM2S1.STEP1    IN02     : EXCP USED, LRECL = 80, BLKSIZE = 800, TY
+ICE751I 1 QQSAM2S1.STEP1    EF-K49535 CB-K90014 F0-K49038 E8-K51707
+ICE418A 3 QQSAM2S1.STEP1    JOINKEYS F1 SUBTASK FOR IN01     TERMINATED - SEE J
+ICE052I 0 QQSAM2S1.STEP1    END OF DFSORT
IEA995I SYMPTOM DUMP OUTPUT  948
  USER COMPLETION CODE=0016


Requesting your response
Back to top
View user's profile Send private message
Bill Woodger

DFSORT Moderator


Joined: 09 Mar 2011
Posts: 7223

PostPosted: Tue Jul 31, 2012 9:19 pm    Post subject: Reply to: Sort card
Reply with quote

It is not so good to actually try to update one of your input files, which you are doing with the IN02.

You don't have much code in there to carry out your requirement.

For the particular error, it is telling you to look at the message dataset from one of the JOINKEY subtasks. You'll need a couple of DDs for those, pointed to SYSOUT is convenient.
Back to top
View user's profile Send private message
Skss

New User


Joined: 16 Feb 2010
Posts: 46
Location: India

PostPosted: Tue Jul 31, 2012 9:25 pm    Post subject: Reply to: Sort card
Reply with quote

Forgot to post the sysout of the sort step

Code:

QQSAM2S1 ENDED. DESCRIP=AUTOMATION          ;   CPU TIME=   .00 MINS;   WALL TIM
 JOB/QQSAM2S1/START 2012213.1044
 JOB/QQSAM2S1/STOP  2012213.1044 CPU    0MIN 00.08SEC SRB    0MIN 00.00SEC
0 THIS IS THE JOINKEYS F1 SUBTASK FOR IN01
0 BLOCKSET     COPY  TECHNIQUE SELECTED
0 VISIT http://www.ibm.com/storage/dfsort FOR DFSORT PAPERS, EXAMPLES AND MORE
0 - CONTROL STATEMENTS FOR 5694-A01, Z/OS DFSORT V1R10 - 10:44 ON TUE JUL 31, 20
  MERGE FORMAT=BI,FIELDS=(1,15,A)
  RECORD TYPE=F
  DEBUG NOABEND,ESTAE
  OPTION EQUALS,MSGPRT=ALL,LIST,NOCHECK,RESINV=0,DYNALLOC,SORTDD=JNF1,MSG*
                 DDN=JNF1JMSG,SORTIN=IN01,COPY
G RECORD TYPE IS F - DATA STARTS IN POSITION 1
0 C5-K51707 C6-K51707 C7-K54603 C8-K51707 E9-K51707 C9-BASE   E5-K51707 E7-K5170
0 ICEAM2 INVOCATION ENVIRONMENT IN EFFECT - ICEAM2 ENVIRONMENT SELECTED
0 QQSAM2S1.STEP1   .        , INPUT LRECL = 80, BLKSIZE = 800, TYPE = FB
 MAIN STORAGE = (MAX,6291456,6291456)
 MAIN STORAGE ABOVE 16MB = (6234096,6234096)
 OPTIONS: OVFLO=RC0 ,PAD=RC0 ,TRUNC=RC0 ,SPANINC=RC16,VLSCMP=N,SZERO=Y,RESET=Y,
 OPTIONS: SIZE=6291456,MAXLIM=1048576,MINLIM=450560,EQUALS=N,LIST=Y,ERET=RC16 ,
 OPTIONS: VIO=N,RESDNT=ALL ,SMF=SHORT,WRKSEC=Y,OUTSEC=Y,VERIFY=N,CHALT=N,DYNALO
 OPTIONS: RESALL=4096,RESINV=0,SVC=109 ,CHECK=N,WRKREL=Y,OUTREL=Y,CKPT=N,COBEXI
 OPTIONS: TMAXLIM=6291456,ARESALL=0,ARESINV=0,OVERRGN=16384,CINV=Y,CFW=Y,DSA=0
 OPTIONS: VLSHRT=N,ZDPRINT=Y,IEXIT=N,TEXIT=N,LISTX=N,EFS=NONE    ,EXITCK=S,PARM
 OPTIONS: HIPRMAX=OPTIMAL,DSPSIZE=MAX ,ODMAXBF=0,SOLRF=Y,VLLONG=N,VSAMIO=N,MOSI
 OPTIONS: NULLOUT=RC0
 EXCP ACCESS METHOD USED FOR IN01
 EF-K49535 F0-K49038 E8-K51707
 IN01     (F1) KEY IS OUT OF SEQUENCE
 END OF DFSORT
 THIS IS THE JOINKEYS F2 SUBTASK FOR IN02
 BLOCKSET     COPY  TECHNIQUE SELECTED
 VISIT http://www.ibm.com/storage/dfsort FOR DFSORT PAPERS, EXAMPLES AND MORE
 - CONTROL STATEMENTS FOR 5694-A01, Z/OS DFSORT V1R10 - 10:44 ON TUE JUL 31, 20
 MERGE FORMAT=BI,FIELDS=(1,15,A)
 RECORD TYPE=F
 DEBUG NOABEND,ESTAE
 OPTION EQUALS,MSGPRT=ALL,LIST,NOCHECK,RESINV=0,DYNALLOC,SORTDD=JNF2,MSG*
                DDN=JNF2JMSG,SORTIN=IN02,COPY
 RECORD TYPE IS F - DATA STARTS IN POSITION 1
 C5-K51707 C6-K51707 C7-K54603 C8-K51707 E9-K51707 C9-BASE   E5-K51707 E7-K5170
 ICEAM2 INVOCATION ENVIRONMENT IN EFFECT - ICEAM2 ENVIRONMENT SELECTED
 QQSAM2S1.STEP1   .        , INPUT LRECL = 80, BLKSIZE = 800, TYPE = FB
 MAIN STORAGE = (MAX,6291456,6291456)
 MAIN STORAGE ABOVE 16MB = (6234096,6234096)
 OPTIONS: OVFLO=RC0 ,PAD=RC0 ,TRUNC=RC0 ,SPANINC=RC16,VLSCMP=N,SZERO=Y,RESET=Y,
 OPTIONS: SIZE=6291456,MAXLIM=1048576,MINLIM=450560,EQUALS=N,LIST=Y,ERET=RC16 ,
 OPTIONS: VIO=N,RESDNT=ALL ,SMF=SHORT,WRKSEC=Y,OUTSEC=Y,VERIFY=N,CHALT=N,DYNALO
 OPTIONS: RESALL=4096,RESINV=0,SVC=109 ,CHECK=N,WRKREL=Y,OUTREL=Y,CKPT=N,COBEXI
 OPTIONS: TMAXLIM=6291456,ARESALL=0,ARESINV=0,OVERRGN=16384,CINV=Y,CFW=Y,DSA=0
 OPTIONS: VLSHRT=N,ZDPRINT=Y,IEXIT=N,TEXIT=N,LISTX=N,EFS=NONE    ,EXITCK=S,PARM
 OPTIONS: HIPRMAX=OPTIMAL,DSPSIZE=MAX ,ODMAXBF=0,SOLRF=Y,VLLONG=N,VSAMIO=N,MOSI
 OPTIONS: NULLOUT=RC0
 EXCP ACCESS METHOD USED FOR IN02
 EF-K49535 F0-K49038 E8-K51707
 OUTPUT LRECL = 80, TYPE = F
 INSERT 0, DELETE 0
 RECORDS - IN: 1, OUT: 0
 END OF DFSORT
Back to top
View user's profile Send private message
dbzTHEdinosauer

Global Moderator


Joined: 20 Oct 2006
Posts: 6966
Location: porcelain throne

PostPosted: Tue Jul 31, 2012 9:48 pm    Post subject:
Reply with quote

Code:
JOINKEYS F1=IN01,FIELDS=(1,15,A),SORTED


Code:
IN01     (F1) KEY IS OUT OF SEQUENCE
Back to top
View user's profile Send private message
Skolusu

Senior Member


Joined: 07 Dec 2007
Posts: 2205
Location: San Jose

PostPosted: Tue Jul 31, 2012 10:15 pm    Post subject: Reply to: Sort card
Reply with quote

skss,

As DBZ pointed out, your records are out of sequence. You need to remove the SORTED keyword.

Use the following DFSORT JCL which will give you the desired results
Code:

//STEP0100 EXEC PGM=SORT                                       
//SYSOUT   DD SYSOUT=*                                         
//INA      DD *                                               
BBBBBBBBBBBBB  NEW ENTRY                                       
AAAAAAAAAAAAA  UPD-SOURC1                                     
//INB      DD *                                               
----+----1----+----2----+----3----+----4----+----5----+----6---
DDDDDDDDDDDDD  NOMATCH    SOME LONG ADDRESS2                   
AAAAAAAAAAAAA  BLAH BLAH  SOME LONG ADDRESS1                   
//SORTOUT  DD SYSOUT=*                                         
//SYSIN    DD *                                                   
  OPTION COPY                                                     
  JOINKEYS F1=INA,FIELDS=(1,15,A)                                 
  JOINKEYS F2=INB,FIELDS=(1,15,A)                                 
  JOIN UNPAIRED                                                   
  REFORMAT FIELDS=(F2:1,80,F1:1,80,?)                             
  INREC IFOUTLEN=80,                                             
  IFTHEN=(WHEN=(161,1,CH,EQ,C'B'),OVERLAY=(16:96,10)),           
  IFTHEN=(WHEN=(161,1,CH,EQ,C'1'),BUILD=(81,80))                 
//*


The output from this job is
Code:

AAAAAAAAAAAAA  UPD-SOURC1 SOME LONG ADDRESS1 
BBBBBBBBBBBBB  NEW ENTRY                     
DDDDDDDDDDDDD  NOMATCH    SOME LONG ADDRESS2 
Back to top
View user's profile Send private message
Skss

New User


Joined: 16 Feb 2010
Posts: 46
Location: India

PostPosted: Wed Aug 01, 2012 3:41 pm    Post subject: Reply to: Sort card
Reply with quote

Skolusu
thanks for your response
But I am not very clear on the IFTHEN condition which says
Code:

IFTHEN=(WHEN=([b]161[/b],1,CH,EQ,C'B'),OVERLAY=(16:96,10)),
IFTHEN=(WHEN=([b]161[/b],1,CH,EQ,C'1'),BUILD=(81,80))

Specifically the position 161 which is highlighted.
Both my input files length are 80.

I modified the card and ran it with 81 and it ran fine. But now I am observing that it is neither updating nor adding a new record, rather just copying the file 2 into the output

Please find my both input files , job and the output below

File 1
Code:

VIEW       TB@XXXXX.TEST.SORT1
Command ===>
****** *************************
000001 AAAAAAA        POSITION1
000002 BBBBBBB        POSITION2
000003 CCCCCCC        POSITION3
000004 DDDDDDD        POSITION9
000005 FFFFFFFFFF       POSITION6
****** *************************

File 2
Code:

VIEW       TB@PARTS.TEST.SORT2
Command ===>
****** ************************
000001 AAAAAAA        POSITION1
000002 BBBBBBB        POSITION2
000003 CCCCCCC        POSITION3
000004 DDDDDDD        POSITION4
000005 EEEEEEEEEE     POSITION5
****** ************************


JCL
Code:

000004 //STEP1  EXEC PGM=SORT
000005 //IN01 DD DSN=TB@XXXXX.TEST.SORT2,DISP=SHR
000006 //IN02 DD DSN=TB@XXXXX.TEST.SORT1,DISP=SHR
000007 //SORTOUT DD SYSOUT=*
000008 //SYSIN DD *
000009  OPTION COPY
000010  JOINKEYS F1=IN01,FIELDS=(1,15,A)
000011  JOINKEYS F2=IN02,FIELDS=(1,15,A)
000012  JOIN UNPAIRED
000013  REFORMAT FIELDS=(F1:1,80,F2:1,80,?)
000014  INREC IFOUTLEN=80,
000015  IFTHEN=(WHEN=(81,1,CH,EQ,C'B'),OVERLAY=(16:96,10)),
000016  IFTHEN=(WHEN=(81,1,CH,EQ,C'1'),BUILD=(81,80))
000017 //*


Output
Code:

IEF375I  JOB/QQSAM2S1/START 2012214.0601
IEF376I  JOB/QQSAM2S1/STOP  2012214.0601 CPU    0M
AAAAAAA        POSITION1
BBBBBBB        POSITION2
CCCCCCC        POSITION3
DDDDDDD        POSITION4
EEEEEEEEEE     POSITION5

ICE417I 0 THIS IS THE JOINKEYS F1 SUBTASK FOR IN01
ICE143I 0 BLOCKSET     SORT  TECHNIQUE SELECTED


Correct me if I am wrong
Back to top
View user's profile Send private message
dbzTHEdinosauer

Global Moderator


Joined: 20 Oct 2006
Posts: 6966
Location: porcelain throne

PostPosted: Wed Aug 01, 2012 3:47 pm    Post subject:
Reply with quote

your reformat fields instruction creates a 160 char record.

consider yourself corrected, because you are wrong.
Back to top
View user's profile Send private message
Bill Woodger

DFSORT Moderator


Joined: 09 Mar 2011
Posts: 7223

PostPosted: Wed Aug 01, 2012 4:10 pm    Post subject: Reply to: Sort card
Reply with quote

Did you try Kolusu's code, or just assume that you know better?

Please try Kolusu's code. If it didn't work with the information you had provided, how do you think Kolusu managed to show you sample output?

Your reformat record is 80+80+1. The 1 being the indicator as to the result of the join. If you change the 161 (used to get at the 1) to 81, you'll just be looking at the first byte of your second record, which is very unlikely to be any use for your task.
Back to top
View user's profile Send private message
Skss

New User


Joined: 16 Feb 2010
Posts: 46
Location: India

PostPosted: Wed Aug 01, 2012 4:15 pm    Post subject: Reply to: Sort card
Reply with quote

Dick,

Could you elaborate?
My Reformat field instructions say that the length of file1 and file2 are 80
If I change my reformat instruction, will that give me the desired output?

If I consider what you have said is correct and run my job with IFTHEN having position 161 then my job abends saying maximum length reached.
Back to top
View user's profile Send private message
dbzTHEdinosauer

Global Moderator


Joined: 20 Oct 2006
Posts: 6966
Location: porcelain throne

PostPosted: Wed Aug 01, 2012 4:18 pm    Post subject:
Reply with quote

Quote:
your reformat fields instruction creates a 160 char record.


whoops! SB 161, as Bill mentioned.
so I was wrong also, (only not as wrong as the TS) icon_neutral.gif
Back to top
View user's profile Send private message
Bill Woodger

DFSORT Moderator


Joined: 09 Mar 2011
Posts: 7223

PostPosted: Wed Aug 01, 2012 4:31 pm    Post subject: Reply to: Sort card
Reply with quote

Skss,

Post your complete JCL, control cards and sysout from the step which is "abending", please.

Your reformat record, again, is made of 80 bytes from F1, 80 bytes from F2 and one byte from the indicator of the result of the join. B = matched, 1 = F1 only, 2 = F2 only are the possible values, but what may be presented in particular step depends on the JOIN supplied (or defaulted to).

EDIT: After looking at Kolusu's code provided, reverse the F2 and F1 in the above.
Back to top
View user's profile Send private message
Skss

New User


Joined: 16 Feb 2010
Posts: 46
Location: India

PostPosted: Wed Aug 01, 2012 4:38 pm    Post subject: Reply to: Sort card
Reply with quote

Bill,

I tried the Skolusu code and got the below output
Code:

IEF375I  JOB/QQSAM2S1/START 2012214.0650
IEF376I  JOB/QQSAM2S1/STOP  2012214.0650 CPU    0M
AAAAAAA        POSITION1
BBBBBBB        POSITION2
CCCCCCC        POSITION3
DDDDDDD        POSITION9


ICE417I 0 THIS IS THE JOINKEYS F1 SUBTASK FOR IN01

It updated the record but when it found unmatched records then it is placing spaces rather than the record in it.

My JCL was
Code:

//STEP1  EXEC PGM=SORT
//IN01 DD DSN=TB@XXXXX.TEST.SORT2,DISP=SHR
//IN02 DD DSN=TB@XXXXX.TEST.SORT1,DISP=SHR
//SORTOUT DD SYSOUT=*
//SYSIN DD *
 OPTION COPY
 JOINKEYS F1=IN01,FIELDS=(1,15,A)
 JOINKEYS F2=IN02,FIELDS=(1,15,A)
 JOIN UNPAIRED
 REFORMAT FIELDS=(F1:1,80,F2:1,80,?)
 INREC IFOUTLEN=80,
 IFTHEN=(WHEN=(161,1,CH,EQ,C'B'),OVERLAY=(16:96,10)),
 IFTHEN=(WHEN=(161,1,CH,EQ,C'1'),BUILD=(81,80))
//*
**************************** Bottom of Data *********


Please help me to have the unmatched record written into the output
Back to top
View user's profile Send private message
Bill Woodger

DFSORT Moderator


Joined: 09 Mar 2011
Posts: 7223

PostPosted: Wed Aug 01, 2012 4:50 pm    Post subject: Reply to: Sort card
Reply with quote

Skss,

You weren't accurate in copying the work that Kolusu did for you. You then led me astray :-)

If you look at Kolusu's code, he has F2,1,80,F1,1,80,?

You put F1,1,80,F2,1,80,?

But didn't amend your code accordingly. Either correct the rest of your code so that it matches the REFORMAT record that you have created, or go back to Kolusu's REFORMAT record. Either method should work for you.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL All times are GMT + 6 Hours
Goto page 1, 2  Next
Page 1 of 2

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Limit duplicate records in the SORT pshongal SYNCSORT 6 Mon Nov 21, 2016 12:54 pm
No new posts How to convert the VBM file to VB or... Sulabh Agrawal JCL & VSAM 4 Fri Nov 18, 2016 1:04 pm
No new posts Match or compare two files in VB Format anatol DFSORT/ICETOOL 14 Thu Nov 03, 2016 7:41 pm
No new posts Access SQLCA fields inside a stored p... gangapd DB2 4 Thu Oct 27, 2016 10:20 am
No new posts Sort records based on numeric field. Alks SYNCSORT 2 Wed Oct 19, 2016 10:14 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us