GPCHOLD

Copy all P.O. Group Hold Outs 

BOTH            K3SOBJ            'K3S Object library'                10A
BOTH            COMP              'Company'                            1A
BOTH            COMPCOD           'Company code'                       3A
BOTH            USER              'User calling the program'          10A
BOTH            ERRORS            'Error indicator'                    1A
BOTH            ERRMSG            'Error message'                    100A
BOTH            ERRFIELD          'Field in error'                    20A
BOTH            IDLOCN            'Host Location ID'                   5A
BOTH            IDHLDPON          'Hold PO #'                         10A
BOTH            IDHLDREAS         'Hold Reason Code'                  40A
BOTH            IDBEGIN           'Beginning Date'                    10A
BOTH            IDEND             'Ending Date'                       10A
BOTH            SBHLDREAS         'Hold Reason'                       15A
BOTH            SBBEGIN           'Begin  Date'                       10A
BOTH            SBEND             'Ending Date'                       10A
BOTH            SBLOCN            'Location ID'                        5A
BOTH            SBDLTFLG          'Delete Flag'                        1A
BOTH            SBHLDPON          'Hold PO #'                         10A 

Comments