IBM Mainframe Forum

ABCDEFGHJ    XYZ=    1 
ABCD             XYZ=    4
ABCD             XYZ=    4
ABCDEFGH     XYZ=    2
ABCD             XYZ= 1006
ABCD%%         XYZ=10000
ABCD1212121 XYZ=   50

ABCDEFGHJ    XYZ=1  ie . to Left  JUSTIFY '5' collums  after XYZ=
ABCD             XYZ=4
ABCD             XYZ=4
ABCDEFGH     XYZ=2
ABCD             XYZ=1006
ABCD%%         XYZ=10000
ABCD1212121 XYZ=50

//EXCLUDE  EXEC PGM=SYNCTOOL                                     
//TOOLMSG  DD  SYSOUT=*                                         
//DFSMSG   DD  SYSOUT=*                                         
//INDD     DD  DISP=SHR,DSN=TEST.SORT5   
//OUTDD    DD  DISP=OLD,DSN=TEST.SORT6   
//SRT1CNTL DD  *                                               
   OPTION COPY                                                 
   OUTREC BUILD=(1,16,17,21,SQZ=(SHIFT=LEFT))                   
/*                                                             
//SYSPRINT DD  SYSOUT=*                                         
//TOOLIN   DD  *                                               
 COPY FROM(INDD) TO(OUTDD) USING(SRT1)                         
/*                                                             

SRT1CNTL :                                                                     
   OPTION COPY                                                         
   OUTREC BUILD=(1,16,17,21,SQZ=(SHIFT=LEFT))                                 
                            *                                                 
WER428I  CALLER-PROVIDED IDENTIFIER IS "0001"                                 
WER268A  OUTREC STATEMENT  : SYNTAX ERROR                                     
WER449I  SYNCSORT GLOBAL DSM SUBSYSTEM ACTIVE       

//SRT1CNTL DD  *                         
   OPTION COPY                           
   OUTREC IFTHEN=(WHEN=(17,4,CH,EQ,C' '),
                 BUILD=(1,16,21,1)),     
          IFTHEN=(WHEN=(17,3,CH,EQ,C' '),
                BUILD=(1,16,20,2)),       
          IFTHEN=(WHEN=(17,2,CH,EQ,C' '),
                BUILD=(1,16,19,3)),       
          IFTHEN=(WHEN=(17,1,CH,EQ,C' '),
                BUILD=(1,16,18,4))       
/*                                       
//SYSPRINT DD  SYSOUT=*                   
//TOOLIN   DD  *                         
 COPY FROM(INDD) TO(OUTDD) USING(SRT1)   
/*