IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

SEQNUM with TRA=ETOA in OUTREC


IBM Mainframe Forums -> SYNCSORT
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
juares castro

New User


Joined: 04 May 2012
Posts: 34
Location: Brazil

PostPosted: Sat May 30, 2020 5:40 am
Reply with quote

Hi everyone!
I have to insert a SEQNUM in a specific position in OUTREC.
I had OUTREC=(1,37,TRAN=ETOA) that works fine. Now I have to insert in position 22 a SEQUENCE with 9 positions.
I tryed:
1. OUTREC=((1,21,SEQNUM,9,ZD,22,16),TRAN=ETOA)
2. OUTREC=(1,21,TRAN=ETOA,SEQNUM,9,ZD,TRAN=ETOA,22,16,TRAN=ETOA)
both returns error (SYNTAXE).
Could You help me with this request?
Thanks.
Back to top
View user's profile Send private message
Joerg.Findeisen

Active User


Joined: 15 Aug 2015
Posts: 393
Location: Bamberg, Germany

PostPosted: Sat May 30, 2020 5:42 am
Reply with quote

Use code tags when presenting data. Show error msgs from the Job.

Where is that OUTREC statement placed? More details, better help.. icon_rolleyes.gif
Back to top
View user's profile Send private message
Joerg.Findeisen

Active User


Joined: 15 Aug 2015
Posts: 393
Location: Bamberg, Germany

PostPosted: Sat May 30, 2020 5:56 am
Reply with quote

May it be of help.

Code:
  OPTION COPY                                       
  INREC IFTHEN=(WHEN=INIT,OVERLAY=(22:SEQNUM,9,ZD)),
    IFTHEN=(WHEN=INIT,BUILD=(1,37,TRAN=ETOA))       
  END                                               
Back to top
View user's profile Send private message
juares castro

New User


Joined: 04 May 2012
Posts: 34
Location: Brazil

PostPosted: Sat May 30, 2020 6:54 am
Reply with quote

Hi!
Here the codes:
Code:


1st run:

  INREC IFTHEN=(WHEN=(1,5,CH,EQ,C'XXXXX'),             
        BUILD=(C'1',1,80)),                           
        IFTHEN=(WHEN=(1,1,CH,EQ,C' '),                 
        BUILD=(C'2',1,80)),                           
*                                                     
        IFTHEN=(WHEN=NONE,                             
        BUILD=(C'3',1,80))                             
*                                                     
  SORT FIELDS=(1,1,A,                                 
               2,11,A,                                 
               13,3,A,                                 
               16,5,A,                                 
               23,8,D,                                 
               31,8,D),                               
               FORMAT=BI                               
*                                                     
  SUM FIELDS=NONE                                     
*                                                     
  OUTREC IFTHEN=(WHEN=(1,1,ZD,EQ,L(1,2)),             
         BUILD=(2,80)),                               
*                                                     
         IFTHEN=(WHEN=NONE,                           
         BUILD=(2,11,                                 
                13,3,                                 
                16,5,                                 
*                                                     
                SEQNUM,2,ZD,                           
                START=0,                               
                INCR=1,                               
                RESTART=(2,19),                       
*                                                     
                23,8,31,8,43X))                       
*                                                     
  OUTFIL FNAMES=AAACSECT                               
*                                                     
  OUTFIL FNAMES=AAALINUX,                             
         INCLUDE=(1,5,CH,NE,C'XXXXX'),                 
          BUILD=(1,21,TRAN=ETOA,                       
                               *                       
                (SEQNUM,9,ZD),TRAN=ETOA,               
                22,16,TRAN=ETOA)                       
*                                                     
WER813I  INSTALLATION OPTIONS IN MFXPRMCT WILL BE USED
WER268A  OUTFIL STATEMENT  : SYNTAX ERROR             
WER211B  SYNCSMF  CALLED BY SYNCSORT; RC=0000         
WER449I  SYNCSORT GLOBAL DSM SUBSYSTEM ACTIVE         
*******************************************************


2nd run - here only part of OUTFIL
Code:

*                                                     
  OUTFIL FNAMES=AAALINUX,                             
         INCLUDE=(1,5,CH,NE,C'XXXXX'),               
          BUILD=((1,21,                               
                 *                                   
                 SEQNUM,9,ZD,                         
                22,16),TRAN=ETOA)                     
*                                                     
WER813I  INSTALLATION OPTIONS IN MFXPRMCT WILL BE USED
WER268A  OUTFIL STATEMENT  : SYNTAX ERROR             
WER211B  SYNCSMF  CALLED BY SYNCSORT; RC=0000         
WER449I  SYNCSORT GLOBAL DSM SUBSYSTEM ACTIVE         
******************************************************
Back to top
View user's profile Send private message
juares castro

New User


Joined: 04 May 2012
Posts: 34
Location: Brazil

PostPosted: Sat May 30, 2020 7:10 am
Reply with quote

Hummm, maybe I could code another SEQNUM here
Code:

         IFTHEN=(WHEN=NONE,                           
         BUILD=(2,11,                                 
                13,3,                                 
                16,5,                                 
*                                                     
                SEQNUM,2,ZD,                           
                START=0,                               
                INCR=1,                               
                RESTART=(2,19),                       
*                                                     
                SEQNUM,9,ZD,        <<== here
*
                23,8,31,8,43X))


and in OUTFIL set TRAN=ETOA where I have to.
I will try.
Back to top
View user's profile Send private message
Joerg.Findeisen

Active User


Joined: 15 Aug 2015
Posts: 393
Location: Bamberg, Germany

PostPosted: Sat May 30, 2020 11:13 am
Reply with quote

For your first run, please try to substitute as follows:

Code:
OUTFIL FNAMES=AAALINUX,                         
  INCLUDE=(1,5,CH,NE,C'XXXXX'),                 
  IFTHEN=(WHEN=INIT,OVERLAY=(22:SEQNUM,9,ZD)),   
  IFTHEN=(WHEN=INIT,BUILD=(1,37,TRAN=ETOA))
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> SYNCSORT

 


Similar Topics
Topic Forum Replies
No new posts Creating additional seqnum/Literal wh... DFSORT/ICETOOL 4
No new posts Outrec IFTHEN builds data in wrong po... DFSORT/ICETOOL 6
No new posts Divide and edit the sum - OutRec DFSORT/ICETOOL 5
No new posts How to write 0 using outrec SYNCSORT 3
No new posts OUTREC w. several IFTHEN variants DFSORT/ICETOOL 2
Search our Forums:

Back to Top