Re: Using the printer overrides for a custom spool file

Here's a section of my code written ages ago to print ZPL to Zebra printers:

DCL        &CMD    TYPE(*CHAR)  LEN(512)
DCL        &ERROR  TYPE(*CHAR)  LEN(1)  

IF         COND(&MOPTN *EQ 03) THEN(DO)           
   CALL       PGM(AXZPO) PARM('SLBARLK' &ERROR &CMD)      
   IF         (&ERROR *EQ '0') THEN(DO)                   
      CALL       QCMDEXC PARM(&CMD 512)                   
   ENDDO                                                  
   CALL       BARSZLK                                     
ENDDO                                                     


However, my CMD is bigger, so it's possible you have truncation/conflict because you define it as 180, put pass using a 512 buffer?


Otherwise it might be your printer config in MAPICS.
Report  . . . . . . . . . . . . . :   SLBARLK                                  
                                                                               
Type information; press Enter.                                                 
                                                                               
Report description  . . . . . . . .   lockheed barcode labels                  
Printer file name . . . . . . . . :   BARPSZLK                                 
Group override . . . . .   MAPICS/DB  MAPICS XA OVERRIDE PRTF - GROUP RECORD   
Allow OUTQ override . . . . . . . .   N                                        
Allow attribute overrides . . . . .   N                                        
                                                                               
Override command  . . . . . . :   OVRPRTF FILE(BARPSZLK) TOFILE(*FILE) SPOOL(*YES) OUTQ(PRT09)                                                               







 

James LeLeux

IT Director: Cherry, Shur-Lok, & SPS Santa Ana

1224 East Warner Avenue

Santa Ana, CA 92705

Cell:  714-929-8063

[email protected]

 
-----Original Message-----
From: mapics-l-bounces-Zwy7GipZuJhWk0Htik3J/[email protected] [mailto:mapics-l-bounces-Zwy7GipZuJhWk0Htik3J/[email protected]] On Behalf Of [email protected]
Sent: Thursday, February 11, 2010 4:59 PM
To: mapics-l-Zwy7GipZuJhWk0Htik3J/[email protected]
Subject: [MAPICS-L] Using the printer overrides for a custom spool file

I'm looking for CL program that allows me to use the printer override 
defined in Mapics for a custom spool file,  I think the CL should be like 
this:


PGM 
   DCL        VAR(&CMD) TYPE(*CHAR) LEN(180) 
   DCL        VAR(&ERROR) TYPE(*CHAR) LEN(80) 
             CALL       PGM(AXZPO) PARM('OE022PL' &ERROR &CMD) 
                           IF         (&ERROR *EQ '0') THEN(DO) 
                              CALL       QCMDEXC PARM(&CMD 512) 
                           ENDDO 
 
                          CALL       OE022RBKTT 
                          ENDPGM 


but is not working... any help is appreciated ...thanks


Antonio Rojas
Manager Applications Development
Semtech Corp.
Cell.    (805) 216-4651
Office (805) 480-2135
_______________________________________________
This is the MAPICS ERP System Discussion (MAPICS-L) mailing list
To post a message email: MAPICS-L-Zwy7GipZuJhWk0Htik3J/[email protected]
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/mapics-l
or email: MAPICS-L-request-Zwy7GipZuJhWk0Htik3J/[email protected]
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-Zwy7GipZuJhWk0Htik3J/[email protected]
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/mapics-l
or email: MAPICS-L-request-Zwy7GipZuJhWk0Htik3J/[email protected]
Before posting, please take a moment to review the archives
at http://archive.midrange.com/mapics-l.