Trucs et Astuces - AS400 - Tips and Tricks

page d'accueil   Boite à outils

 

WSCST-reconfiguration d'imprimante AS en PCL Table des matières


:WSCST DEVCLASS=TRANSFORM.
:TRNSFRMTBL.
:PRTDTASTRM
DATASTREAM=HPPCL5.
:NOPRTBDR
OPTION=TOP
ORIENT=PORTRAIT
DATA = 240.
:NOPRTBDR
OPTION=LEFT
ORIENT=PORTRAIT
DATA = 360.
:NOPRTBDR
OPTION=RIGHT
ORIENT=PORTRAIT
DATA = 360.
:NOPRTBDR
OPTION=BOTTOM
ORIENT=PORTRAIT
DATA = 240.
:NOPRTBDR
OPTION=TOP
ORIENT=LANDSCAPE
DATA = 240.
:NOPRTBDR
OPTION=LEFT
ORIENT=LANDSCAPE
DATA = 288.
:NOPRTBDR
OPTION=RIGHT
ORIENT=LANDSCAPE
DATA = 288.
:NOPRTBDR
OPTION=BOTTOM
ORIENT=LANDSCAPE
DATA = 240.
:INITPRT
DATA ='1B45'X.
:RESETPRT
DATA ='1B45'X.
:BELL
DATA ='07'X.
:SPACE
DATA ='20'X.
:CARRTN
DATA ='0D'X.
:FORMFEED
DATA ='0C'X.
:LINEFEED
DATA ='0A'X.
:VERRMOV
DIRECTION=UP
VAROFFSET= 4
VARLEN= 5
VARTYPE=CHRDEC
CNVNUM= 1
CNVDEN= 720
DATA ='1B26612D000000000056'X.
:VERRMOV
DIRECTION=DOWN
VAROFFSET= 4
VARLEN= 5
VARTYPE=CHRDEC
CNVNUM= 1
CNVDEN= 720
DATA ='1B26612B000000000056'X.
:HORRMOV
DIRECTION=FWD
VAROFFSET= 4
VARLEN= 5
VARTYPE=CHRDEC
CNVNUM= 1
CNVDEN= 720
DATA ='1B26612B000000000048'X.
:HORRMOV
DIRECTION=BCK
VAROFFSET= 4
VARLEN= 5
VARTYPE=CHRDEC
CNVNUM= 1
CNVDEN= 720
DATA ='1B26612D000000000048'X.
:STRBOLD
DATA ='1B28733342'X.
:ENDBOLD
DATA ='1B28733042'X.
:STRSUBS
DATA ='1B26612B2E3352'X.
:ENDSUBS
DATA ='1B26612D2E3352'X.
:STRSUPS
DATA ='1B26612D2E3352'X.
:ENDSUPS
DATA ='1B26612B2E3352'X.
:STRUS
DATA ='1B26643044'X.
:ENDUS
DATA ='1B266440'X.
:VARLSPC
VAROFFSET= 3
VARLEN= 3
VARTYPE=CHRDEC
CNVNUM= 1
CNVDEN= 48 /* 48 */
DATA ='1B266C00000043'X.
/* */
/* :CPICOR */
/* CPI=10 */ /* 13 */
/* ASCIIFNT= 201 */
/* FNTWTH= 110 */ /* 144 */
/* FNTATR= 1 */
/* DATA =''X. */
/* :CPICOR */
/* CPI=12 */ /* 17 */
/* ASCIIFNT= 274 */
/* FNTWTH= 84 */
/* FNTATR= 1 */
/* DATA =''X. */
/* :CPICOR */
/* CPI=15 */ /* 20 */
/* ASCIIFNT= 281 */
/* FNTWTH= 72 */
/* FNTATR= 1 */
/* DATA =''X. */
:PRTORIENT
ORIENT=PORTRAIT
DATA ='1B266C304F'X.
:PRTORIENT
ORIENT=LANDSCAPE
DATA ='1B266C334F'X.
:PRTORIENT
ORIENT=RTT180
DATA ='1B266C324F'X.
:PRTORIENT
ORIENT=RTT270
DATA ='1B266C314F'X.
:DWRSLT
DRAWER=PAPER
DATA ='1B266C3248'X.
:DWRSLT
DRAWER=ENVELOPE
DATA ='1B266C3368314F'X.
:DWRSLT
DRAWER=DRAWER1
DATA ='1B266C3148'X.
:DWRSLT
DRAWER=DRAWER2
DATA ='1B266C3448'X.
:PAGLENL
VAROFFSET= 3
VARLEN= 3
VARTYPE=CHRDEC
DATA ='1B266C00000050'X.
:PAGSIZXFM.
:PAGSIZE
PAGWTH= 8352
PAGLEN=11952
DATA ='1B266C303141'X.
:PAGSIZE
PAGWTH=10368
PAGLEN=14544
DATA ='1B266C303141'X.
:PAGSIZE
PAGWTH=10440
PAGLEN=15120
DATA ='1B266C303141'X.
:PAGSIZE
PAGWTH=12240
PAGLEN=15840
DATA ='1B266C303241'X.
:PAGSIZE
PAGWTH=11952
PAGLEN=16848
DATA ='1B266C323641'X.
:PAGSIZE
PAGWTH=12240
PAGLEN=20160
DATA ='1B266C303341'X.
:EPAGSIZXFM.
:ENVSIZXFM.
:ENVSIZE
ENVWTH=10800
ENVLEN= 5580
DATA ='1B266C383041'X.
:ENVSIZE
ENVWTH=12780
ENVLEN= 5580
DATA ='1B266C383141'X.
:ENVSIZE
ENVWTH=13680
ENVLEN= 5940
DATA ='1B266C383141'X.
:ENVSIZE
ENVWTH=12528
ENVLEN= 6192
DATA ='1B266C393041'X.
:ENVSIZE
ENVWTH=12960
ENVLEN= 9216
DATA ='1B266C393141'X.
:ENVSIZE
ENVWTH=14112
ENVLEN= 9936
DATA ='1B266C393141'X.
:EENVSIZXFM.
:FNTGRP. /* CORRESPONDANCE N° FONTE / TAILLE : CHERCHER DANS LA*/
/* DOC "SETTING UP PRINTING" LE § "FIXED PITCH FONTS */
:FNTGRPE /* 10 CHARACTERS PER INCH */
MINFID= 001
MAXFID= 065 /* #H * #V = 120*/
/* ^ ( s 0 p 1 0 H 1 2 v 0 s 0 b 0 T */ /* #H = CPI */
FNTSTR='1B28733070313068313276307330623054'X /* #V = HAUTEUR EN 1/72 "*/
FNTEND=''X /* LA FONTE 0T EST PLUS */
FNTWTH=''X. /* LISIBLE QUE LA 4099T*/
:FNTGRPE /* 12 CHARACTERS PER INCH */
MINFID= 066
MAXFID= 153
/* ^ ( s 0 p 1 2 H 1 0 v 0 s 0 b 0 T */
FNTSTR='1B28733070313068313276307330623054'X
FNTEND=''X
FNTWTH=''X.
:FNTGRPE /* PROPORTIONNEL */
MINFID= 154
MAXFID= 200
/* ^ ( s 1 p 1 2 v 0 s 0 b 4 1 0 1 T cgtimes 10 cpi proportionnel*/
FNTSTR='1B28733170313276307330623431303154'X
FNTEND=''X
FNTWTH=
/* -0-1-2-3-4-5-6-7-8-9-A-B-C-D-E-F */
'22ADAEA78FBEA777EFABEF7F696869AA'X /* 00- */
'62624A48635892514E4EADAD93AD6B6B'X /* 01- */
'48526E7878D3BB52525278D352525252'X /* 02- */
'787878787878787878785252F0D3F06A'X /* 03- */
'D3AD95A3B29590ADB2525BA895D8B2AD'X /* 04- */
'8BAD9E8295B2ADE2ADAD9A5252527878'X /* 05- */
'786A786A786A52787843437843BB7878'X /* 06- */
'7878565B437878AD78786A6A786A78F0'X /* 07- */
'A3786A6A6A6A6A6A6A6A6A434343ADAD'X /* 08- */
'959ED3787878787878ADB2787878D378'X /* 09- */
'6A43787878B278786AD3D3D3D3526060'X /* 0A- */
'78AD7878A36AB178526A787878787878'X /* 0B- */
'6A6A78786A6A78786A6A78786A6A7878'X /* 0C- */
'AD43ADD36A43789EAD43ADB1954378AD'X /* 0D- */
'907890909078876A9EAD906AF0905BF0'X /* 0E- */
'F0D3F0F0ADADD3F0785252AD78567848'X. /* 0F- */
:FNTGRPE /* 13,5 CHARACTERS PER INCH */
MINFID= 201
MAXFID= 210
/* ^ ( s 0 p 1 3 . 5 H 8 . 8 8 v 0 s 0 b 0 T */
FNTSTR='1B2873307031332E3568382E383876307330623054'X
FNTEND=''X
FNTWTH=''X.
:FNTGRPE /* 15 CHARACTERS PER INCH */
MINFID= 211
MAXFID= 239
/* ^ ( s 0 p 1 5 H 8 v 0 s 0 b 0 T */
FNTSTR='1B287330703135683876307330623054'X
FNTEND=''X
FNTWTH=''X.
:FNTGRPE /* 5 CHARACTERS PER INCH */
MINFID= 240
MAXFID= 246
/* ^ ( s 0 p 0 5 H 2 4 v 0 s 0 b 0 T */
FNTSTR='1B28733070303568323476307330623054'X
FNTEND=''X
FNTWTH=''X.
:FNTGRPE /* 17.1 CHARACTERS PER INCH */
MINFID= 247
MAXFID= 257
/* ^ ( s 0 p 1 7 . 1 H 7 . 0 0 v 0 s 0 b 0 T */
FNTSTR='1B2873307031372E3168372E303076307330623054'X
FNTEND=''X
FNTWTH=''X.
:FNTGRPE /* 18.0 CHARACTERS PER INCH */
MINFID= 258
MAXFID= 259
/* ^ ( s 0 p 1 8 . 0 H 6 . 6 6 v 0 s 0 b 0 T */
FNTSTR='1B2873307031382E3068362E363676307330623054'X
FNTEND=''X
FNTWTH=''X.
:FNTGRPE /* 8.55 CHARACTERS PER INCH */
MINFID= 260
MAXFID= 273
/* ^ ( s 0 p 0 8 . 5 5 H 1 4 . 0 4 v 0 s 0 b 0 T */
FNTSTR='1B2873307030382E35356831342E303476307330623054'X
FNTEND=''X
FNTWTH=''X.
:FNTGRPE /* 17.1 CHARACTERS PER INCH */
MINFID= 274
MAXFID= 279
/* ^ ( s 0 p 1 7 . 1 H 7 . 0 0 v 0 s 0 b 0 T */
FNTSTR='1B2873307031372E3168372E303076307330623054'X
FNTEND=''X
FNTWTH=''X.
:FNTGRPE /* 20 CHARACTERS PER INCH */
MINFID= 280
MAXFID= 284
/* ^ ( s 0 p 2 0 . 0 0 H 0 6 . 0 0 v 0 s 0 b 0 T */
FNTSTR='1B2873307032302E30306830362E303076307330623054'X
FNTEND=''X
FNTWTH=''X.
:FNTGRPE /* 25 CHARACTERS PER INCH */
MINFID= 285
MAXFID= 289
/* ^ ( s 0 p 2 5 . 0 0 H 0 4 . 8 0 v 0 s 0 b 0 T */
FNTSTR='1B2873307032352E30306830342E383076307330623054'X
FNTEND=''X
FNTWTH=''X.
:FNTGRPE /* 27 CHARACTERS PER INCH */
MINFID= 290
MAXFID= 299
/* ^ ( s 0 p 2 7 . 0 0 H 0 4 . 4 4 v 0 s 0 b 0 T */
FNTSTR='1B2873307032372E30306830342E343476307330623054'X
FNTEND=''X
FNTWTH=''X.
:EFNTGRP.
:INDFNT.
:INDFNTE
FID= 186
POINTSIZE= 0
FNTSTR='1B28733170313276307330623431303154'X
FNTEND=''X
FNTWTH=
/* -0-1-2-3-4-5-6-7-8-9-A-B-C-D-E-F */
'22ADAEA78FBEA777EFABEF7F696869AA'X /* 00- */
'62624A48635892514E4EADAD93AD6B6B'X /* 01- */
'48526E7878D3BB52525278D352525252'X /* 02- */
'787878787878787878785252F0D3F06A'X /* 03- */
'D3AD95A3B29590ADB2525BA895D8B2AD'X /* 04- */
'8BAD9E8295B2ADE2ADAD9A5252527878'X /* 05- */
'786A786A786A52787843437843BB7878'X /* 06- */
'7878565B437878AD78786A6A786A78F0'X /* 07- */
'A3786A6A6A6A6A6A6A6A6A434343ADAD'X /* 08- */
'959ED3787878787878ADB2787878D378'X /* 09- */
'6A43787878B278786AD3D3D3D3526060'X /* 0A- */
'78AD7878A36AB178526A787878787878'X /* 0B- */
'6A6A78786A6A78786A6A78786A6A7878'X /* 0C- */
'AD43ADD36A43789EAD43ADB1954378AD'X /* 0D- */
'907890909078876A9EAD906AF0905BF0'X /* 0E- */
'F0D3F0F0ADADD3F0785252AD78567848'X. /* 0F- */
:INDFNTE
FID= 187
POINTSIZE= 0
FNTSTR='1B28733170313276307333623431303154'X
FNTEND=''X
FNTWTH=
/* -0-1-2-3-4-5-6-7-8-9-A-B-C-D-E-F */
'22ADAEA78FBEA777EFABEF7F696869AA'X /* 00- */
'62625162635A92515656ADAD93AD6B6B'X /* 01- */
'48526E7878D3C452525278D352525252'X /* 02- */
'787878787878787878785252F0D3F078'X /* 03- */
'D3AD9EADAD9E90BBBB5B74BB9EE2ADBB'X /* 04- */
'90BBAD879EADADF0ADAD9E5252527878'X /* 05- */
'7878876A876A56788743528743C48778'X /* 06- */
'87876A5B528778AD78786A78787878F0'X /* 07- */
'AD876A787878786A6A6A6A434343ADAD'X /* 08- */
'9EADFC787878878778BBAD787878EA78'X /* 09- */
'7843788787AD787878D3D3D3D3526666'X /* 0A- */
'C7EFEF107F7F96967F963C9696967F7F'X /* 0B- */
'7FEFEF7FEFEF7F969696EFEF96EFEFEF'X /* 0C- */
'EFEFEF967F7F96EFEF7F7FEFEF7878EF'X /* 0D- */
'908790909078876A9EAD906AF0905BF0'X /* 0E- */
'F0D3F0F0ADADD3F0785252AD78567848'X. /* 0F- */
:INDFNTE
FID= 188
POINTSIZE= 0
FNTSTR='1B28733170313276317330623431303154'X
FNTEND=''X
FNTWTH=
/* -0-1-2-3-4-5-6-7-8-9-A-B-C-D-E-F */
'22ADAEA78FBEA777EFABEF7F696869AA'X /* 00- */
'62624A64635892514E4EADAD93AD6B6B'X /* 01- */
'48526E7878D3BB52525278D352525252'X /* 02- */
'787878787878787878785252F0D3F078'X /* 03- */
'D390909EAD908BADAD526A9E87C69EAD'X /* 04- */
'90AD907887AD90C69087875252527878'X /* 05- */
'7878786A786A43787843436A43AD7878'X /* 06- */
'78785B5B43786A9E6A6A5B6A786A78F0'X /* 07- */
'9E786A787878786A6A6A6A4343439090'X /* 08- */
'909ED378787878786AADAD787878CF78'X /* 09- */
'78437878789E787878D3D3D3D3526F6F'X /* 0A- */
'C7EFEF107F7F96967F963C9696967F7F'X /* 0B- */
'7FEFEF7FEFEF7F969696EFEF96EFEFEF'X /* 0C- */
'EFEFEF967F7F96EFEF7F7FEFEF7878EF'X /* 0D- */
'907890909078876A9EAD906AF0905BF0'X /* 0E- */
'F0D3F0F0ADADD3F0785252AD78567848'X. /* 0F- */
:INDFNTE
FID= 189
POINTSIZE= 0
FNTSTR='1B28733170313276317333623431303154'X
FNTEND=''X
FNTWTH=
/* -0-1-2-3-4-5-6-7-8-9-A-B-C-D-E-F */
'22ADAEA78FBEA777EFABEF7F696869AA'X /* 00- */
'62625184635A92515656ADAD93AD6B6B'X /* 01- */
'485B7E7878D3BB52525278D352525252'X /* 02- */
'787878787878787878785252F0D3F078'X /* 03- */
'D39E9E9EAD9E90ADBB5B789E90D3ADAD'X /* 04- */
'90A89E8790AD9ED39E90905252527878'X /* 05- */
'7878786A786A56788743437843BB8778'X /* 06- */
'78785B5B43876A9E786A5B78787878F0'X /* 07- */
'9E876A787878786A6A6A6A4343439E9E'X /* 08- */
'9EA8DD78787887876AADAD787878D378'X /* 09- */
'7843788787AC787878D3D3D3D35B6A6A'X /* 0A- */
'C7EFEF107F7F96967F963C9696967F7F'X /* 0B- */
'7FEFEF7FEFEF7F969696EFEF96EFEFEF'X /* 0C- */
'EFEFEF967F7F96EFEF7F7FEFEF7878EF'X /* 0D- */
'907890909078876A9EAD906AF0905BF0'X /* 0E- */
'F0D3F0F0ADADD3F0785252AD78527848'X. /* 0F- */
:EINDFNT.

