Issue in O/P Formatting

chinnielr · New User Joined: 11 Jul 2005 Posts: 87

Hi,

I am facing an issue with the below sort. DIFFERENCE Amount is not populating correctly.

I/P file has LRECL of 209.

Below is the I/P file LAYOUT

01 TOT-LINES
10 FILLER PIC X(21) VALUE SPACES.
10 TYPE PIC X(11) VALUE SPACES.
10 DR-AMT PIC Z,ZZZ,ZZZ,ZZZ,ZZZ.99
10 FILLER PIC X(01) VALUE SPACES.
10 CR-AMT PIC Z,ZZZ,ZZZ,ZZZ,ZZZ.99
10 FILLER PIC X(01) VALUE SPACES.
10 TOT-AMT PIC Z,ZZZ,ZZZ,ZZZ,ZZZ.99
10 FILLER PIC X(02) VALUE SPACES.
10 DBCR PIC X(02) VALUE SPACES.
10 FILLER PIC X(97) VALUE SPACES.
10 ID PIC X(10) VALUE SPACES.
10 NUMBER PIC X(04) VALUE SPACES.

My O/P report should look like

1PROGRAM : TESTPGM
CASE : SUMRY
NUM : REPORT RUN - INFO NOT SENT

ID NO DR AMT CR AMT DIFF STAT EN STAT

AAAAAAAAA 1111 100.00 200.00 50.00CR NO BAL CREATE
BBBBBBBBB 2222 200.00 200.00 20.00DR NO BAL CREATE
------------ ---------- ---------
GRAND TOTAL 300.00 400.00 30.00DR
======= ===== =====

TEST REPORT
ABCDEF COMPANY SERVICES
***** END OF REPORT *****

Below is my sort card

SORT FIELDS=(02,10,CH,A,22,04,CH,A)
OUTFIL HEADER2=(001:'PROGRAM : TESTPGM',
083:'ABCDEF COMPANY SERVICES',
001:'NUM : REPORT RUN - INFO NOT SENT',//,
001:'ID',
021:'NO',
040:'DR AMT',
060:'CR AMT',
081:'DIFF',
099:'STAT',
114:'EN STAT',/),
SECTIONS=(196,10,
TRAILER3=(/,33:'---------------------',
54:'---------------------',
75:'---------------------',
/,21:GRAND TOTAL',
33:TOT=(33,20,UFF,M2,LENGTH=20),
54:TOT=(54,20,UFF,M2,LENGTH=20),
75:TOT=(75,20,UFF,M2,LENGTH=20), /,33:'============',
54:'============',
75:'============')),
TRAILER2=(53:'TEST REPORT',/,
50:'ABCDEF COMPANY SERVICES',/,
50:'***** END OF REPORT *****',/),
OUTREC=(01,02,10,
11:10C' ',
21:22,04,
25:07C' ',
32:33,20,
52:C' ',
53:54,20,
73:C' ',
74:75,20,
94:C' ',
95:96,2
97:2C' ',
99:100,14,
113:C' ',
114:115,19,
133:76C' ')

with this sort I am getting the value as 70.00 under DIFF column.

I need to have the value as 30.00DR under DIFF column in the O/P report.

Can you please help me in correcting this sort card

Please let me know if you need any other information.

O/P LRECL is 209.

Regards,
Chinni.

chinnielr · New User Joined: 11 Jul 2005 Posts: 87

Hi,

Forgot to mention, the RECFM is FBA for both O/P as well in I/P.

Regards,
Chinni.

Skolusu · Posted: Thu Feb 19, 2009 1:43 am

chinnielr,

Use the following Control cards