× 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.


  1.  Home
  2. MIDRANGE-L
  3. October 2005

Re: AS/400 print to PC for almost free

I made a little tool (based on SplAPI), to read a spool.
I some files to map the spool like :
Map the data with this kind of parameter :
Pages       Lignes  Colonnes Int. T Nom
    1 99999   2   2  69  76         EMIS_DATE
    1 99999   4   4  43  80         TITRE
    1 99999   5   5  43  80         TITRE1
    1 99999   7   7  41  47         CONF_NUM
    1 99999   7   7  54  80         ADR_HOT1
    1 99999   8   8  36  48         REF
    1 99999   8   8  54  80         ADR_HOT2
    1 99999   9   9  54  80         ADR_HOT3
    1 99999  10  10  54  80         ADR_HOT4
    1 99999  11  19   7  40  0,40   BENEF
    1 99999  11  19  45  80  0,40   SEJOUR
    1 99999  20  20   4  50         COMMENT1
    1 99999  21  21   4  50         COMMENT2

And for each field (EMIS_DATE, TITRE...) do something like that :
Variable             Axe Y Axe X Police               T  Att   Type
Rouge Vert  Bleu   Centrage
EMIS_DATE             1,00  7,50 arial                10       text
000   000   000
FACT_NUM              2,00  5,00 arial                10       text
000   000   000
REF                   2,00 10,00 arial                10       text
000   000   000
T1_VILLE              4,50  2,00 arial                10       text
000   000   000
T1_POIDS              4,50  8,75 arial                10       text
000   000   000
T1_VOID               4,50 10,60 arial                10       text
000   000   000
T1_CIE                4,50 12,00 arial                10       text
000   000   000
T1_VOL                4,50 14,00 arial                10       text
000   000   000
T1_DATE               4,50 16,00 arial                10       text
000   000   000
T1_HEURE              4,50 18,00 arial                10       text
000   000   000
T2_VILLE              6,00  2,00 arial                10       text
000   000   000
T2_POIDS              6,00  8,75 arial                10       text
000   000   000
T2_VOID               6,00 10,60 arial                10       text
000   000   000
T2_CIE                6,00 12,00 arial                10       text
000   000   000
T2_VOL                6,00 14,00 arial                10       text
000   000   000
T2_DATE               6,00 16,00 arial                10       text
000   000   000
T2_HEURE              6,00 18,00 arial                10       text
000   000   000
VILARR                7,50  2,00 arial                10       text
000   000   000

After that i add cosntant, images....and my programm extract the values and
send them with coordonates (x, y) like this :
(the XML is send via CGIDEV2 tool)

<?xml version="1.0" encoding="UTF-8" ?>
<root>
<ref splnam="FROUTE" splnum="0389" jobnam="OUTQ_BIG" jobnum="462568"
jobusr="QPGMR" orientation="portrait"
 docarc="O" docnum="2005-10-24-12.02.18.285000" doctyp="RESA_FRT">
