Re: [SYSTEM21] Inventory interface

["Russell Conerly" <rconerly@xxxxxxxxxxx>]

Neil,
Give this a try.  Your mileage may vary.

Regards,
Russell Conerly
Tupelo, MS



C                   MOVEL(P)  Company       D#CONO
C                   MOVE      *BLANKS       D#STRC
C                   MOVEL(P)  LOTNumber     U#LTNO
C                   Z-ADD     Weight/Qty    U#PLAN
C                   Z-ADD     Weight/Qty    U#ACTL
C                   MOVEL(P)  UOM           U#UNIT
C                   MOVEL(P)  YourProfileID U#PFID
C                   MOVE      *BLANKS       U#REFN
C                   Z-ADD     InternalDate  U#REFD
C                   MOVEL(P)  'O'           U#TRAN
C                   MOVEL(P)  WhseCode      U#TOFR
C                   MOVE      Narrative     U#NARR

C                   MOVEL(P)  Reasoncode    U#RSCD
C                   Z-ADD     0             U#COST
C                   Z-ADD     0             U#PRIC
C                   MOVE      *BLANKS       U#MOVT
C                   MOVE      *BLANKS       U#PKTP
C                   Z-ADD     0             U#DTEX
C                   MOVE      *BLANKS       U#CONS
C                   MOVEL(P)  'I'           U#SRCE
C                   MOVEL(P)  PGMName       U#USID
C                   MOVEL(P)  PGMName       U#WSID
C                   Z-ADD     0             U#MCST
C                   Z-ADD     0             U#MVAL
C                   Z-ADD     0             U#WEEK
C                   Z-ADD     0             U#PERD
C                   MOVEL(P)  whsecode      U#WHSF
C                   MOVE      *BLANKS       U#WHST
C                   MOVEL(P)  Item          D#PNUM

C                   Z-ADD     MvmntDate     U#DTMV
C                   MOVE      *BLANKS       U#PLUN
C                   Z-ADD     Weight        U#WPLN
C                   Z-ADD     Weight        U#WACT
C                   MOVEL(P)  WeightUOM     U#CWUM
C                   MOVEL(P)  '1'           U#CACT


C                   OUT       LDA
C                   CALL      'IN070'


> I need to post some Inventory movements from an external program.  Does
> anyone have a document detailing use of IN070 please.   The bit I'm mainly
> interested in is instructions for loading the various LDA fields prior to
> calling the program.
>
> Thanks in advance,
>
> Neil.
>
> _____________________________________________________________________
> This transmission and any attachments are confidential and are intended
> solely for the named addressee (s). If you are not the addressee, please
> do not read, copy, use or disclose this transmission and please notify us
> immediately by telephone on
> +44 (0) 1670 594848 or by reply.  Please then delete this transmission
> from your system.
>
> Although we have taken steps to ensure that this email and attachments are
> free from viruses, we advise that in keeping with good computing practice
> the recipient must ensure that they in fact are virus free.
>
> No contracts may be concluded on behalf of Fone Logistics LTD by means of
> email communications.
>
> _______________________________________________
> This is the System 21 Users (SYSTEM21) mailing list
> To post a message email: SYSTEM21@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/system21
> or email: SYSTEM21-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/system21.
>
>