I've used the WSCST listed to create ASCII files from a *AFPDS spool:
the text retrieved are correct but, in the file stream generated,
the
blank rows are not present;
in the spool, retrieved with QSPGETSP
api,
are present X'2BD3' escape sequence followed by X'04C6' Absolute
Move
Inline and X'04D2' Absolute Move Baseline hexadecimal code, that
, I
think, they define a line feed and carriage return in spool.
Someone
can help me to modify the WSCST in order to obtain the CR LF
lost.
Thanks
--- On Thu, 26 Jun 2008 , Goran Saric
<goran_saric@xxxxxxxxx>
wrote:
In the meantime I managed to create
ascii files from afpds
spooled files. It took some experimenting with
the tags, but now it's
finally working. If anybody is interested, here
is the source code for
WSCST object I'm using:
:WSCST
DEVCLASS=TRANSFORM.
:TRNSFRMTBL.
:SPACE
DATA ='20'X.
:LINEFEED
DATA
='0A'X.
:VERAMOV
VAROFFSET = 0
VARLEN = 0
VARTYPE = CHRDEC
CNVNUM = 1
CNVDEN = 720
DATA = '0D0A'X.
:EWSCST.
I
use IBM supplied command
HPTTOFLR (delivered "as is") and the above
defined WSCST object to
create ASCII files in QDLS.
Thanks,
Goran
_______________________________________________________________
Vuoi fare un regalo di Compleanno a un bambino, un adolescente o un adulto?
Trova online il regalo giusto per chi compie gli anni! Tiscali Shopping ti propone
tante idee interessanti
http://shopping.tiscali.it/c-100424623-regali-di-compleanno.html
midrange.com
