Joined: 09 Mar 2011 Posts: 7309 Location: Inside the Matrix
You'll need to define your source field as SFF and convert it. Assuming you are going for odd/even record numbers, you can use a sequence number and various means to find that out, and put zero in one place value in another when "even", and value in one place zero in another when "odd" then SUM on the two fields.
While adding total amount to trailer after every record, I am unable to code exactly.Can anyone suggest me how can i add total amount to trailer? [/img][/code]
I am getting User abend 0016.Can anybody help me to out?
Code:
CTL1CNTL :
SORT FIELDS=(23,9,CH,D,33,2,CH,D,108,3,CH,D)
OUTFIL REMOVECC,NODETAIL,
HEADER1=(1:C'RUN DATE : ',DATE,
55:C'ANTHEM BLUE CROSS AND BLUE SHIELD',88:C' ',
160:C'PAGE:',&PAGE,/,
1:C'RUN TIME : ',TIME,
51:C'HIX SATURDAY RUN IMPACT AT MEMBER LEVEL ',/,
1:179C'-',/,
1:C'HCID',22:C'CONTRACT',32:C'DEPEND',39:C'MEMBER',
55:C'CLAIM ',80:C'GENDER',87:C'NTWRK',93:'PRODUCT',
101:C'ROUTE',107:C'ACCUMS',123:C'ACCUMS',134:C'REMARKS',/,
1:C'NUMBER',22:C'ID',32:C'NUMBER',39:C'F-NAME',
55:C'NUMBER',87:C'TYPE',93:'TYPE',
101:C'CODE',107:C'TYPE',117:C'TOTAL AMOUNT',/,
1:179C'-'),
SECTIONS=(23,9,33,2,108,3,
TRAILER3=(1,117,
118:TOT=(118,17,SFF,EDIT=(STTTTTT.TT),SIGNS=(,-)), TOTAL/CONVERT
135:34X))
TRAILER1=('TOTAL NUMBER OF UPDATED RECORDS: ',
*
COUNT=(M10,LENGTH=10),
*
55:C'TOTAL ACCUMS AMOUNT: ',
*
118:TOT=(118,17,SFF,EDIT=(STTTTTT.TT))),
*
OUTREC=(1:2,170,171:9X)
*
Code:
WER428I CALLER-PROVIDED IDENTIFIER IS "0001"
WER275A NO KEYWORDS FOUND ON CONTROL STATEMENT
WER275A NO KEYWORDS FOUND ON CONTROL STATEMENT
WER275A NO KEYWORDS FOUND ON CONTROL STATEMENT
WER275A NO KEYWORDS FOUND ON CONTROL STATEMENT
WER268A OUTREC STATEMENT : SYNTAX ERROR
WER211B SYNCSMF CALLED BY SYNCSORT; RC=0000
WER449I SYNCSORT GLOBAL DSM SUBSYSTEM ACTIVE
Joined: 09 Mar 2011 Posts: 7309 Location: Inside the Matrix
That A at the end of your RECFM indicates that the first byte of a record is an ANSI printer carriage-control byte. Your LRECL says 180, but you can only have 179 bytes of data. You use 180 bytes of data in OUTFIL OUTREC (which you should change to BUILD anyway, see here)