Re: How do you send HP PCL from COBOL to spool file -- COBOL400-L

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

To: COBOL400-L@midrange.com

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.