RE: Printing bitmaps -- MIDRANGE-L

Maybe is too obvious but did you use BIN option?

Marco

--- Savage Gordon <gordon.savage@xxxxxxxxx> wrote:

> Thanks for the tip, Michael. I tried that and the CRTPAGSEG fails with
> the same error so I guess I have a problem with my use of the API. I
> have trawled through the code but cannot find where the problem is.
> Does any kind soul have a working RPG program they would be willing to
> share?
> 
> -----Original Message-----
> From: midrange-l-bounces@xxxxxxxxxxxx
> [mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of
> michael@xxxxxxxxxxxxxxxxxx
> Sent: 16 January 2006 17:41
> To: Midrange Systems Technical Discussion
> Subject: RE: Printing bitmaps
> 
> Try FTPing the stream file to the PF and then the CRTPAGSEG - see if you
> have the same problem. I'm wondering if it's in the CPYFRMSTMF.
> 
> > -------- Original Message --------
> > Subject: Printing bitmaps
> > From: "Savage Gordon" <gordon.savage@xxxxxxxxx>
> > Date: Mon, January 16, 2006 12:32 pm
> > To: <midrange-l@xxxxxxxxxxxx>
> > 
> > Good afternoon all,
> > 
> >  
> > 
> > I have seen quite a number of discussions around this subject, but
> have
> > what seems to be a 'new' problem!
> > 
> >  
> > 
> > We have a mobile data system which uses PDAs and GPRS; part of that
> > process is collecting signatures which are placed in the IFS as
> bitmaps.
> > 
> >  
> > 
> > I have an RPGLE program bound to the QIMGCVTI API which takes this
> file
> > in (declared as a stream file) and outputs it in AFPDS format to
> another
> > IFS file e.g.:
> > 
> > CALL PGM(CVTBMP) PARM('/cognito/images/67.bmp'
> '/cognito/images/afp67')
> > 
> > I think this is working OK (!) as the new stream file is created and
> has
> > data.
> > 
> >  
> > 
> > I have a PF created with:
> > 
> > CRTPF FILE(@MD123/SIGAFP)            
> > 
> >       RCDLEN(32766)                  
> > 
> >       TEXT('Signature in AFP format')
> > 
> >       LVLCHK(*NO)                    
> > 
> >  
> > 
> > And when I try to copy the stream file into this PF (the QIMGCVTI API
> > doesn't enable direct output to a PF) using:
> > 
> > CPYFRMSTMF FROMSTMF('/cognito/images/afp67')                
> > 
> >            TOMBR('/qsys.lib/@md123.lib/sigafp.file/sigafp.mbr')
> > 
> >            MBROPT(*REPLACE)                                 
> > 
> >            CVTDTA(*NONE)                                    
> > 
> >            STMFCODPAG(37)                                   
> > 
> >            DBFCCSID(37)                                     
> > 
> >            ENDLINFMT(*FIXED)                                
> > 
> >            TABEXPN(*NO)                                     
> > 
> > It completes quite happily; however these parameters are the only ones
> > that do not result in a 'CPIA082 - End of file found before physical
> end
> > of file' which is a worry!
> > 
> >  
> > 
> > Carrying on regardless, when I now try to create the page segment
> with:
> > 
> > CRTPAGSEG PAGSEG(@MD123/SIGNATUR)
> > 
> >           FILE(@MD123/SIGAFP)    
> > 
> >           MBR(SIGAFP)            
> > 
> > It is not created and a diagnostic message (sev 30) is issued 'CPD88C0
> -
> > SIGAFP in @MD123 not valid for creating a *PAGSEG' with a reason code
> 2.
> > 
> >  
> > 
> > Would anyone be able to help, please?
> > 
> >  
> > 
> >  
> > 
> > Regards,
> > 
> > _________________________________________________
> > 
> > Gordon Savage
> > 
> > IS/IT Technical Analyst
> > 
> > Volvo Construction Equipment Limited
> > 
> > Duxford
> > 
> > Cambridge
> > 
> > CB2 4QX
> > 
> >  
> > 
> > *Telephone:     +44 (0) 1223 251767
> > 
> > *Fax:              +44 (0) 1223 832357
> > 
> > *E-Mail:          gordon.savage@xxxxxxxxx
> > 
> >  
> > 
> > http://www.volvoce.co.uk/
> > 
> > Registered in England with Registrar of Companies, No: 1673954
> > 
> > VAT No: GB 599 3041 08
> > 
> >  
> > 
> > This e-mail transmission inclusive of any attachments is confidential
> > and intended solely for the person or organisation to whom it is
> > addressed.
> > 
> > It may also be privileged or otherwise protected from disclosure.If
> you
> > are not the intended recipient, please do not copy, distribute or
> > disseminate the information - but notify the sender and delete this
> > e-mail and any attachments from your system.
> > 
> > Any views or opinions expressed in this message are those of the
> author
> > and do not necessarily represent those of Volvo Construction Equipment
> > Ltd. Although the Volvo e-mail infrastructure does implement
> anti-virus
> > controls, Volvo Construction Equipment Ltd. does not accept liability
> or
> > responsibility for any damage or loss whatsoever caused from any
> > computer bug or virus being passed on, or arising from alteration of
> > this e-mail or any attachment, and does not represent or warrant that
> it
> > or any attached files are free from computer viruses or other defects.
> > E-mails and any attached files are provided, and may be used, only on
> > the basis that the recipient assumes all responsibility for any loss,
> > damage or consequence resulting directly or indirectly from them or
> > their use.
> > 
> >  
> > 
> > -- 
> > This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
> list
> > To post a message email: MIDRANGE-L@xxxxxxxxxxxx
> > To subscribe, unsubscribe, or change list options,
> > visit: http://lists.midrange.com/mailman/listinfo/midrange-l
> > or email: MIDRANGE-L-request@xxxxxxxxxxxx
> > Before posting, please take a moment to review the archives
> > at http://archive.midrange.com/midrange-l.
> 
> -- 
> This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
> list
> To post a message email: MIDRANGE-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/midrange-l
> or email: MIDRANGE-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/midrange-l.
> 
> 
> -- 
> This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
> list
> To post a message email: MIDRANGE-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/midrange-l
> or email: MIDRANGE-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/midrange-l.
> 
> 


__________________________________________________
Do You Yahoo!?
Tired of spam?  Yahoo! Mail has the best spam protection around 
http://mail.yahoo.com