× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.


  • Subject: Re: How do you send HP PCL from COBOL to spool file
  • From: "Robert E. Burger" <rburger@xxxxxxxx>
  • Date: Mon, 10 Jan 2000 22:17:43 -0600

When I saw your response about RPLUNPRT(*NO), I just KNEW that was the problem.  Unfortunately, I've still got something wrong and just cant see the forest for the trees.  To prevent anything screwing up the formatting, I have attached the source code I have tried as an ASCII test file call PCLTEST.TXT.  I have tried every way of coding the sequence I can think of and have had varied but unsuccessful results.  The PCL sequence listed in the comment in the source code tells a secure font box to print a graphic image (a signature for a check writer) at the current position.  Based on your other comment that the PCL must be at the beggining of a line, I know I will have to add PCL code to position the cursor, but that'll be cake if I can just get the PCL to the blased printer!  I hope I don't have to smack myself in the forehead when someone shows me the err of my ways.
 
Thanks in advance both to you and Finucci for your quick responses to my original post and to any and all who respond to this message.
 
Robert
 
----- Original Message -----
From: Bob Larkin
Sent: Sunday, January 02, 2000 11:03 AM
Subject: Re: How do you send HP PCL from COBOL to spool file

There are a few thins to check on the spool file.
1. Spool file must have RPLUNPRT(*NO) or non character data will be converted to blanks.
2. escape sequence starts at beginning of a print line

If these aren't the problem, send the relevant porions of the code to the list, and we will look at it.
Bob

"Robert E. Burger" wrote:

