Struggling with Continuation



IBM's flagship sort product DFSORT for sorting, merging, copying, data manipulation and reporting. Includes ICETOOL and ICEGENER

Re: Struggling with Continuation

Postby dick scherrer » Tue Sep 25, 2012 9:17 pm

Hello,

Does this mean it is now working?

If you post what you used to get the desired result, it will probably help someone else one day.
Hope this helps,
d.sch.
User avatar
dick scherrer
Global moderator
 
Posts: 6304
Joined: Sat Jun 09, 2007 8:58 am
Has thanked: 3 times
Been thanked: 91 times

Re: Re: Struggling with Continuation

 

Re: Struggling with Continuation

Postby Thomas Ramseier » Wed Sep 26, 2012 9:03 am

Hi Dick
I chose a "Dummy" INREC IFTHEN=(WHEN=INIT) to get the first line properly

//STEP0010 EXEC PGM=SORT                                         
//SORTIN   DD *                                                   
VID-PR06,VID38971                                                 
VID-XXXX,VIDYYYYY                                                 
/*                                                               
//SYSOUT   DD SYSOUT=*                                           
//TMPPRINT DD SYSOUT=*                                           
//TMPFILE1 DD DSN=&&TMPSYMB1,DISP=(,PASS),                       
//             UNIT=VIO,SPACE=(TRK,(1),RLSE),                     
//             LRECL=80,RECFM=FB                                 
//SORTOUT  DD SYSOUT=*                                           
//SYSIN DD *                                                     
  OPTION COPY                                                     
  OUTFIL FNAMES=(TMPFILE1,TMPPRINT),                             
  OUTREC=(16:C'IFTHEN=(WHEN=(57,8,SS,EQ,C''',1,8,C'''),'/,       
          24:C'OVERLAY=(57:C''',10,8,C''')),',                   
          80:X)                                                   
//*                                                               
//STEP0020 EXEC PGM=SORT                                         
//SYSOUT   DD SYSOUT=*                                           
//SORTIN   DD DISP=SHR,DSN=D948.QACCREL2.D12M04.STAGE05.DATA     
//SORTOUT  DD SYSOUT=*                                           
//SYSIN DD *                                                     
  INREC IFTHEN=(WHEN=INIT,                                       
        BUILD=(1,80)),                                           
//      DD DISP=SHR,DSN=&&TMPSYMB1     <- containing IFTHEN-stmts
//      DD *                                                     
        IFOUTLEN=80                   concatenate SYSIN           
        OPTION COPY                                               
*                                                                 


Cheers

Thomas
Thomas Ramseier
 
Posts: 16
Joined: Mon Sep 20, 2010 11:31 am
Has thanked: 0 time
Been thanked: 0 time

Re: Struggling with Continuation

Postby dick scherrer » Wed Sep 26, 2012 7:57 pm

Thank you for posting your solution :)

d
User avatar
dick scherrer
Global moderator
 
Posts: 6304
Joined: Sat Jun 09, 2007 8:58 am
Has thanked: 3 times
Been thanked: 91 times

Previous

Return to DFSORT/ICETOOL/ICEGENER