|
<![CDATA[
** RETURN ALL SORT RECORDS AND MOVE THEM TO
** BD RECORD DESCRITION
**
3000-SO-020.
RETURN SORT-FILE AT END
MOVE SPACE TO PMW-SORTSEL
GO TO 3000-SORT-OUTPUT-EXIT.
]]>
<![CDATA[
***Modification to eliminate zero balances from
***print-out.
]]>
<![CDATA[
***MOD BEGINS
IF SORT-TOTAL = ZERO
GO TO 3000-SO-020.
***MOD ENDS
**
** IF WE HAVE A EXTERNAL PRINT THE ACCOUNT TOTALS
**
IF SAVE-EXTERNAL = SPACES AND PM-ACCTSEL = "X"
MOVE SORT-EXTERNAL TO SAVE-EXTERNAL.
]]>
|
Get your own Free Homepage 