Heftfunktion KYOCERA-Drucker => Druckende Kennzeichen

[alex61]

Hallo Teilnehmer !
nachdem ich nun endlich das Ding dazu bekommen habe, zu heften (Änderung WSCST) , stellt sich nun plötzlich noch ein anderes Problem.

Es wird nicht nach jedem Druckjob geheftet, sondern nach mehreren. Beispiel: es werden
3x Auftragspapiere gedruckt. Somit kommen nicht 3 geheftete Pakete raus, sondern lediglich eines.
Was kann ich jetzt noch tun ? Würde mich über Hilfe freuen.

Danke Alex !

[Andreas Herzfeldt]

Hallo Alex,

wo im WSCST steht die Anweisung zum klammern ? Wir setzen ähnliche Konfigurationen ein und schreiben die Anweisung in die :INITPRT, damit klammert ein HP9050 jeden Druckjob.

MFG Andreas

[alex61]

Hallo Andreas !
Danke für die Mail. Ich sende Dir mal die Stelle im WSCST, wo der Code zum Heften hinterlegt ist:

:INITPRT
DATA
='1B252D31323334355840504A4C204A4F420D0A40504A4C20 5345542053544150
'4C454F5054494F4E3D4F4E450D0A40504A4C2053455420464 94E4953483D535441
'504C450D0A40504A4C20454E544552204C414E47554147452 03D2050434C0D0A1B
'45'X.
:RESETPRT

Wie bereits geschrieben, so habe ich die Dinger zum Heften gebracht. Aber leider wird nicht nach
jedem Druckjob geheftet. Sondern nach 2, 3 oder gar 4. Ist natürlich nicht im Sinne des Erfinders.

Wäre schön, wenn noch ein Tip käme.

Gruss Alex

[Fuerchau]

Prüfe mal dein Programm.
Da Heften eher unbekannt war zur Zeit der Programmierung, werden mehrere "Papiere" in einem Spool zusammengefasst.
Das Heften erfolgt aber je Spool!
Lösung:
In deinem Programm benötigst du ein USROPN (UC) für die PRTF und nach jedem Auftragsende ein Close/Open zur Erzeugung eines neuen Spools.
Dann wird auch jeder separat geheftet.

[alex61]

Hallo !
habe mal wieder eine Frage zum Heften von Papieren mit einem KYOCERA-Drucker. Derzeit heftet unser Drucker links oben bei Ausdruck im Längsformat. Jetzt möchte ich, dass er auch im Querformat links oben heftet. Unten habe ich unsere derzeitige Sequenz im *WSCST eingefügt. So heftet er wie gesagt links oben im Längsformat. Frage wäre, ob überhaupt im *WSCST was geändert werden muss. Kann man da vielleicht was mit OVTPRTF machen ? Wenn jemand was weiß, wäre ich froh.
Schöne Grüße Alex


so heftet er links oben im Längsformat:


:INITPRT
DATA
='1B252D31323334355840504A4C204A4F420D0A40504A4C20 5345542053544150
'4C454F5054494F4E3D4F4E450D0A40504A4C2053455420464 94E4953483D535441
'504C450D0A40504A4C20454E544552204C414E47554147452 03D2050434C0D0A1B
'45'X.
:RESETPRT

[Fuerchau]

Das das Klammern im WSCST definiert ist musst du ein 2. WSCST sowie passend dazu eine 2. Remote-OUTQ.
Als DEVD funktioniert dies nicht da die AS/400 permanent den Drucker überwacht. Man kann aber von 2 OUTQ's an einen Drucker senden.

Alternativ nimmst du die Heft-Funktion aus dem WSCST heraus und fügst diese in einem TRNSPY-Feld in jede PRTF ein, die heften muss. Dabei kannst du die Klammerfunktion entsprechend anpassen. Dies müsste ebenso funktionieren.

[alex61]

