• Subject: RE: Calling all GDDM experts
  • From: Buck Calabro <mcalabro@xxxxxxxxxxxx>
  • Date: Fri, 17 Sep 1999 08:33:32 -0400

Terry,

Sorry for the delay, I had to look up my old programs from my manual
archives :-)

Yes, you can do GDDM and AFP together on the same page!  You need to create
a normal AFP printer file to use the BARCODE keyword.  You can also put
plain text on the page if you want to.  Once you have the printer file
settled, you will use THAT file for your GDDM work instead of QPGDDM.  The
trick is to do the FSINIT, DSOPEN and DSUSE before you OPEN the printer
file.  I will email you a complete sample, but here are the salient points:

FGRPRTF  O   E                    PRINTER                        UC 

C* Initialise graphics                         
C                     CALL 'GDDM'              
C                     PARM 'FSINIT  'GPARM   8 
C* Prepare printer                             
C                     CALL 'GDDM'              
C                     PARM 'DSOPEN  'GPARM     
C                     PARM 2         I01       
C                     PARM 1         I02       
C                     PARM 'IPDS    'C08     8 
C                     PARM 0         I03       
C                     PARM           IA01      
C                     PARM 1         I04       
C                     PARM 'GRPRTF  'C10    10 
C* Using printer                               
C                     CALL 'GDDM'              
C                     PARM 'DSUSE   'GPARM     
C* Put some text print on printer for testing  
C                     OPEN GRPRTF              
C                     WRITETEXT                
C* Put some AFP print on printer for testing   
C                     MOVE *ALL'1234'BARCOD    
C                     WRITEAFP                 

C* Print fancy text
C* LOAD CHAR SET                               
C                     CALL 'GDDM'              
C                     PARM 'GSLSS   'GPARM     
C* SELECT CHAR SET                             
C                     CALL 'GDDM'              
C                     PARM 'GSCS    'GPARM     
C* Fancy name                                  
C                     CALL 'GDDM'              
C                     PARM 'GSCHAR  'GPARM 

C* Print a pie chart
C* SET CHART AREA TO 50% OF PICTURE SPACE      
C                     CALL 'GDDM'              
C                     PARM 'CHAREA  'GPARM     
C* PERCENTAGE PIE CHART                        
C                     CALL 'GDDM'              
C                     PARM 'CHSET   'GPARM     
C*  Set key attributes                         
C                     CALL 'GDDM'              
C                     PARM 'CHKEY   'GPARM     
C* DRAW THE HEADING                            
C                     CALL 'GDDM'              
C                     PARM 'CHHEAD  'GPARM     
C* DRAW THE PIE                                
C                     CALL 'GDDM'              
C                     PARM 'CHPIE   'GPARM     

C* Send picture                                
C                     CALL 'GDDM'              
C                     PARM 'FSFRCE  'GPARM     
C* Terminate processing                        
C                     CLOSEGRPRTF              
C                     CALL 'GDDM'                  
C                     PARM 'FSTERM  'GPARM         
C                     SETON                     LR 

Buck Calabro
Aptis; Albany, NY
mailto:Buck.Calabro@aptissoftware.com

> -----Original Message-----
> From: Terry Richardson 
> Sent: Thursday, September 16, 1999 7:52 AM
> To:   'MIDRANGE-L@midrange.com'
> Subject:      Calling all GDDM experts
> 
> Hopefully someone out there can tell me if it's at all possible to produce
> a
> barcode with GDDM.  We have a program that produces gift certificates, and
> a
> request has come in to place a barcode on these.  Rather than trash this
> program and write it with IPDS commands, I'd prefer to modify it.  I'm not
> too optimistic, since the GDDM programming guide and reference manuals do
> not make any mention of barcodes.  Any ideas, or am I SOL?  
> 
> TIA
> 
> Terry Richardson
> Sr. P/A
> The Orvis Company, Inc.
> 802-362-8663
> 
+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---

This thread ...


Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2019 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 here. If you have questions about this, please contact [javascript protected email address].