|
View previous topic :: View next topic
|
| Author |
Message |
juares castro
New User
Joined: 04 May 2012
Posts: 34
Location: Brazil
|
|
|
|
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 |
|
 |
Joerg.Findeisen
Senior Member
Joined: 15 Aug 2015
Posts: 1429
Location: Bamberg, Germany
|
|
|
|
Use code tags when presenting data. Show error msgs from the Job.
Where is that OUTREC statement placed? More details, better help..  |
|
| Back to top |
|
|
Joerg.Findeisen
Senior Member
Joined: 15 Aug 2015
Posts: 1429
Location: Bamberg, Germany
|
|
|
|
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 |
|
|
juares castro
New User
Joined: 04 May 2012
Posts: 34
Location: Brazil
|
|
|
|
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 |
|
|
juares castro
New User
Joined: 04 May 2012
Posts: 34
Location: Brazil
|
|
|
|
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 |
|
|
Joerg.Findeisen
Senior Member
Joined: 15 Aug 2015
Posts: 1429
Location: Bamberg, Germany
|
|
|
|
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 |
|
|
|
|
  |
All times are GMT + 6 Hours |
|
