What to do if available balances are not correct

$ ! @Select out records from REQ that should be added to .REQWRKAMT
$ !
$ RUN DMS:SORT
SORT V6.8-01 - DMS-Plus File Sorting Program 12:00 AM
Copyright (c) 2000, Campus America, Inc.
Data File Name <GENLED>? REQ

Fields to Sort (15 Maximum)
Level 1...Field? .GLACCT
Level 2...Field?
Sorting on 1 field specified.

Select out special records <NO>? YES

Criterion A
Field? .STATUS,.STATUS/SELECT=OR
Field .STATUS Low ? C/ONLY
Field .STATUS Low ? P/ONLY

Criterion B
Field? .NEWPONUM
Low ? /ONLY

Criterion C
Field? .TRANAMT
Low ? 0/ONLY

Criterion D
Field? .GLACCT
Low ? 18786440/any

Selection statement? A AND B AND (NOT C) AND D

 

$ !
$ !*********************************************************
$ !
$ ! @ ADD TO REQWRKAMT & SUBTRACT FROM WRKAVAIL
$ !
$ RUN DMS:TRANSFER
TRANSFER V6.8-02 - Information Transfer Program 12:00 AM
Copyright (c) 2000, Campus America, Inc.
Left-side Data File Name <REQ>? REQ
Right-side Data File Name? GENLED
Number of pointers in the Pointer file: 1
Does that seem correct <NO>? YES
Key Field Load <NO>? YES
Left-side file field to key on <1>? GLACCT
Number of Level Breaks <0>? 1
Level 1...Field? GLACCT
Command 1? .doc_category to test/neq=B/seton=1
Command 2? TRANAMT TO .REQWRKAMT/OV/ind=1
Field .REQWRKAMT is not updatable...Proceed anyway <NO>? yes
Command 3? TRANAMT TO .WRKAVAIL/-SUM/ind=1
Command 4?
Proceed with the Transfer <NO>? YES