<motsclefs>
<clef name="RESA" type="O"><![CDATA[TUNISIE]]></clef>
<clef name="FAC_NUM" type="O"><![CDATA[7152815]]></clef>
</motsclefs>
<page page="00001" police="arial" taille="048" fond="" signet="">
<ligne x="1.00" y="01.00" w="2.50"
type="img"><![CDATA[logofram.jpg]]></ligne>
<ligne x="6.00" y="00.75" x2="18.00" y2="01.60" type="rect" couleur=",   ,"
fcouleur="240,240,240"/>
<ligne x="0.75" y="10.50" x2="10.00" y2="11.40" type="rect" couleur=",   ,"
fcouleur="240,240,240"/>
<ligne x="10.60" y="10.50" x2="20.00" y2="11.40" type="rect" couleur=",   ,"
fcouleur="240,240,240"/>
<ligne x="10.30" y="11.40" x2="10.30" y2="23.00" type="trait" couleur=",
," fcouleur=""/>
<ligne x="0.75" y="23.00" x2="20.00" y2="23.00" type="trait" couleur=",   ,"
fcouleur=""/>
<ligne x="12.00" y="01.25" type="text" police="times" taille="12" style="BI"
couleur="000,000,000" align="C"><![CDATA[NOS INFORMATIONS DE
VOYAGE]]></ligne>
<ligne x="1.00" y="04.00" type="text" police="arial" taille="10" style="I"
couleur="000,000,000" align=""><![CDATA[Emis le :]]></ligne>
<ligne x="1.00" y="04.50" type="text" police="arial" taille="10" style="I"
couleur="000,000,000" align=""><![CDATA[Facture n° :]]></ligne>
<ligne x="1.50" y="11.00" type="text" police="arial" taille="10" style="B"
couleur="000,000,000" align=""><![CDATA[PARIS / DJERBA]]></ligne>
<ligne x="11.50" y="11.00" type="text" police="arial" taille="10" style="B"
couleur="000,000,000" align=""><![CDATA[DJERBA / PARIS]]></ligne>
<ligne x="1.50" y="12.00" type="text" police="courier" taille="10" style="I"
couleur="000,000,000" align=""><![CDATA[                      ]]></ligne>
<ligne x="11.50" y="12.50" type="text" police="courier" taille="10"
style="I" couleur="000,000,000" align=""><![CDATA[CONVOCATION:Le rendez-vous
vous sera]]></ligne>
<ligne x="1.50" y="13.00" type="text" police="courier" taille="10" style="I"
couleur="000,000,000" align=""><![CDATA[CONVOCATION: Dimanche 30/10 à
14h00]]></ligne>
<ligne x="11.50" y="13.00" type="text" police="courier" taille="10"
style="I" couleur="000,000,000" align=""><![CDATA[fixé par notre
représentant local.]]></ligne>
<ligne x="1.50" y="13.50" type="text" police="courier" taille="10" style="I"
couleur="000,000,000" align=""><![CDATA[AEROPORT DE PARIS ORLY]]></ligne>
<ligne x="11.50" y="13.50" type="text" police="courier" taille="10"
style="I" couleur="000,000,000" align=""><![CDATA[Veuillez vous faire
reconfirmer les]]></ligne>
<ligne x="1.50" y="14.00" type="text" police="courier" taille="10" style="I"
couleur="000,000,000" align=""><![CDATA[AEROGARE SUD]]></ligne>
<ligne x="11.50" y="14.00" type="text" police="courier" taille="10"
style="I" couleur="000,000,000" align=""><![CDATA[horaires 48h avant votre
retour]]></ligne>
<ligne x="1.50" y="14.50" type="text" police="courier" taille="10" style="I"
couleur="000,000,000" align=""><![CDATA[Hall A du Rez de Chaussée]]></ligne>
<ligne x="11.50" y="14.50" type="text" police="courier" taille="10"
style="I" couleur="000,000,000" align=""><![CDATA[auprès de votre Pilote
vacances ou]]></ligne>
<ligne x="1.50" y="15.00" type="text" police="courier" taille="10" style="I"
couleur="000,000,000" align=""><![CDATA[Entrée Porte G]]></ligne>
<ligne x="11.50" y="15.00" type="text" police="courier" taille="10"
style="I" couleur="000,000,000" align=""><![CDATA[de notre bureau FRAM à
DJERBA]]></ligne>
<ligne x="1.50" y="15.50" type="text" police="courier" taille="10" style="I"
couleur="000,000,000" align=""><![CDATA[Comptoir FRAM]]></ligne>
<ligne x="11.50" y="15.50" type="text" police="courier" taille="10"
style="I" couleur="000,000,000" align=""><![CDATA[Téléphone: 75 620
602]]></ligne>
<ligne x="1.50" y="16.50" type="text" police="courier" taille="10" style="I"
couleur="000,000,000" align=""><![CDATA[DECOLLAGE__: Dimanche 30/10 à
16h00]]></ligne>
<ligne x="11.50" y="16.50" type="text" police="courier" taille="10"
style="I" couleur="000,000,000" align=""><![CDATA[DECOLLAGE__: Dimanche
06/11 à 12h20]]></ligne>
<ligne x="1.50" y="17.00" type="text" police="courier" taille="10" style="I"
couleur="000,000,000" align=""><![CDATA[      Vol  : TU 4019]]></ligne>
<ligne x="11.50" y="17.00" type="text" police="courier" taille="10"
style="I" couleur="000,000,000" align=""><![CDATA[       De  :
DJERBA]]></ligne>
<ligne x="11.50" y="17.50" type="text" police="courier" taille="10"
style="I" couleur="000,000,000" align=""><![CDATA[      Vol  : TU
4018]]></ligne>
<ligne x="1.50" y="18.00" type="text" police="courier" taille="10" style="I"
couleur="000,000,000" align=""><![CDATA[ARRIVEE____: Dimanche 30/10 à
18h50]]></ligne>
<ligne x="1.50" y="18.50" type="text" police="courier" taille="10" style="I"
couleur="000,000,000" align=""><![CDATA[             à DJERBA]]></ligne>
<ligne x="11.50" y="18.50" type="text" police="courier" taille="10"
style="I" couleur="000,000,000" align=""><![CDATA[ARRIVEE____: Dimanche
06/11 à 15h10]]></ligne>
<ligne x="11.50" y="19.00" type="text" police="courier" taille="10"
style="I" couleur="000,000,000" align=""><![CDATA[             à PARIS ORLY
SUD]]></ligne>
<ligne x="2.00" y="25.00" type="text" police="arial" taille="10" style="I"
couleur="000,000,000" align=""><![CDATA[   **** CARTE D'IDENTITE OU
PASSEPORT EN COURS DE VALIDITE OBLIGATOIRE ****]]></ligne>
<ligne x="2.00" y="25.40" type="text" police="arial" taille="10" style="I"
couleur="000,000,000" align=""><![CDATA[   Toute personne ayant DOUBLE
NATIONALITE FRANCO-TUNISIENNE doit etre en]]></ligne>
<ligne x="2.00" y="25.80" type="text" police="arial" taille="10" style="I"
couleur="000,000,000" align=""><![CDATA[   possession des passeports -
FRANCAIS ET TUNISIEN -]]></ligne>
<ligne x="2.00" y="26.20" type="text" police="arial" taille="10" style="I"
couleur="000,000,000" align=""><![CDATA[   *Le PASSEPORT est OBLIGATOIRE
pour toute personne voyageant en VOL SEC *]]></ligne>
<ligne x="2.00" y="26.60" type="text" police="arial" taille="10" style="I"
couleur="000,000,000" align=""><![CDATA[   Se renseigner auprès des
autorités administratives pour les mineurs.]]></ligne>
</page>
</ref>
</root>

As an Amazon Associate we earn from qualifying purchases.

This thread ...
Follow-Ups:
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.