Portal | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Forum Index
 
Register
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
SEQNUM with TRA=ETOA in OUTREC

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> SYNCSORT
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    Post subject: SEQNUM with TRA=ETOA in OUTREC
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: 311
Location: Bamberg, Germany

PostPosted: Sat May 30, 2020 5:42 am    Post subject:
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: 311
Location: Bamberg, Germany

PostPosted: Sat May 30, 2020 5:56 am    Post subject:
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    Post subject:
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    Post subject:
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: 311
Location: Bamberg, Germany

PostPosted: Sat May 30, 2020 11:13 am    Post subject:
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    IBMMAINFRAMES.com Support Forums -> SYNCSORT All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Outrec IFTHEN builds data in wrong po... saikarthik94 DFSORT/ICETOOL 6 Sun Mar 01, 2020 2:14 pm
No new posts Divide and edit the sum - OutRec balaji81_k DFSORT/ICETOOL 5 Thu May 02, 2019 4:21 am
No new posts How to write 0 using outrec sprikitik SYNCSORT 3 Thu Oct 18, 2018 2:55 pm
No new posts OUTREC w. several IFTHEN variants Auryn DFSORT/ICETOOL 2 Thu Jul 19, 2018 8:11 pm
No new posts OUTREC OVERLAY different to INCREC ge... Joerg.Findeisen SYNCSORT 8 Fri Apr 27, 2018 2:11 am

Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us