/*********************************************************************/ /** BEGIN SPECIFICATIONS *********************************************/ /* */ /* MODULE NAME: ZIBM424L */ /* */ /* DESCRIPTIVE NAME: WSCST source for QWPIBM424L object */ /* */ /* PROCESSOR: CRTWSCST */ /* NTVCMD: ZIBM424L */ /* */ /* CHANGE ACTIVITY: */ /* RLSE& */ /* FLAG&REASON LEVEL DATE PGMR COMMENTS */ /* ___________ _____ ________ ______ _________________________ */ /* $A0=P3609940 3D20 96/01/17 TSL: New Module (copied 2380) */ /* $A1=D9566900 4D30 97/10/27 RKF : Add tags for SCS to IMAGE */ /* $A1=D9566900 4D30 97/10/27 DBM : Removed rastermode tag, */ /* misleading, no support */ /* $E2=P3679681 4D40 98/10/06 TSL : Add/Chg tags for EURO */ /* $E4=D97645 4D50 99/05/05 TSL : Add tags for EURO phase 2 */ /* $E5=P9902043 4D50 99/07/23 TSL : Corrected hex value in */ /* select str for cp 902/922 */ /* $L3=P9B47638 5P20 07/03/13 KJM : New part for 4247 L03 */ /* */ /*********************************************************************/ /** PRINTERS SUPPORTED ***********************************************/ /* */ /* IBM 4247 L03, in native and 2391 mode, will dual tractor feeds */ /* installed. */ /* */ /** END SPECIFICATIONS ***********************************************/ /*********************************************************************/ :WSCST DEVCLASS=TRANSFORM. :TRNSFRMTBL. /* Drawer 1 Selection */ :DWRSLT DRAWER=DRAWER1 DATA='14141B5400'X. /* Drawer 2 Selection */ :DWRSLT DRAWER=DRAWER2 DATA='14141B4E00'X. /* Drawer Selection - Additional Drawer */ /* Manual Feed selection */ /* Euro Symbol Resident */ :EUROSYMBOL RESIDENT=YES. /* 10 CPI COR */ :CPICOR CPI =10 ASCIIFNT=11 FNTWTH=144 FNTATR=01 DATA='1B570012'X. /* 12 CPI COR */ :CPICOR CPI =12 ASCIIFNT=86 FNTWTH=120 FNTATR=01 DATA='1B5700121B3A'X. /* 15 CPI COR */ :CPICOR CPI =15 ASCIIFNT=230 FNTWTH=96 FNTATR=01 DATA='1B570014141B4104'X. /* Font Groups */ :FNTGRP. /* 10 CPI */ :FNTGRPE MINFID=1 MAXFID=65 FNTSTR='1B570012'X FNTEND=''X FNTWTH=''X. /* 12 CPI */ :FNTGRPE MINFID=66 MAXFID=153 FNTSTR='1B5700121B3A'X FNTEND=''X FNTWTH=''X. /* PS */ :FNTGRPE MINFID=154 MAXFID=200 FNTSTR='1B5001'X FNTEND='1B5000'X FNTWTH = /* FOR 4247 PRINTER */ /* NLQ font */ /* N/240 converted to 1440ths */ /* -0-1-2-3-4-5-6-7-8-9-A-B-C-D-E-F */ '90909090789090909090909090909090'X /* 0- */ '90909090909090909090909090909090'X /* 1- */ '903C6090909090484848909048904878'X /* 2- */ '90609090909090909090484878907878'X /* 3- */ '90909090909090909060909090909090'X /* 4- */ '90909090909090907890906078609090'X /* 5- */ '48908484849090849060607860909084'X /* 6- */ '84848490789090907890786C306C9090'X /* 7- */ '90909090909090909090906C78609090'X /* 8- */ '90909084848490908484909090908490'X /* 9- */ '90909090909090909090909090909090'X /* A- */ '90909090909090909090909090909090'X /* B- */ '90909090909090909090909090909090'X /* C- */ '849090909060606060909090903C6090'X /* D- */ '9090909084909084849090909090843C'X /* E- */ '90909090909090606060486060606090'X. /* F- */ /* 15 CPI */ :FNTGRPE MINFID=211 MAXFID=239 FNTSTR='1B570014141B4104'X FNTEND=''X FNTWTH=''X. /* 5 CPI */ :FNTGRPE MINFID=240 MAXFID=246 FNTSTR='121B5701'X FNTEND='1B5700'X FNTWTH=''X. /* 17.1 CPI */ :FNTGRPE MINFID=247 MAXFID=259 FNTSTR='1B570014141B4105'X FNTEND=''X FNTWTH=''X. /* 8.57 CPI */ :FNTGRPE MINFID=260 MAXFID=273 FNTSTR='120F1B5701'X FNTEND='1B5700'X FNTWTH=''X. /* 17.1 CPI (reprise) */ :FNTGRPE MINFID=274 MAXFID=279 FNTSTR='1B570014141B4105'X FNTEND=''X FNTWTH=''X. /* 20 CPI */ :FNTGRPE MINFID=280 MAXFID=299 FNTSTR='1B570014141B4106'X FNTEND=''X FNTWTH=''X. :EFNTGRP. /* Individual Fonts */ :INDFNT. /* OCR B font (10 cpi) :INDFNTE FID=3 POINTSIZE=0 FNTSTR='1B491112'X FNTEND='1B4900'X FNTWTH=''X. @L3D*/ /* OCR A font (10 cpi) :INDFNTE FID=19 POINTSIZE=0 FNTSTR='1B491012'X FNTEND='1B4900'X FNTWTH=''X. @L35D*/ /* 16.6 CPI (FGID 400) */ :INDFNTE FID=400 POINTSIZE=0 FNTSTR='1B570014141B4105'X /* Selects 17.1 */ FNTEND=''X FNTWTH=''X. :EINDFNT. /* Page Sizes (cont forms) */ :PAGSIZXFM. /* 13.2" X 8.5" */ :PAGSIZE PAGWTH=19008 PAGLEN=12240 DATA='1B410C1B321B4333'X. /* 8.0" X 8.5" */ :PAGSIZE PAGWTH=11520 PAGLEN=12240 DATA='1B410C1B321B4333'X. /* 13.2" X 11" */ :PAGSIZE PAGWTH=19008 PAGLEN=15840 DATA='1B410C1B321B4342'X. /* 8.0" X 11" */ :PAGSIZE PAGWTH=11520 PAGLEN=15840 DATA='1B410C1B321B4342'X. :EPAGSIZXFM. /* 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. /* Envelope Size */ :ENVSIZXFM. :ENVSIZE /* USA 6 */ ENVWTH=12470 ENVLEN=6235 DATA='1B430004'X. :ENVSIZE /* Monarch */ ENVWTH=10800 ENVLEN=5580 DATA='1B430004'X. :ENVSIZE /* 10 */ ENVWTH=13680 ENVLEN=5940 DATA='1B430004'X. :EENVSIZXFM. /* Formfeed */ :FORMFEED DATA='0C'X. /* Space */ :SPACE DATA='20'X. /* Carriage Return */ :CARRTN DATA='0D'X. /* Linefeed */ :LINEFEED DATA='0A'X. /* Printer Data Stream */ :PRTDTASTRM DATASTREAM=IBMPPDS1. /* Print Quality */ :PRTQLTY QLTYTYPE=TEXT DATA='14141B7003'X. /* NLQ @L3C*/ :PRTQLTY QLTYTYPE=LETTER DATA='14141B7004'X. /* LQ @L3C*/ :PRTQLTY QLTYTYPE=DRAFT DATA='14141B7002'X. /* Normal Draft @L3C*/ /* Backspace */ :BSP DATA='08'X. /* End Bold */ :ENDBOLD DATA='1B46'X. /* End Subscript */ :ENDSUBS DATA='1B54'X. /* End Superscript */ :ENDSUPS DATA='1B54'X. /* End Underscore */ :ENDUS DATA='1B2D00'X. /* Intialize Printer */ :INITPRT DATA='11'X '14141B40'X /* ADD RE-INITIALIZE PRINTER @L3A*/ '14141B5905'X. /* ADD SELECT 4247 EMULATION @L3A*/ /* Start Bold */ :STRBOLD DATA='1B45'X. /* Start Subscript */ :STRSUBS DATA='1B5301'X. /* Start Superscript */ :STRSUPS DATA='1B5300'X. /* Start Underscore */ :STRUS DATA='1B2D01'X. /* Variable Line Spacing */ :VARLSPC VAROFFSET=2 VARLEN=2 VARTYPE=LOWHIGH CNVNUM=1 CNVDEN=72 DATA='1B4100001B32'X. /* Horizontal Relative Movement */ :HORRMOV DIRECTION=FWD VAROFFSET=2 VARLEN=2 VARTYPE=LOWHIGH CNVNUM=1 CNVDEN=120 DATA='1B640000'X. /* Reset Printer */ :RESETPRT DATA='1B461B481B4F1B541B55001B57001B35001B5F'X '001B2D00'X. /* ASCII Code Page Information */ :EBCASCTBL. :EBCASCTBLE EBCDICCP = 37 ASCIICP = 850 /* @L3A*/ DATA = ''X. :EBCASCTBLE EBCDICCP = 424 ASCIICP = 1255 /* @L3C*/ DATA = ''X. :EEBCASCTBL. :ASCCPINFO. :CODEPAGE CODEPAGE=437 DATA='1B5B540400000001B5'X. :ASCIICTL ASCII='14'X DATA='1B5E14'X. :ASCIICTL ASCII='15'X DATA='1B5E15'X. :ASCIICTL ASCII='0F'X DATA='1B5E0F'X. :CODEPAGE CODEPAGE=850 DATA='1B5B54040000000352'X. :ASCIICTL ASCII='14'X DATA='1B5E14'X. :ASCIICTL ASCII='15'X DATA='1B5E15'X. :ASCIICTL ASCII='0F'X DATA='1B5E0F'X. :CODEPAGE CODEPAGE=851 DATA='1B5B54040000000353'X. :ASCIICTL ASCII='14'X DATA='1B5E14'X. :ASCIICTL ASCII='15'X DATA='1B5E15'X. :ASCIICTL ASCII='0F'X DATA='1B5E0F'X. :CODEPAGE CODEPAGE=852 DATA='1B5B54040000000354'X. :ASCIICTL ASCII='14'X DATA='1B5E14'X. :ASCIICTL ASCII='15'X DATA='1B5E15'X. :ASCIICTL ASCII='0F'X DATA='1B5E0F'X. /* Cyrillic */ :CODEPAGE /* @E4A*/ CODEPAGE=855 /* @E4A*/ DATA='1B5B54040000000357'X. /* @E4A*/ :ASCIICTL /* @E4A*/ ASCII='14'X /* @E4A*/ DATA='1B5E14'X. /* @E4A*/ :ASCIICTL /* @E4A*/ ASCII='15'X /* @E4A*/ DATA='1B5E15'X. /* @E4A*/ :ASCIICTL /* @E4A*/ ASCII='0F'X /* @E4A*/ DATA='1B5E0F'X. /* @E4A*/ :CODEPAGE CODEPAGE=857 DATA='1B5B54040000000359'X. :ASCIICTL ASCII='14'X DATA='1B5E14'X. :ASCIICTL ASCII='15'X DATA='1B5E15'X. :ASCIICTL ASCII='0F'X DATA='1B5E0F'X. :CODEPAGE /* @E2A*/ CODEPAGE=858 /* @E2A*/ DATA='1B5B5404000000035A'X. /* @E2A*/ :ASCIICTL /* @E2A*/ ASCII='14'X /* @E2A*/ DATA='1B5E14'X. /* @E2A*/ :ASCIICTL /* @E2A*/ ASCII='15'X /* @E2A*/ DATA='1B5E15'X. /* @E2A*/ :ASCIICTL /* @E2A*/ ASCII='0F'X /* @E2A*/ DATA='1B5E0F'X. /* @E2A*/ :CODEPAGE CODEPAGE=860 DATA='1B5B5404000000035C'X. :ASCIICTL ASCII='14'X DATA='1B5E14'X. :ASCIICTL ASCII='15'X DATA='1B5E15'X. :ASCIICTL ASCII='0F'X DATA='1B5E0F'X. :CODEPAGE CODEPAGE=862 DATA='1B5B5404000000035E'X. :ASCIICTL ASCII='14'X DATA='1B5E14'X. :ASCIICTL ASCII='15'X DATA='1B5E15'X. :ASCIICTL ASCII='0F'X DATA='1B5E0F'X. :CODEPAGE CODEPAGE=863 DATA='1B5B5404000000035F'X. :ASCIICTL ASCII='14'X DATA='1B5E14'X. :ASCIICTL ASCII='15'X DATA='1B5E15'X. :ASCIICTL ASCII='0F'X DATA='1B5E0F'X. :CODEPAGE CODEPAGE=864 DATA='1B5B54040000000360'X. :ASCIICTL ASCII='14'X DATA='1B5E14'X. :ASCIICTL ASCII='15'X DATA='1B5E15'X. :ASCIICTL ASCII='0F'X DATA='1B5E0F'X. :CODEPAGE CODEPAGE=865 DATA='1B5B54040000000361'X. :ASCIICTL ASCII='14'X DATA='1B5E14'X. :ASCIICTL ASCII='15'X DATA='1B5E15'X. :ASCIICTL ASCII='0F'X DATA='1B5E0F'X. /* Hebrew */ :CODEPAGE /* @E4A*/ CODEPAGE=867 /* @E4A*/ DATA='1B5B54040000000363'X. /* @E4A@L3C*/ :ASCIICTL /* @E4A*/ ASCII='14'X /* @E4A*/ DATA='1B5E14'X. /* @E4A*/ :ASCIICTL /* @E4A*/ ASCII='15'X /* @E4A*/ DATA='1B5E15'X. /* @E4A*/ :ASCIICTL /* @E4A*/ ASCII='0F'X /* @E4A*/ DATA='1B5E0F'X. /* @E4A*/ :CODEPAGE /* @L3A*/ CODEPAGE=876 DATA='1B5B5404000000036C'X. :ASCIICTL ASCII='14'X DATA='1B5E14'X. :ASCIICTL ASCII='15'X DATA='1B5E15'X. :ASCIICTL ASCII='0F'X DATA='1B5E0F'X. :CODEPAGE /* @E4A*/ CODEPAGE=877 DATA='1B5B5404000000036D'X. :ASCIICTL ASCII='14'X DATA='1B5E14'X. :ASCIICTL ASCII='15'X DATA='1B5E15'X. :ASCIICTL ASCII='0F'X DATA='1B5E0F'X. :CODEPAGE /* @L3A*/ CODEPAGE=1250 DATA='1B5B540400000004E2'X. :ASCIICTL ASCII='14'X DATA='1B5E14'X. :ASCIICTL ASCII='15'X DATA='1B5E15'X. :ASCIICTL ASCII='0F'X DATA='1B5E0F'X. :CODEPAGE /* @L3A*/ CODEPAGE=1251 DATA='1B5B540400000004E3'X. :ASCIICTL ASCII='14'X DATA='1B5E14'X. :ASCIICTL ASCII='15'X DATA='1B5E15'X. :ASCIICTL ASCII='0F'X DATA='1B5E0F'X. :CODEPAGE /* @L3A*/ CODEPAGE=1252 DATA='1B5B540400000004E4'X. :ASCIICTL ASCII='14'X DATA='1B5E14'X. :ASCIICTL ASCII='15'X DATA='1B5E15'X. :ASCIICTL ASCII='0F'X DATA='1B5E0F'X. :CODEPAGE /* @L3A*/ CODEPAGE=1253 DATA='1B5B540400000004E5'X. :ASCIICTL ASCII='14'X DATA='1B5E14'X. :ASCIICTL ASCII='15'X DATA='1B5E15'X. :ASCIICTL ASCII='0F'X DATA='1B5E0F'X. :CODEPAGE /* @L3A*/ CODEPAGE=1254 DATA='1B5B540400000004E6'X. :ASCIICTL ASCII='14'X DATA='1B5E14'X. :ASCIICTL ASCII='15'X DATA='1B5E15'X. :ASCIICTL ASCII='0F'X DATA='1B5E0F'X. :CODEPAGE /* @L3A*/ CODEPAGE=1255 DATA='1B5B540400000004E7'X. :ASCIICTL ASCII='14'X DATA='1B5E14'X. :ASCIICTL ASCII='15'X DATA='1B5E15'X. :ASCIICTL ASCII='0F'X DATA='1B5E0F'X. :CODEPAGE /* @L3A*/ CODEPAGE=1256 DATA='1B5B540400000004E8'X. :ASCIICTL ASCII='14'X DATA='1B5E14'X. :ASCIICTL ASCII='15'X DATA='1B5E15'X. :ASCIICTL ASCII='0F'X DATA='1B5E0F'X. :CODEPAGE /* @L3A*/ CODEPAGE=1257 DATA='1B5B540400000004E9'X. :ASCIICTL ASCII='14'X DATA='1B5E14'X. :ASCIICTL ASCII='15'X DATA='1B5E15'X. :ASCIICTL ASCII='0F'X DATA='1B5E0F'X. :EASCCPINFO. :EWSCST. /******************** End of Object ***************************/