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.
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
******************************************************