/* ============================================== */
/* AJOUT 1 */
/* OVERRIDE THE DEFAULT CODE PAGE */
/* CODE PAGE 1051 = HP EMULATION ROMAN 8 = CSET 8U */

:DFTASCCP
ASCIICP=1051.

:EBCASCTBL.
/* */
/* REECRITURE DES TABLES DE CONVERSION */
/* POURQUOI : */
/* 1) CSET 8U = ASCII 1051 EST IMPOSÉ */
/* 2) LES TABLES IBM EBCDIC EUROPE DE L'OUEST NESONTPAS EN CORRESPONDANCE */
/* COMPLETE AVEC ASCII 1051 */
/* 3) DONC CES TABLES SONT CORRIGEES ICI PAR */
/* * CAPTURE DE LA TABLE IBM : WRKTBL QXXXBFA4H + 5 + COPIER-COLLER */
/* * REPERAGE DES ERREURS DE MAPPAGES : ASCII 20 MAL PLACE */
/* * CORRECTION PAR CONSULTATION DE LA TABLE EBCDIC */
/* DANS "INTERNATIONAL APPLICATION DEVELOPPEMENT" ANNEXE G */
/* CAR HEXA-8U */
/* ^ AA | 7C ' 27 ° B3 */
/* , 2C (r) 52 COPYRIGHT 63 ¯ B0 */
/* ¨ AB ` A8 CROIX BA TIRET SHY F6 */
/* UN HAUT 31 DEUX HAUT 32 TROIS HAUT 33 DIVISER 2F */





