/***5P20**************************************************************/ /** BEGIN SPECIFICATIONS *********************************************/ /* */ /* MODULE NAME: ZIBMESCP */ /* */ /* DESCRIPTIVE NAME: WSCST source for QWPIBMESCP object */ /* */ /* PROCESSOR: CRTWSCST */ /* NTVCMD: ZIBMESCP */ /* */ /* CHANGE ACTIVITY: */ /* RLSE& */ /* FLAG&REASON LEVEL DATE PGMR COMMENTS */ /* ___________ _____ ________ ______ _________________________ */ /* $A0=D94393 3D70 96/02/14 TSL: New module (copied from */ /* IBM2390.) */ /* Changed: */ /* o Variable Line Spacing */ /* o Horizontal Relative Movement */ /* o Begin/End Underscore */ /* o Printer Data Stream */ /* o Intialize Printer */ /* - COPIED PDF sequence */ /* - DELETED */ /* - ADDED Cancel,CR,End Bold, */ /* End Dbl Strike,Reset Skip */ /* Perf, End Sub/Sup, Reset */ /* Unidirectional print. */ /* o Reset Printer */ /* - COPIED PDF sequence */ /* - DELETED Formfeed */ /* - ADDED End Bold, End Dbl */ /* Strike, Reset Skip Perf, */ /* End Sub/Sup, Reset Uni- */ /* directional print, End DW */ /* Horz. */ /* Added: */ /* o Characters Per Inch */ /* o Horizontal Absolute Movement */ /* o Vertical Relative Movement */ /* o Shift In/Out */ /* o DBCS Space */ /* o Character Orientation (2) */ /* o Font Scale (step) */ /* Deleted: */ /* o Characters Per Inch, COR mode*/ /* o ASCII Code Page Information */ /* o Print Quality */ /* New DBCS Tags used */ /* o DBCS Space */ /* o Shift In Out */ /* o Font Scale (unit) */ /* o Set Character Orientation */ /* New DBCS Tags not used */ /* o Font Scaling (var.) */ /* o Grid Line Type */ /* o Grid Line Width */ /* o Draw Grid Line */ /* o Set Character Pitch */ /* o Set Line Pitch (Var.Line Sp.)*/ /* o EBCDIC-to-ASCII Mapping */ /* o Print All Characters */ /* AFP Tags used */ /* o Absolute Horz Move */ /* AFP Tags not used */ /* o Print Next Characters */ /* o Absolute Vert Move */ /* o Print Angle */ /* */ /* $A1=P3632963 3P70 96/11/22 TSL: Delete DBSPACE tag to allow */ /* HPT to select the appropriate */ /* value based on language */ /* $A2=D9566900 4D30 97/10/27 RKF : Add tags for SCS to IMAGE */ /* $A2=D9566900 4D30 97/10/27 DBM : Removed rastermode tag, */ /* misleading, no support */ /* $69=P3697563 4P10 99/05/07 KJM: Chg INITPRT and add ASCCPINFO */ /* $75=P3698280 4P30 99/06/24 KJM: Add EBCASCTBL for ASCII remap */ /* $L3=P9B40642 5P20 06/12/08 KJM: New part created for 4247ESCP */ /* */ /*********************************************************************/ /* Tategaki mode causes characters to be rotated 270 degrees. For */ /* printers which are limited to this one rotation, tategaki mode */ /* will be used for both LANDSCAPE and RTT270. */ /*********************************************************************/ /** PRINTERS SUPPORTED ***********************************************/ /* */ /* IBM 4247 printers w/DBCS feature */ /* */ /** END SPECIFICATIONS ***********************************************/ /*********************************************************************/ :WSCST DEVCLASS=TRANSFORM. :TRNSFRMTBL. /* Print Quality */ :PRTQLTY QLTYTYPE=TEXT DATA='14141B7003'X. /* NLQ @L3A*/ :PRTQLTY QLTYTYPE=LETTER DATA='14141B7004'X. /* LQ @L3A*/ :PRTQLTY QLTYTYPE=DRAFT DATA='14141B7002'X. /* Normal Draft @L3A*/ /* Drawer 1 Selection */ :DWRSLT DRAWER=DRAWER1 DATA='14141B5400'X. /* Front Feed @L3A*/ /* Drawer 2 Selection */ :DWRSLT DRAWER=DRAWER2 /* Front Feed @L3A*/ DATA='14141B4E00'X. /* Drawer Selection - Additional Drawer */ /* Manual Feed selection */ /* Formfeed */ :FORMFEED DATA='0C'X. /* Space */ :SPACE DATA='20'X. /* Carriage Return */ :CARRTN DATA='0D'X. /* Linefeed */ :LINEFEED DATA='0A'X. /* Shift In */ :SI DATA='1C2E'X. /* Shift Out */ :SO DATA='1C26'X. /* DBCS Space */ /*:DBSPACE */ /* @A1D*/ /* DATA='2121'X.*/ /* @A1D*/ /* Character Per Inch -- 5 cpi (DBCS) */ :CPI CPI=5 DATA='1C53000C1C540000'X. /* Character Per Inch -- 6 cpi (DBCS) */ :CPI CPI=6 DATA='1C5300061C540000'X. /* Character Per Inch -- 6.7 cpi (DBCS) */ :CPI CPI=67 DATA='1C5300031C540001'X. /* Character Per Inch -- 7.5 cpi (DBCS) */ :CPI CPI=75 DATA='1C5300001C540000'X. /* Character Per Inch -- 10 cpi (SBCS) */ :CPI CPI=10 DATA='121B501B2000'X. /* Character Per Inch -- 12 cpi (SBCS) */ :CPI CPI=12 DATA='121B4D1B2000'X. /* Character Per Inch -- 13.3 cpi (SBCS) */ :CPI CPI=133 DATA='121B671B2001'X. /* Character Per Inch -- 15 cpi (SBCS) */ :CPI CPI=15 DATA='121B671B2000'X. /* Character Per Inch -- 17.1 cpi (SBCS) */ :CPI CPI=171 DATA='1B500F'X. /* Character Per Inch -- 18 cpi (SBCS) */ :CPI CPI=18 DATA='1B4D1B20010F'X. /* Character Per Inch COR -- 15 cpi (SBCS) 7.5 cpi (DBCS) */ /* :CPICOR CPI=10 ASCIIFNT = 239 FNTWTH = 96 FNTATR = 1 DATA='1B671B20001C5300001C540000'X. */ /* Character Orientation */ :CHRORIENT ORIENT=PORTRAIT /* TATEGAKI mode off */ DATA='1C4B'X. :CHRORIENT ORIENT=RTT270 /* TATEGAKI mode on */ DATA='1C4A'X. :CHRORIENT ORIENT=LANDSCAPE /* TATEGAKI mode on */ DATA='1C4A'X. /* Font Scale */ :FONTSCALE SCALE=1VX1H DATA='1B77001B5700'X. :FONTSCALE SCALE=1VX2H DATA='1B77001B5701'X. :FONTSCALE SCALE=2VX1H DATA='1B77011B5700'X. :FONTSCALE SCALE=2VX2H DATA='1B77011B5701'X. /* Printer Data Stream */ :PRTDTASTRM DATASTREAM=ESC/P. /* Backspace */ :BSP DATA='08'X. /* Start Bold */ :STRBOLD DATA='1B45'X. /* End Bold */ :ENDBOLD DATA='1B46'X. /* Start Subscript */ :STRSUBS DATA='1B5301'X. /* End Subscript */ :ENDSUBS DATA='1B54'X. /* Start Superscript */ :STRSUPS DATA='1B5300'X. /* End Superscript */ :ENDSUPS DATA='1B54'X. /* Start Underscore */ :STRUS DATA='1B2D011C2D01'X. /* End Underscore */ :ENDUS DATA='1B2D001C2D00'X. /* Page Length in Inches */ :PAGLENI VAROFFSET=3 VARLEN=1 VARTYPE=LOWHIGH CNVNUM=1 CNVDEN=1 DATA='1B430000'X. /* Page Length in Lines */ :PAGLENL VAROFFSET=2 VARLEN=1 VARTYPE=LOWHIGH DATA='1B4300'X. /* Variable Line Spacing */ :VARLSPC VAROFFSET=2 VARLEN=1 VARTYPE=LOWHIGH CNVNUM=1 CNVDEN=180 DATA='1B3300'X. /* Vertical Relative Movement */ :VERRMOV DIRECTION=DOWN VAROFFSET=2 VARLEN=1 VARTYPE=LOWHIGH CNVNUM=1 CNVDEN=180 DATA='1B4A00'X. /* Horizontal Relative Movement */ :HORRMOV DIRECTION=FWDBCK VAROFFSET=2 VARLEN=2 VARTYPE=LOWHIGH CNVNUM=1 CNVDEN=180 DATA='1B5C0000'X. /* Horizontal Absolute Movement */ :HORAMOV VAROFFSET=2 VARLEN=2 VARTYPE=LOWHIGH CNVNUM=1 CNVDEN=60 DATA='1B240000'X. /* Intialize Printer */ /* Sel, Cancel, CR, Set Basic DBCS CP Sect, Sel Int'l Ovrly US, */ /* Cancel DW, End DW Vert, End DW Horz, End UL, Set SBCS Char */ /* Roman, 6 LPI, 10 CPI, Cancel Cond, Reset Half-DBCS, End Bold, */ /* End Dbl Strike, Reset Skip Perf, End Sub/Sup, */ /* Reset Unidirectional Print, */ /* :INITPRT DATA='11180D1B74031B5208141B77001B57001B2D001C2D001B6B001B32'X '1B501B20001C53000C1C540000121C121B461B481B4F1B541B5500'X '1B7234'X. @69C@D03D*/ /* Intialize Printer */ :INITPRT DATA='1118'X /* Sel, Cancel */ '14141B40'X. /* ADD RE-INITIALIZE PRINTER @D03A*/ /* Reset Printer */ /* End DW Horz, Cancel DW, End UL, Set SBCS Char Roman, SI, */ /* End Bold, End Dbl Strike, Reset Skip Perf, End Sub/Sup, */ /* Reset Unidirectional Print, End DW Vert */ :RESETPRT DATA='1B7700141B2D001C2D001B6B000D1C2E'X '1B461B481B4F1B541B55001B5700'X. /* ASCII CCSID information */ :EBCASCCSID. /*@D03A*/ :EBCASCCSIDE EBCDICCSID=1388 ASCIICCSID=1392. :EBCASCCSIDE EBCDICCSID=935 ASCIICCSID=1392. :EEBCASCCSID. /*@D03A*/ :EWSCST.