Join this group to access featured content and participate in discussions related to all Syncsort Mainframe Products.

119 Members
Join Us!

Replies

  • it's possible, i make in this way:

    //**********************************************************************
    // SET DTMOV=170803                                                     
    // SET HLQ=DST                                                          
    //**********************************************************************
    //*--------------------------------------------------------------------*
    //CRIA0001 EXEC PGM=IEBGENER                                            
    //SYSPRINT DD SYSOUT=*                                                  
    //SYSUT1   DD *                                                         
    A                                                                       
      S                                                                     
      T                                                                     
      U                                                                     
    B                                                                       
      X                                                                     
      Y                                                                     
    //SYSUT2   DD DSN=&HLQ..TST.TSTF001A.TS01.D&DTMOV..SS000101,            
    //         DISP=(,CATLG),                                               
    //         UNIT=SYSDA,RECFM=FB,LRECL=62,                                
    //         AVGREC=K,SPACE=(62,(5,1),RLSE)                               
    //*--------------------------------------------------------------------*
    //SORT0002 EXEC PGM=SORT                                                
    //SYSOUT   DD SYSOUT=*                                                  
    //SORTIN   DD DSN=&HLQ..TST.TSTF001A.TS01.D&DTMOV..SS000101,            
    //         DISP=SHR                                                     
    //SORTOUT  DD DSN=&HLQ..TST.TSTF002A.TS01.D&DTMOV..SS000101,            
    //         DISP=(,CATLG),UNIT=(SYSDA,59),                               
    //         LRECL=062,RECFM=FB,DSORG=PS,                                 
    //         AVGREC=K,SPACE=(062,(001,001),RLSE)                          
    //SYSIN    DD *                                                         
     INREC IFTHEN=(WHEN=GROUP,                 /* CRIA GRUPO APARTIR HEADER
                   BEGIN=(001,01,BI,NE,X'40'),       /* MARCA LINHA DO HEADER     
                   PUSH=(01:001,01))                   /* SEPARA VARIAVEL           
      SORT FIELDS=COPY                                                      
       OUTFIL OMIT=(003,01,CH,EQ,C' ')                                      
    //**********************************************************************

    • It works fine!

      Have a nice weekend

This reply was deleted.

To access Syncsort Knowledge Base, visit:

My Support