I am needing to embed a PCL escape sequence into a COBOL/400 report.  It seems that no matter what I do, the escape sequence prints out as a literal on the report.  Does anyone have sample code or a reference indicating how this can be done? Thanks in advance, Robert E. Burger
Information Systems Coordinator
Tarrant County CSCD
Fort Worth, Texas, USA
=============================
AS/400 9406-620 running OS/400 V4R4
AS/400 9406-170 running OS/400 V4R4
       IDENTIFICATION DIVISION.                                                 
       PROGRAM-ID.    PCLTEST.                                                  
       AUTHOR.        REB.                                                      
                                                                                
       ENVIRONMENT DIVISION.                                                    
                                                                                
       CONFIGURATION SECTION.                                                   
                                                                                
       SOURCE-COMPUTER.    IBM-AS400.                                           
       OBJECT-COMPUTER.    IBM-AS400.                                           
                                                                                
       INPUT-OUTPUT SECTION.                                                    
       FILE-CONTROL.                                                            
                                                                                
           SELECT NAME-REPORT                                                   
             ASSIGN TO PRINTER-TESTING.                                         
                                                                                
       DATA DIVISION.                                                           
       FILE SECTION.                                                            
                                                                                
       FD  NAME-REPORT                                                          
           LABEL RECORDS ARE STANDARD.                                          
                                                                                
       01  PRINT-LINE                          PIC X(90).                       
                                                                                
       WORKING-STORAGE SECTION.                                                 
                                                                                
      * PCL escape sequence to print image A from MicroMICR Secure Font         
      * <esc>(0S<esc>(s1p28v0s0b232TA                                           
                                                                                
      * PCL escape sequence to print image A from MicroMICR Secure Font         
      *   and reset printer to original font.                                   
      * <esc>(0S<esc>(s1p28v0s0b232TA<esc>(0S<esc>(s0p10h0s0b4099T              
                                                                                
       01  SIGNATURE-LINES.                                                     
           05  SIGNATURE-A.                                                     
               10 SIG-A1 PIC 9 COMP-4.                                          
               10 FILLER PIC X(3) VALUE "(0S".                                  
               10 SIG-A2 PIC 9 COMP-4.                                          
               10 FILLER PIC X(16) VALUE "(s1p28v0s0b232TA".                    
                                                                                
           05  SIGNATURE-B.                                                     
               10 SIG-B1 PIC 9 COMP-4.                                          
               10 FILLER PIC X(3)  VALUE X"4DF0E2".                             
               10 SIG-B2 PIC 9 COMP-4.                                          
               10 FILLER PIC X(12) VALUE X"4DA2F197F2F8A5F0A2F082F2".           
               10 FILLER PIC X(4)  VALUE X"F3F2E3C1".                           
                                                                                
           05  SIGNATURE-C.                                                     
               10 SIG-C1 PIC 9 COMP-4 VALUE X"03021B".                          
               10 FILLER PIC X(3) VALUE "(0S".                                  
               10 SIG-C2 PIC 9 COMP-4 VALUE X"03021B".                          
               10 FILLER PIC X(16) VALUE "(s1p28v0s0b232TA".                    
                                                                                
           05  SIGNATURE-D.                                                     
               10 FILLER PIC X(1)  VALUE X"1B".                                 
               10 FILLER PIC X(3)  VALUE "(0S".                                 
               10 FILLER PIC X(1)  VALUE X"1B".                                 
               10 FILLER PIC X(16) VALUE "(s1p28v0s0b232TA".                    
               10 FILLER PIC X(1)  VALUE X"1B".                                 
               10 FILLER PIC X(3)  VALUE "(0S".                                 
               10 FILLER PIC X(1)  VALUE X"1B".                                 
               10 FILLER PIC X(16) VALUE "(s0p10h0s0b4099T".                    
                                                                                
           05  SIGNATURE-E.                                                     
               10 FILLER PIC X(1)  VALUE X'03021B28'.                           
               10 FILLER PIC X(3)  VALUE "0S".                                  
               10 FILLER PIC X(1)  VALUE X'03021B28'.                           
               10 FILLER PIC X(16) VALUE "s1p28v0s0b232TA".                     
               10 FILLER PIC X(1)  VALUE X'03021B28'.                           
               10 FILLER PIC X(3)  VALUE "0S".                                  
               10 FILLER PIC X(1)  VALUE X'03021B28'.                           
               10 FILLER PIC X(16) VALUE "s0p10h0s0b4099T".                     
                                                                                
           05  SIGNATURE-F.                                                     
               10 FILLER PIC X(3)  VALUE X"03011B".                             
               10 FILLER PIC X(3)  VALUE X"283053".                             
               10 FILLER PIC X(3)  VALUE X"03011B".                             
               10 FILLER PIC X(10) VALUE X"28733170323876307330".               
               10 FILLER PIC X(6)  VALUE X"623433325441".                       
                                                                                
           05  SIGNATURE-G.                                                     
               10 FILLER PIC X(4)  VALUE X"1B283053".                           
               10 FILLER PIC X(13) VALUE X"1B287330703130683073306234".         
               10 FILLER PIC X(4)  VALUE X"30393954".                           
                                                                                
           05  SIGNATURE-H.                                                     
               10 SIG-C  PIC X(20) VALUE SPACES.                                
                                                                                
                                                                                
       LINKAGE SECTION.                                                         
                                                                                
       PROCEDURE DIVISION.                                                      
                                                                                
       DECLARATIVES.                                                            
       FILE-ERRORS SECTION.                                                     
                                                                                
       END DECLARATIVES.                                                        
                                                                                
       MAIN SECTION.                                                            
       A001-MAIN.                                                               
           OPEN OUTPUT NAME-REPORT.                                             
                                                                                
      *    ESCAPE SEQUENCE INITIALIZATION.                                      
           ADD 16 TO 11 GIVING SIG-A1 SIG-A2 SIG-B1 SIG-B2.                     
                                                                                
           WRITE PRINT-LINE FROM SIGNATURE-A.                                   
           WRITE PRINT-LINE FROM SIGNATURE-B.                                   
           WRITE PRINT-LINE FROM SIGNATURE-C.                                   
           WRITE PRINT-LINE FROM SIGNATURE-D.                                   
           WRITE PRINT-LINE FROM SIGNATURE-E.                                   
           WRITE PRINT-LINE FROM SIGNATURE-F.                                   
           WRITE PRINT-LINE FROM SIGNATURE-G.                                   
                                                                                
           MOVE X'1B2830531B2873317876307330623433325441'                       
             TO SIG-C.                                                          
           MOVE X'2728305327287331787630733062F433325441'                       
             TO SIG-C.                                                          
                                                                                
           WRITE PRINT-LINE FROM SIGNATURE-H.                                   
                                                                                
           CLOSE NAME-REPORT.                                                   
                                                                                
           STOP RUN.                                                            


As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

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

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.