The working storage section is:
05 WS-INFO OCCURS 103 TIMES
INDEXED BY A1.
10 PROD-D1 PIC X(15).
10 CASH-2 PIC S9(05)V99 COMP-3.
10 CASH-REFUND PIC S9(05)V99 COMP-3.
10 CASH-NET PIC S9(05)V99 COMP-3.
I want to sort the WS-INFO is to be sorted in ascending sequence based on PROD-D1 field from 4th occurrence to 103rd occurrence.
Could you please suggest how to implement in the program. I want full code.