Quantcast
Channel: IBM Mainframe Computers Forums
Viewing all articles
Browse latest Browse all 9405

DFSORT/ICETOOL :: RE: Creating a dynamic sort card in JCL using sort

$
0
0
Author: mistah kurtz
Posted: Fri Aug 05, 2016 7:01 pm (GMT 5.5)

Here is sample:
Code:

//STEP01   EXEC PGM=SORT                                           
//SORTIN   DD *                                                   
AAAAA                                                             
BBBBB                                                             
CCCCC                                                             
//SORTOUT  DD SYSOUT=*                                             
//SYSOUT   DD SYSOUT=*                                             
//SYSIN    DD *                                                   
  OPTION COPY                                                     
  OUTFIL REMOVECC,HEADER1=(C'SELECT * FROM EMP TABLE WHERE',80:X),
         BUILD=(C' NAME = ''',1,5,C'''',C'  OR',80:X),             
         TRAILER1=(C' NAME = ''',C'DUMMY',C'''',C' ;',80:X)       
/*                                                                 


Output:
Code:
SELECT * FROM EMP TABLE WHERE
 NAME = 'AAAAA'  OR           
 NAME = 'BBBBB'  OR           
 NAME = 'CCCCC'  OR           
 NAME = 'DUMMY' ;             


Understand it and modify according to your needs.

Thanks
K.


Viewing all articles
Browse latest Browse all 9405