|
midrange.com
Lloyd,
We got affected by that, too, when we upgraded from XA Rel 6 to Level
7412 this year. Hope this helps. I think you need more parameters!
And the LDA!
Matt
Dcl &File *Char ( 1 ) '1'
Dcl &Exist *Char ( 1 ) ' '
....
Dcl &CoNo *Dec ( 2 0 ) 1
Dcl &HdrTyp *Char ( 1 ) ' '
Dcl &Ordno *Char ( 7 ) ' '
Dcl &LinSeq *Dec ( 7 0 )
Dcl &RlsNo *Dec ( 5 0 )
Dcl &KtrSeq *Dec ( 5 0 )
Dcl &LDA *Char ( 1024 )
/* ---------------------------------------------------*/
/* POST 7412 CUM Update - Retrieve ZZLDA into the LDA */
/* This Option was working well... as long as you hit */
/* F3 = Exit. F12 = Cancel followed by another call to */
/* this program was resulting in an error */
/* ---------------------------------------------------*/
RtvDtaAra ZZLDA &LDA
/* =============================================================== */
/* = AMVATP0C - sets up work files = */
/* =============================================================== */
Call AMVATP0C +
( &File +
&Exist )
/* =============================================================== */
/* = AMVATP0R - does the work = */
/* =============================================================== */
CALL PGM(AMVATP0R) PARM(&WAREHS &ITEM &ORDQTY +
&REQUST &SHIPLT &PROMSE &DISPLY &APPCOD +
&ENTRY &MESSGE &CONO &HDRTYP &ORDNO +
&LINSEQ &RLSNO &KTRSEQ &LDA)
-----Original Message-----
From: mapics-l-bounces@xxxxxxxxxxxx
[mailto:mapics-l-bounces@xxxxxxxxxxxx] On Behalf Of Lloyd Degnon
Sent: Monday, September 25, 2006 4:53 PM
To: MAPICS ERP System Discussion
Subject: [MAPICS-L] Parameter change for AMVATP0R
Someone out there gave me code for AMVATP0R that I was able to put into
a CL to call up ATM from a menu option. This was a HUGE help and worked
great until I brought us up to MAPICS V2 R6 PTF 8104. Now I get AMVATP0R
99999999 referenced to a parameter not passed (C G S D F). Anyone have
any Ideas what changed??? This is the Code...
PGM
DCL &WAREHS *CHAR 3
DCL &ITNBR *CHAR 15
DCL &ORDERQ *DEC (10 3)
DCL &REQUST *DEC (7 0)
DCL &SHIPLT *DEC (2 0)
DCL &PROMSE *DEC (7 0)
DCL &DISPLY *DEC (1 0)
DCL &APPCD *CHAR 1
DCL &ENTRY *DEC (1 0)
DCL &MESSGE *DEC (1 0)
CHGVAR &WAREHS VALUE('1 ')
CHGVAR &ITNBR VALUE('8100001 ')
/* CHGVAR &ORDERQ VALUE(10.000) */
/* CHGVAR &REQUST VALUE(1060320) */
/* CHGVAR &PROMSE VALUE(1060320) */
CHGVAR &SHIPLT VALUE(00)
CHGVAR &DISPLY VALUE(2)
CHGVAR &APPCD VALUE('B')
CHGVAR &ENTRY VALUE(1)
CALL AMVATP0R PARM(&WAREHS &ITNBR &ORDERQ &REQUST &SHIPLT &PROMSE +
&DISPLY &APPCD &ENTRY &MESSGE)
ENDPGM
Lloyd H. Degnon
I.S. Manager
AmPro Computers, Inc.
5215 Hellyer Ave.
Building #110
San Jose, CA 95138
(408) 360-4365
ldegnon@xxxxxxxxx <mailto:ldegnon@xxxxxxxxx>
www.AmPro.com <http://www.ampro.com/>
_______________________________________________
This is the MAPICS ERP System Discussion (MAPICS-L) mailing list
To post a message email: MAPICS-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/mapics-l
or email: MAPICS-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/mapics-l.
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 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.
