Edit macro SCRIPTPS Edit macro SCRIPTPS Author: David McRitchie formatted on 1995/04/01 06:54 for assistance contact: D. McRitchie DMcRitchie@hotmail.com -------------------------------------------------------------------------------- Macro name. SCRIPTPS users. SCRIPT users type. Edit Macro resides in SYS1.TSOCLIST -------------------------------------------------------------------------------- SCRIPTPS Creates/Prints a PostScript document using SCRIPT/VS. -------------------------------------------------------------------------------- related PDF option 4.9 and primary option 3.1 related macro @SCRIPT related macro DCFMSGS for use after SCRIPTPS Q -- merges error messages as MSG or NOTE lines back into original document for easier location of errors. Also see material in "SCRIPT/VS Logical Line Devices" on page @RESQ-1 for information on page dimensions -------------------------------------------------------------------------------- +------------------------------------------------------------------------------+ | Quick Reference for SCRIPTPS | | | | The SCRIPTPS macro will format a PostScript document which will be formatted | | using SCRIPT/VS. When the SCRIPTPS macro is used most parameters including | | the dataset and membername will be provided automatically on your behalf | | greatly simplifying SCRIPT/VS usage. | | | | The SCRIPTPS macro works from within edit of a member. The most frequent | | methods of invoking SCRIPTPS are as follows: | | To view on your TSO screen, use whichever of the following works best for | | you: | | COMMAND ===> SCRIPTPS Test without printing, or | | create dataset only | | COMMAND ===> SCRIPTPS PU|dest(PU2ZD) Print in SYSTECH room | | COMMAND ===> SCRIPTPS TECHPS|dest(TCPPRTST)Print in SYSTECH room | | COMMAND ===> SCRIPTPS GO|dest(P15NF) Print in "war room" A-232. | +------------------------------------------------------------------------------+ | The source for this document resides in IS03.SHARE.TEXT(SCRIPTPS) and may | | be formatted using any of the above commands. | +------------------------------------------------------------------------------+ -------------------------------------------------------------------------------- Since square brackets are not available, optional material is enclosed in European brackets <...>. ISREDIT SCRIPTPS (see options below) -------------------------------------------------------------------------------- Options All options may be entered in upper or lowercase, since everything will be con- verted to uppercase by the SCRIPTPS edit macro. across, generate dev(PSA90) to print Landscape instead of Portrait. b, BookMaster, either of one of the following two may be defaulted. profiledsn = "SCRIPT.EDF.EDFMAC" profiledsn = "SYS1.EDF.EDFMAC1" browse, chars(matrix), Specify Adobe Font Matrix. CHARS(PSFHV), is the default. CHARS() can be specified directly or by using the first significan word of the font, and an optional pointsize, and op- tional Italic indication. _option_ _font referenced_ _chars(xxxx)_ _pointsize_ Courier COURIER generates PSFCR... 7, 10 I Helvetica HELVETICA generates PSFHV... 3, 7, 8, 10 I Avant ITC Avant Garde Gothic generates PSFAG... 4, 6 I Bookman ITC Bookman generates PSFBK... 3, 6 I Garamond ITC Garamond generates PSFGR... 3, 7 I Korinna ITC Korinna generates PSFKO... 7, 10 I Schoolbook New Century Schoolbook generates PSFNCS... 7, 10 I Palatino PALATINO generates PSFPL... 7, 10 I Times TIMES ROMAN generates PSFTR... 7, 10 I Times Roman TIMES ROMAN generates PSFTR... 7, 10 I 3,7,8,10 Pointsize generates L,B,BK,(null) appended to CHARS(PSF--xxx) I|ITALIC suffix 0 to HV|CR|AG char or I otherwise class(g), G is the default co | cont | continue, Continue after error(s) encountered copies(), generates COPIES(n) on the OUTDES entry may not work for some PostScript printers connected. dest(-----) required if file is to be sent, there is not default but the following may be used in place of DEST(). PU|dest(PU2ZD) Print in SYSTECH room TECHPS|dest(TCPPRTST) Print in SYSTECH room GO|dest(P15NF) Print in "war room" A-232. dev(psa), is the default, dev(psa90) is used for landscape. dsmprof(edfprf40) is used for BookMaster otherwise the default is dsmprof(dsmprof4). force, Attempt to print even though errors found fp(fp) format passes. FP(1) capitalized and on first card legal, generate dev(PSL) for legal size paper 8.5 x 14 noco, turns off continue noprint, destination can be specified, but NOPRINT will still prevent printing after formatting. page(), same as in SCRIPT/VS reference manual Page(* for 3) Page(31 to *) Page(11 for 4) PSOUT(A), is the default, E, generate PSOUT(E) for EBCDIC so you can view only, cannot be used to print. A, generate PSOUT(A), which is the default stop, will terminate before SCRIPT is actually invoked. The purpose is to examine the options that the SCRIPTPS execute will generate. There is no need for a NOPRINT option as used in @SCRIPT, since you must specify a destination when using SCRIPTPS to print. sysvar(), will be added to default SYSVAR(G INLINE Z destination) Creating a dataset to transfer to a PC The SCRIPTPS generates userid.PUBLIC.membername as a dataset name. Whether you send output to a destination or not this dataset will currently be created. An example of an OS/2 excute to transfer the file over to a PC and print can be seen in is03.pc.cmd(SOPPS) which you could install on your own PC and modify to your own PostScript printer use. The content appears below: /* Get document from TSO and print */ /* TSO SOP xxxx */ /* SCRIPTPS */ /* TSO Q OS2 */ /* SOPPS membername */ say 'Requires command line on TSO COMMAND PROCESSOR to be blank' , time('n') Say ' Recommend ===> TSO Q OS2 on the TSO side for set up' arg member session if member = '' then do;say 'reenter command with membername'; return;end; say '----'member'------' if substr(session,2,1)=": " then session = substr(session,1,2) else session = '' address cmd 'receive c:\junk\s9999.PS' session'public.'member /* LPT5 is SYS4029 in 300-dpi mode */ /* to see printers available -- C:> NET VIEW \\IS02REQ */ if rc = 0 then do address cmd 'copy C:\junk\s9999.ps lpt5' /* address cmd 'del c:\junk\S9999.ps' */ end