Good News Everybody!
The new search engine is LIVE!
Please report any problems to david (at) midrange.com.
|
Here is a part of a CL we wrote to automatically run INV920 per warehouse
and/or global
DCL VAR(&PARM) TYPE(*CHAR) LEN(256)
DCL VAR(&PARM2) TYPE(*CHAR) LEN(256)
DCL VAR(&PARM3) TYPE(*CHAR) LEN(1)
CHGVAR VAR(&PARM3) VALUE('I')
CHGVAR VAR(&PARM2) VALUE('99')
CALL PGM(*LIBL/INV921B) PARM(&PARM3 &PARM &PARM2)
The above will run for warehouse "99"
CHGVAR VAR(&PARM3) VALUE('I')
CHGVAR VAR(&PARM2) VALUE(' ') - 2 blanks
CALL PGM(*LIBL/INV921B) PARM(&PARM3 &PARM &PARM2)
The above will run for all warehouses
Hope the above helps
Regards
Glen Hunter
Clover S.A.
This mailing list archive is Copyright 1997-2026 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.