:EBCASCTBLE
EBCDICCP=037 /* USA CANADA*/
ASCIICP=1051
DATA=
/* -0-1-2-3-4-5-6-7-8-9-A-B-C-D-E-F */
'2020C0CCC8C4E2D4B5B7BF2E3C282B7C'X /* 4- */
'26C5C1CDC9D5D1DDD9DE21242A293BAA'X /* 5- */
'2D2FA2D8A1E0E1D0B4B67C2C255F3E3F'X /* 6- */
'D6DCA4A5A3E5A6A7E6603A2340273D22'X /* 7- */
'D2616263646566676869FBFDE4B2F1FE'X /* 8- */
'B36A6B6C6D6E6F707172F9FAD72CD3BA'X /* 9- */
'F37E737475767778797AB8B9E3B1F052'X /* A- */
'5EBBBCF263BDF4F7F8F55B5DB0ABA8BA'X /* B- */
'7B414243444546474849F6C2CECAC6EA'X /* C- */
'7D4A4B4C4D4E4F50515231C3CFCBC7EF'X /* D- */
'5C2F535455565758595A32DFDAE8E7E9'X /* E- */
'3031323334353637383933AEDBADED9F'X. /* F- */
:EBCASCTBLE
EBCDICCP=273 /* GERMANY FR AUSTRIA */
ASCIICP=1051
DATA=
/* -0-1-2-3-4-5-6-7-8-9-A-B-C-D-E-F */
'2020C07BC8C4E2D4B5B7D82E3C282B21'X /* 4- */
'26C5C1CDC9D5D1DDD97EDB242A293B5E'X /* 5- */
'2D2FA25BA1E0E1D0B4B6CE2C255F3E3F'X /* 6- */
'D6DCA4A5A3E5A6A7E6603A23BD273D22'X /* 7- */
'D2616263646566676869FBFDE4B2F1FE'X /* 8- */
'B36A6B6C6D6E6F707172F9FAD72CD3BA'X /* 9- */
'F3DE737475767778797AB8B9E3B1F052'X /* A- */
'BFBBBCF26340F4F7F8F5AA7CB0ABA8BA'X /* B- */
'CC414243444546474849F6C27CCAC6EA'X /* C- */
'CF4A4B4C4D4E4F50515231C37DCBC7EF'X /* D- */
'DA2F535455565758595A32DF5CE8E7E9'X /* E- */
'3031323334353637383933AE5DADED9F'X. /* F- */
:EBCASCTBLE
EBCDICCP=277 /* DENMARK NORWAY */
ASCIICP=1051
DATA=
/* -0-1-2-3-4-5-6-7-8-9-A-B-C-D-E-F */
'2020C0CCC8C4E27DB5B7232E3C282B21'X /* 4- */
'26C5C1CDC9D5D1DDD9DEBAD02A293B5E'X /* 5- */
'2D2FA2D8A1E0E124B4B6D62C255F3E3F'X /* 6- */
'7CDCA4A5A3E5A6A7E6603AD3D2273D22'X /* 7- */
'40616263646566676869FBFDE4B2F1FE'X /* 8- */
'B36A6B6C6D6E6F707172F9FA7B2C5B5D'X /* 9- */
'F3CF737475767778797AB8B9E3B1F052'X /* A- */
'BFBBBCF263BDF4F7F8F5AA7CB0ABA8BA'X /* B- */
'D7414243444546474849F6C2CECAC6EA'X /* C- */
'D44A4B4C4D4E4F50515231C37ECBC7EF'X /* D- */
'5C2F535455565758595A32DFDAE8E7E9'X /* E- */
'3031323334353637383933AEDBADED9F'X. /* F- */
:EBCASCTBLE
EBCDICCP=278 /* FINLAND SWEDEN */
ASCIICP=1051
DATA=
/* -0-1-2-3-4-5-6-7-8-9-A-B-C-D-E-F */
'2020C07BC8C4E27DB5B7BD2E3C282B21'X /* 4- */
'2660C1CDC9D5D1DDD9DEBAD02A293B5E'X /* 5- */
'2D2FA223A1E0E124B4B6CE2C255F3E3F'X /* 6- */
'D65CA4A5A3E5A6A7E6C53AD8DA273D22'X /* 7- */
'D2616263646566676869FBFDE4B2F1FE'X /* 8- */
'B36A6B6C6D6E6F707172F9FAD72CD35D'X /* 9- */
'F3CF737475767778797AB8B9E3B1F052'X /* A- */
'BFBBBCF2635BF4F7F8F5AA7CB0ABA8BA'X /* B- */
'CC414243444546474849F6C27CCAC6EA'X /* C- */
'D44A4B4C4D4E4F50515231C37ECBC7EF'X /* D- */
'DC2F535455565758595A32DF40E8E7E9'X /* E- */
'3031323334353637383933AEDBADED9F'X. /* F- */
:EBCASCTBLE
EBCDICCP=280 /* ITALY */
ASCIICP=1051
DATA=
/* -0-1-2-3-4-5-6-7-8-9-A-B-C-D-E-F */
'2020C0CC7BC4E2D45CB7B32E3C282B21'X /* 4- */
'265DC1CD7DD5D1DD7EDEC5242A293B5E'X /* 5- */
'2D2FA2D8A1E0E1D0B4B6CA2C255F3E3F'X /* 6- */
'D6DCA4A5A3E5A6A7E6CB3ABBBD273D22'X /* 7- */
'D2616263646566676869FBFDE4B2F1FE'X /* 8- */
'5B6A6B6C6D6E6F707172F9FAD72CD3BA'X /* 9- */
'F3D9737475767778797AB8B9E3B1F052'X /* A- */
'BF23BCF26340F4F7F8F5AA7CB0ABA8BA'X /* B- */
'C8414243444546474849F6C2CE7CC6EA'X /* C- */
'C94A4B4C4D4E4F50515231C3CF60C7EF'X /* D- */
'B52F535455565758595A32DFDAE8E7E9'X /* E- */
'3031323334353637383933AEDBADED9F'X. /* F- */
:EBCASCTBLE
EBCDICCP=284 /* SPAIN LATIN AMERICA */
ASCIICP=1051
DATA=
/* -0-1-2-3-4-5-6-7-8-9-A-B-C-D-E-F */
'2020C0CCC8C4E2D4B57C5B2E3C282B7C'X /* 4- */
'26C5C1CDC9D5D1DDD9DE5D242A293BAA'X /* 5- */
'2D2FA2D8A1E0E1D0B423B72C255F3E3F'X /* 6- */
'D6DCA4A5A3E5A6A7E6603AB640273D22'X /* 7- */
'D2616263646566676869FBFDE4B2F1FE'X /* 8- */
'B36A6B6C6D6E6F707172F9FAD7A8D3BA'X /* 9- */
'F3AB737475767778797AB8B9E3B1F052'X /* A- */
'BFBBBCF263BDF4F7F8F55E21B07EA820'X /* B- */
'7B414243444546474849F6C2CECAC6EA'X /* C- */
'7D4A4B4C4D4E4F50515231C3CFCBC7EF'X /* D- */
'5C2F535455565758595A32DFDAE8E7E9'X /* E- */
'3031323334353637383933AEDBADED9F'X. /* F- */
:EBCASCTBLE
EBCDICCP=285 /* UNITED KINGDOM */
ASCIICP=1051
DATA=
/* -0-1-2-3-4-5-6-7-8-9-A-B-C-D-E-F */
'2020C0CCC8C4E2D4B5B7242E3C282B7C'X /* 4- */
'26C5C1CDC9D5D1DDD9DE21BB2A293BAA'X /* 5- */
'2D2FA2D8A1E0E1D0B4B67C2C255F3E3F'X /* 6- */
'D6DCA4A5A3E5A6A7E6603A2340273D22'X /* 7- */
'D2616263646566676869FBFDE4B2F1FE'X /* 8- */
'B36A6B6C6D6E6F707172F9FAD72CD3BA'X /* 9- */
'F3B0737475767778797AB8B9E3B1F052'X /* A- */
'BF5BBCF263BDF4F7F8F55E5D7EABA8BA'X /* B- */
'7B414243444546474849F6C2CECAC6EA'X /* C- */
'7D4A4B4C4D4E4F50515231C3CFCBC7EF'X /* D- */
'5C2F535455565758595A32DFDAE8E7E9'X /* E- */
'3031323334353637383933AEDBADED9F'X. /* F- */
:EBCASCTBLE
EBCDICCP=297 /* FRANCE */
ASCIICP=1051
DATA=
/* -0-1-2-3-4-5-6-7-8-9-A-B-C-D-E-F */
'2020C0CC40C4E2D45CB7B32E3C282B21'X /* 4- */
'267BC1CD7DD5D1DDD9DEBD242A293B5E'X /* 5- */
'2D2FA2D8A1E0E1D0B4B6CB2C255F3E3F'X /* 6- */
'D6DCA4A5A3E5A6A7E6F33ABBC8273D22'X /* 7- */
'D2616263646566676869FBFDE4B2F1FE'X /* 8- */
'5B6A6B6C6D6E6F707172F9FAD72CD3BA'X /* 9- */
'60AB737475767778797AB8B9E3B1F072'X /* A- */
'BF23BCF2635DF4F7F8F5AA7CB07EA8BA'X /* B- */
'C5414243444546474849F6C2CECAC6EA'X /* C- */
'C94A4B4C4D4E4F50515231C3CF7CC7EF'X /* D- */
'B52F535455565758595A32DFDAE8E7E9'X /* E- */
'3031323334353637383933AEDBADED9F'X. /* F- */
:EBCASCTBLE
EBCDICCP=500 /* MULTILINGUAL # 5 */
ASCIICP=1051
DATA=
/* -0-1-2-3-4-5-6-7-8-9-A-B-C-D-E-F */
'2020C0CCC8C4E2D4B5B75B2E3C282B21'X /* 4- */
'26C5C1CDC9D5D1DDD9DE5D242A293B5E'X /* 5- */
'2D2FA2D8A1E0E1D0B4B67C2C255F3E3F'X /* 6- */
'D6DCA4A5A3E5A6A7E6603A2340273D22'X /* 7- */
'D2616263646566676869FBFDE4B2F1FE'X /* 8- */
'B36A6B6C6D6E6F707172F9FAD72CD3BA'X /* 9- */
'F37E737475767778797AB8B9E3B1F0BA'X /* A- */
'BFBBBCF263BDF4F7F8F5AA7CACABA8BA'X /* B- */
'7B414243444546474849F6C2CECAC6EA'X /* C- */
'7D4A4B4C4D4E4F50515231C3CFCBC7EF'X /* D- */
'5C2F535455565758595A32DFDAE8E7E9'X /* E- */
'3031323334353637383933AEDBADED9F'X. /* F- */
:EBCASCTBLE
EBCDICCP=871 /* ICELAND */
ASCIICP=1051
DATA=
/* -0-1-2-3-4-5-6-7-8-9-A-B-C-D-E-F */
'2020C0CCC8C4E2D4B5B7F02E3C282B21'X /* 4- */
'26C5C1CDC9D5D1DDD9DED3242A293BDA'X /* 5- */
'2D2FA2D8A1E0E1D0B4B67C2C255F3E3F'X /* 6- */
'D6DCA4A5A3E5A6A7E6E43A23E3273D22'X /* 7- */
'D2616263646566676869FBFD60B27BFE'X /* 8- */
'B36A6B6C6D6E6F707172F9FA7D2C5DBA'X /* 9- */
'F3CE737475767778797AB8B940B15B52'X /* A- */
'BFBBBCF263BDF4F7F8F5AA7CB0AB5CBA'X /* B- */
'F1414243444546474849F6C27ECAC6EA'X /* C- */
'D74A4B4C4D4E4F50515231C3CFCBC7EF'X /* D- */
'A820535455565758595A32DF5EE8E7E9'X /* E- */
'3031323334353637383933AEDBADED9F'X. /* F- */
:EEBCASCTBL.

