WSCST-reconfiguration d'impression SCS en PCL

Trucs et Astuces - AS400 - Tips and Tricks
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:
The code is under copyright
The code can be used internally by organizations for in-house projects free of charge
The code may not be included in products that are sold commercially
If the code is distributed in other open source projects, fixes and enhancements to this project must be provided back to this project
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.