Hallo !
gibt's es eigentlich evtl. noch eine andere Lösung wenn der Drucker nicht korrekt heftet als ein UC-Printerfile (OPEN/CLOSE) im Programm oder mit Zeitversatz drucken. Kann man irgendwie Steuerzeichen
von der AS400 aus an den KYOCERA-Drucker senden ?

[Fuerchau]

Bei Kyocera musst du mal unter Prescribe suchen.
Damit lässt sich dann einiges rein über die Druckdaten steuern.
Allerdings bist da dann immer auf Kyocera fixiert.

[alex61]

Hallo nochmals !
Im Anhang schicke ich mal unser *WSCST mit. Vielleicht weiß ja jemand, wo das Flag eingebaut werden muss, damit der Drucker (KYOCERA - Taskalfa - 3051ci) ein Jobende erkennt und somit jobbezogen Dokumente heftet - nicht jobübergreifend wie bisher. Hatte auch schon IBM kontaktiert. Hier zieht man leider blank. Besten Dank im voraus.
Gruß Alex

Unser WSCST:

: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
='1B252D31323334355840504A4C204A4F420D0A40504A4C20 5345542053544150'X
'4C454F5054494F4E3D4F4E450D0A40504A4C2053455420464 94E4953483D535441'X
'504C450D0A40504A4C20454E544552204C414E47554147452 03D2050434C0D0A1B'X
'45'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
DATA ='1B266C00000043'X.
:CPICOR
CPI=10
ASCIIFNT= 255
FNTWTH= 84
FNTATR= 1
DATA =''X.
:CPICOR
CPI=12
ASCIIFNT= 255
FNTWTH= 84
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.
:SMPXPRT
DATA ='1B266C3053'X.
:DUPXPRT
DATA ='1B266C3153'X.
:TUMDUPXPRT
DATA ='1B266C3253'X.
:DWRSLT
DRAWER=PAPER
DATA ='1B266C3248'X.
:DWRSLT
DRAWER=ENVELOPE
DATA ='1B266C3668314F'X.
:DWRSLT
DRAWER=DRAWER1
DATA ='1B266C3148'X.
:DWRSLT
DRAWER=DRAWER2
DATA ='1B266C3448'X.
:JOGOUTTRAY
DATA ='1B266C3154'X.
:PAGLENL
VAROFFSET= 3
VARLEN= 3
VARTYPE=CHRDEC
DATA ='1B266C00000050'X.
:PAGSIZXFM.
:PAGSIZE
PAGWTH= 8390
PAGLEN=11338
DATA ='1B266C373241'X.
:PAGSIZE
PAGWTH= 8352
PAGLEN=11952
DATA ='1B266C303141'X.
:PAGSIZE
PAGWTH=11952
PAGLEN=16848
DATA ='1B266C323641'X.
:PAGSIZE
PAGWTH=16838
PAGLEN=23811
DATA ='1B266C323741'X.
:PAGSIZE
PAGWTH=10368
PAGLEN=14544
DATA ='1B266C343541'X.
:PAGSIZE
PAGWTH=14570
PAGLEN=20636
DATA ='1B266C343641'X.
:PAGSIZE
PAGWTH=10440
PAGLEN=15120
DATA ='1B266C303141'X.
:PAGSIZE
PAGWTH=12240
PAGLEN=15840
DATA ='1B266C303241'X.
:PAGSIZE
PAGWTH=12240
PAGLEN=20160
DATA ='1B266C303341'X.
:PAGSIZE
PAGWTH=15840
PAGLEN=24480
DATA ='1B266C303641'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=12472
ENVLEN= 6236
DATA ='1B266C393041'X.
:ENVSIZE
ENVWTH=12983
ENVLEN= 9184
DATA ='1B266C393141'X.
:ENVSIZE
ENVWTH=14173
ENVLEN= 9978
DATA ='1B266C31303041'X.
:ENVSIZE
ENVWTH= 8390
ENVLEN= 5670
DATA ='1B266C373141'X.
:ENVSIZE
ENVWTH=11340
ENVLEN= 8390
DATA ='1B266C373241'X.
:EENVSIZXFM.
:FNTGRP.
:FNTGRPE
MINFID= 154
MAXFID= 200
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- */
EURODATA=''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- */
EURODATA=''X.
: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- */
EURODATA=''X.
: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- */
EURODATA=''X.
: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- */
EURODATA=''X.
:EINDFNT.
:EBCASCTBL.
:EBCASCTBLE
EBCDICCP= 1140
ASCIICP= 1252
DATA =''X.
:EBCASCTBLE
EBCDICCP= 1141
ASCIICP= 1252
DATA =''X.
:EBCASCTBLE
EBCDICCP= 1142
ASCIICP= 1252
DATA =''X.
:EBCASCTBLE
EBCDICCP= 1143
ASCIICP= 1252
DATA =''X.
:EBCASCTBLE
EBCDICCP= 1144
ASCIICP= 1252
DATA =''X.
:EBCASCTBLE
EBCDICCP= 1145
ASCIICP= 1252
DATA =''X.
:EBCASCTBLE
EBCDICCP= 1146
ASCIICP= 1252
DATA =''X.
:EBCASCTBLE
EBCDICCP= 1147
ASCIICP= 1252
DATA =''X.
:EBCASCTBLE
EBCDICCP= 1148
ASCIICP= 1252
DATA =''X.
:EBCASCTBLE
EBCDICCP= 1149
ASCIICP= 1252
DATA =''X.
:EEBCASCTBL.
:ASCCPINFO.
:CODEPAGE
CODEPAGE= 437
DATA ='1B28313055'X.
:CODEPAGE
CODEPAGE= 850
DATA ='1B28313255'X.
:CODEPAGE
CODEPAGE= 852
DATA ='1B28313755'X.
:CODEPAGE
CODEPAGE= 1252
DATA ='1B28313955'X.
:CODEPAGE
CODEPAGE= 1250
DATA ='1B283945'X.
:CODEPAGE
CODEPAGE= 1254
DATA ='1B283554'X.
:CODEPAGE
CODEPAGE= 1257
DATA ='1B2831394C'X.
:EASCCPINFO.
:PRTRSLTN
RESOLUTION= 300.
:HORAMOV
VAROFFSET= 3
VARLEN= 8
VARTYPE=CHRDEC
CNVNUM= 1
CNVDEN= 720
DATA ='1B266100000000002E303048'X.
:VERAMOV
VAROFFSET= 3
VARLEN= 8
VARTYPE=CHRDEC
CNVNUM= 1
CNVDEN= 720
DATA ='1B266100000000002E303056'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.
:OUTBINTBL.
:OUTBINTBLE
NUMBER= 0
DATA ='1B266C3047'X.
:OUTBINTBLE
NUMBER= 1
DATA ='1B266C3147'X.
:OUTBINTBLE
NUMBER= 2
DATA ='1B266C3247'X.
:OUTBINTBLE
NUMBER= 3
DATA ='1B266C3347'X.
:OUTBINTBLE
NUMBER= 4
DATA ='1B266C3447'X.
:OUTBINTBLE
NUMBER= 5
DATA ='1B266C3547'X.
:OUTBINTBLE
NUMBER= 6
DATA ='1B266C3647'X.
:OUTBINTBLE
NUMBER= 7
DATA ='1B266C3747'X.
:OUTBINTBLE
NUMBER= 8
DATA ='1B266C3847'X.
:OUTBINTBLE
NUMBER= 9
DATA ='1B266C3947'X.
:EOUTBINTBL.
:ADDDRWTBL.
:ADDDRWTBLE
NUMBER= 3
DATA ='1B266C3548'X.
:EADDDRWTBL.
:RASTERMODE
SCS=NO
AFP=NO.
:EUROSYMBOL
RESIDENT=NO.
:EWSCST.


[Fuerchau]

Meines wissens nach gibt es keine "Ende"-Kennung.
Der Drucker muss selber erkennen, wenn der Datenstrom aufhört.