/* FIN DE AJOUT 1 */
/* ============================================== */

:ASCCPINFO.
:CODEPAGE
CODEPAGE= 437
DATA ='1B28313055'X.
:CODEPAGE
CODEPAGE= 850
DATA ='1B28313255'X.

/* ============================================== */
/* AJOUT 2 */
/* DEFINE THE ROMAN 8 CODE PAGE */

:CODEPAGE
CODEPAGE=1051
DATA='1B283855'X.

/* FIN DE AJOUT 2 */
/* ============================================== */

:EASCCPINFO.
:PRTRSLTN
RESOLUTION= 300.
:HORAMOV
VAROFFSET= 3
VARLEN= 5
VARTYPE=CHRDEC
CNVNUM= 1
CNVDEN= 720
DATA ='1B2661000000000048'X.
:VERAMOV
VAROFFSET= 3
VARLEN= 5
VARTYPE=CHRDEC
CNVNUM= 1
CNVDEN= 720
DATA ='1B2661000000000056'X.
:TOPMARGINI
VAROFFSET= 8
VARLEN= 4
VARTYPE=CHRDEC
CNVNUM= 1
CNVDEN= 48
DATA ='1B266C31431B266C0000000045'X.
:TEXTLENL
VAROFFSET= 3
VARLEN= 4
VARTYPE=CHRDEC
DATA ='1B266C00000000461B26613052'X.
:PRTNXTCHR
DATA ='1B26703158'X.
:RASEND
DATA ='1B2A7242'X.
:PRTANGLE
ANGLE=0
DATA ='1B26613050'X.
:PRTANGLE
ANGLE=90
DATA ='1B266132373050'X.
:PRTANGLE
ANGLE=180
DATA ='1B266131383050'X.
:PRTANGLE
ANGLE=270
DATA ='1B2661393050'X.
:EWSCST.

Instructions for Modifying a Workstation Customizing Object (WSCST) : http://www-01.ibm.com/support/docview.wss?uid=nas1bed5e38e3fdd7d07862565c2007d0ef0

  The Workstation Customization Programming publication has detailed documentation of the tags within the WSCST object source. This document is available on the Internet using the following Web site: AS/400e series Workstation Customization Programming Version 4 , SC41-5605: http://publib.boulder.ibm.com/pubs/pdfs/as400/V4R3PDF/QB3AQ600.PDF  

The source code is provided as an open source tool under the GNU General Public License, version 2.  In summary, this license specifies:

By clicking the download link you acknowledge and agree to the terms of the license.

Download the (zipped) SAVF containing the JPLTOOLS : the source file, the message file, the bnddir

THIS TOOLBOX IS PROVIDED ''AS IS'' AND ANY EXPRESSED OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE PROVIDER OR ITS CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS TOOLBOX, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.