Re: Parameter change for AMVATP0R

 Thanks Mat!!!!  You rock!!!!   Have a great day!!!!


Lloyd H. Degnon
I.S. Manager
AmPro Computers, Inc.
5215 Hellyer Ave.
Building #110
San Jose, CA 95138
(408) 360-4365
ldegnon@xxxxxxxxx 
www.AmPro.com 


-----Original Message-----
From: mapics-l-bounces@xxxxxxxxxxxx
[mailto:mapics-l-bounces@xxxxxxxxxxxx] On Behalf Of Matt Spies
Sent: Monday, September 25, 2006 2:11 PM
To: MAPICS ERP System Discussion
Subject: Re: [MAPICS-L] Parameter change for AMVATP0R

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.


_______________________________________________
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.