MVSFORUMS.com

[bade_miya]

Hi all,
I am executing the following ezytrieve for calculating totals of a packed field and writing it into another output file. The get statement is failing. The line after GET INFILE is the error i am getting. If i use goto job, the code is working, but in that case, after end of file, the code below do while is not executing. Please help me out. Also please let me know if there is a sort solution for this.

Input file
----------
field1==>(alphanum 8-bytes)
field2==>(packed 5-bytes with 2 decimal points)

Output file
------------
Edited field to display totals of field 2 (13 bytes)

Ezytrieve Code
-----------------
[code:1:2fcad89df5]
FILE INFILE
EMP-NUMBER 01 08 A
DISCOUNT-AMNT 09 05 P 2 MASK '-,---,--9.99'
*
FILE TOTALSFL FB(13 0)
TOTAL-DISCOUNT 01 13 N 2 MASK '--,---,---,--9.99'
*
DUMMY W 1 A
WS-TOTALS W 13 N 2
*
JOB INPUT INFILE
*
DO WHILE NOT EOF INFILE
IF ((EMP-NUMBER

[kolusu]

bademiya,

When your using SFP (syncronised file processing) you don't have to use the GET statement. Your code is as simple as this.

[code:1:683899fe71]
JOB INPUT INFILE FINISH EOJ-REPORT

IF EMP-NUMBER
_________________
Kolusu
www.linkedin.com/in/kolusu

[bade_miya]

Hi Kolusu,
Thanks for the quick reply. But is there any way to get the output as say 123456.78 in my output file. If the mask will not work, is there any alternative for this? Also please let me know if there is a sort solution for this.

Thanks
bade_miya

[kolusu]

[kolusu]

bade_miya,

Easytrieve Reporting code:

[code:1:1066a61f9e]
//TOTALSFL DD DSN=YOUR SUM REPORT,
// DISP=(NEW,CATLG,DELETE),
// UNIT=SYSDA,
// SPACE=(TRK,(1,1),RLSE),
// DCB=(RECFM=FB,LRECL=16,BLKSIZE=0)
//*
//SYSIN DD *

FILE INFILE
EMP-NUMBER 01 08 A
DISCOUNT-AMNT 09 05 P 2

FILE TOTALSFL PRINTER

JOB INPUT INFILE

IF EMP-NUMBER
_________________
Kolusu
www.linkedin.com/in/kolusu

[bade_miya]

Hi Kolusu,
Thank you so much for that. You always give people more than they expect.


Thanks & Regards
Bade_miya