Re: AS/400 print to PC for almost free -- MIDRANGE-L

Richard

Several people mentioned SplAPI. Does this come with AS/400 or is it anadd-on? Where do I get at information about it?

Thanks for your massive help. I am a novice when it comes to API/400 whereI have used a very few, based exclusively on tips I found in places likethis. I know next to nothing about them. Your data looks a bit to me likewhat I might get out of an *OUTFILE ... I have used a few *OUTFILEs asinput to RPG programs.


Richard wrote:

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


<snip>

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=",   ,"


<snip>