IBM Mainframe Forum

//S1 EXEC PGM=SORT                                             
//SYSOUT DD SYSOUT=*                                           
//SORTIN DD *                                                   
16011986                                                       
//SORTOUT DD SYSOUT=*                                           
//SYSIN DD *                                                   
  OPTION COPY                                                   
  INREC IFTHEN=(WHEN=INIT,BUILD=(5,4,3,2,1,2)),                 
    IFTHEN=(WHEN=INIT,BUILD=(1,8,Y4T,SUBDAYS,+1034,TOGREG=Y4T)),
    IFTHEN=(WHEN=INIT,BUILD=(7,2,5,2,1,4,80:X))                 
/*                                                             

SYSIN :                                                         
  OPTION COPY                                                   
  INREC IFTHEN=(WHEN=INIT,BUILD=(5,4,3,2,1,2)),                 
    IFTHEN=(WHEN=INIT,BUILD=(1,8,Y4T,SUBDAYS,+1034,TOGREG=Y4T)),
                                 *                             
    IFTHEN=(WHEN=INIT,BUILD=(7,2,5,2,1,4,80:X))                 
WER268A  INREC STATEMENT   : SYNTAX ERROR                       
WER211B  SYNCSMF  CALLED BY SYNCSORT; RC=0000                   
WER449I  SYNCSORT GLOBAL DSM SUBSYSTEM ACTIVE