Re: AS/400 print to PC for almost free

Hi Al,
SplAPI is nit itself an API, just how i name differents API for spools.
Here is the source i made to map a spool. (with my param files) into XML.
You will find pieces of code that may help you (particulary open_spl ,
read_spl)

Hope this help

----- Original Message ----- 
From: "Al Mac" <macwheel99@xxxxxxxxxxx>
To: "Midrange Systems Technical Discussion" <midrange-l@xxxxxxxxxxxx>
Sent: Tuesday, October 25, 2005 7:00 PM
Subject: Re: AS/400 print to PC for almost free


> Richard
>
> Several people mentioned SplAPI.  Does this come with AS/400 or is it an
> add-on?  Where do I get at information about it?
>
> Thanks for your massive help.  I am a novice when it comes to API/400
where
> I have used a very few, based exclusively on tips I found in places like
> this.  I know next to nothing about them.  Your data looks a bit to me
like
> what I might get out of an *OUTFILE ... I have used a few *OUTFILEs as
> input 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>
>
>
> -- 
> 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.
>
>