Edit macro @SCRIPT Edit macro @SCRIPT Author: David McRitchie formatted on 1995/04/01 06:54 for assistance contact: D. McRitchie DMcRitchie@hotmail.com -------------------------------------------------------------------------------- Macro name. @SCRIPT users. SCRIPT users type. Edit Macro resides in SYS1.TSOCLIST -------------------------------------------------------------------------------- @SCRIPT SCRIPT the document currently in EDIT -------------------------------------------------------------------------------- related PDF option 4.9 and primary option 3.1 related macro SCRIPTPS for PostScript related macro DCFMSGS for use after @SCRIPT 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 @SCRIPT | | | | The @SCRIPT macro will format a document which will be formatted using | | SCRIPT/VS. When the @SCRIPT macro is used most parameters including the da- | | taset and membername will be provided automatically on your behalf greatly | | simplifying SCRIPT/VS usage. | | | | The @SCRIPT macro works from within edit of a member. The most frequent | | methods of invoking @SCRIPT are as follows: | | | | 1. To view on your TSO screen, use whichever of the following works best | | for you: | | | | COMMAND ===> @SCRIPT Q | | | | COMMAND ===> @SCRIPT Q LL(71) | | | | COMMAND ===> @SCRIPT EDIT | | | | COMMAND ===> @SCRIPT Q BROWSE LL(81) -- use right 1 after | | | | 2. To print at Our Company's Data Center: | | | | COMMAND ===> @SCRIPT | | | | 3. To print at another location: | | | | COMMAND ===> @SCRIPT DEST(dest) | | | +------------------------------------------------------------------------------+ | The source for this document resides in IS03.SHARE.TEXT(@SCRIPT) and may be | | formatted using any of the above commands. | +------------------------------------------------------------------------------+ The @SCRIPT macro is designed to accomplish the following: 1. Simulate output at terminal by highlighting and underscoring text (if sup- ported by terminal). 2. Simplify obtaining output listings. 3. Simplify usage of SCRIPT by eliminating need to use panels with dozens of different styles. The panels fail to identify errors to you when you will be printing in page mode. 4. Remove error listings from main portion, especially when multiple copies are requested. 5. The @SCRIPT edit macro may be terminated with the attention key (PA1) when you do not wish to proceed any further. Especially useful if too many messages are coming out, or a table is SPLIT between pages. -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- Page @DATE-1 SYSTECH NOTICE -- CLISTS Since square brackets are not available, optional material is enclosed in European brackets <...>. ISREDIT @SCRIPT VIEW> -------------------------------------------------------------------------------- FRAME Persons working with SCRIPT. FRAME @SCRIPT THE MEMBER CURRENTLY DISPLAYED IN EDIT Display the output of SCRIPT material on a terminal. An alternative to the use of PDF panel 4.9 and master panel 3.1. Suggested Us- ages of the @SCRIPT edit macro -- page mode @SCRIPT @SCRIPT P (P = Portrait, is the default) Use to print in PORTRAIT mode on 3820 and 3900. The 3820 is a cut sheet printer all paper runs through the printer with the short edge at the top. In PORTRAIT mode when you look at your output the short edge is at the top. The 3900 as delivered by IBM accepts only fanfold paper, but logically it is treated as a cut sheet printer. Generates SCRIPT ... DEV(PG1A) Generates OUTDES FORMDEF(A10111) CLASS(A) is the default, on a 3900 this simply means that the paper will be regular paper with the tear strips along the short edges and 3-hole punched along both of the long edges. The advantage of regu- lar paper for printing in portrait mode are as follows: * Printed once an hour usually in time for the hourly delivery. * The paper is punched for 3-hole binders, or ACCU binders. * The sheets can be turned like a normal book. * Uses less paper because more lines can be printed on a page. * Adequate left margins have been set up for printing on the 3900. Page printers will not automatically include CONTINUE and SPELLCHK. Debugging should be with EDIT or Q options described later. @SCRIPT POINT(11) Use to print portrait on our page printer with 11 point characters. A point is 1/72 inch. The default point size is 10 point. Eleven point is nice for letters, memos, and single page notices. Point sizes are available in 6,7,8,9,10 11, 12, 14, 16, 18, 20, 24, 30 and 36 points. Point sizes of 4 and 5 are specialties not available in the SONORAN SERIF or SONORAN SANS SERIF typefaces. Generates SCRIPT ... DEV(38PPNS90) CHARS(X2T055AC) default FORMDEF(0101LA) @SCRIPT HELVETICA Use to print with a legitimate HELVETICA typefont. Produces a more technical looking format without serifs. Helvetica is a universal font known throughout the world of publishing and is generally avail- able also on PC laser printers. Our default is SONORAN SERIF for typography printing with SCRIPT/VS. The choice of typeface is a matter of preference, you will not get an agreement as to which looks better, or is more readable. Your choices may be limited by a company style manual, if one comes out. Some of our printers attached to PC's support PostScript which allow for a much broader choice. PostScript is not supported on the 3900. Use the SCRIPTPS execute instead of @SCRIPT if using PostScript. @SCRIPT SANS Use to print sans serif (without serifs). Produces a more technical looking format. Default is changed from "SONORAN SERIF" to "SONORAN SANS SERIF". Choice of typeface is a matter of preference, you will not get an agreement as to which looks better, or is more readable. Your choices may be limited by a company style manual, if one comes out. The 3900 does not support PostScript fonts. Sonoran fonts are not supported on 300 dpi printers available via PSF/2. @SCRIPT CLASS(1) Prints portrait on SCRIPT paper in page mode. SCRIPT paper is with- out holes, has the tear strips on the long edges, and is heavier than regular paper. Basically the appearance is the same whether printing on regular paper with default CLASS(A) or on SCRIPT paper with CLASS(1). The Script paper does not fanfold nicely, but when torn apart it will run through a copying machine more reliably. Turn- around is twice a day. @SCRIPT L Use to print LANDSCAPE on regular paper on a 3820 or 3900. Generates SCRIPT ... DEV(PG1A90). Generates OUTDES FORMDEF(C10110), can be be overridden. @SCRIPT edit macro -- usages at your terminal @SCRIPT BROWSE @SCRIPT EDIT Use to view output at your terminal. Use additional parameters if you can only see 73 characters at your terminal. The use of EDIT or BROWSE places SCRIPTed output and errors into a dataset named userid.S9999.LIST. The use of EDIT generally works better than BROWSE because of your choice of options once you are in EDIT. The use of EDIT will include CONTINUE and SPELLCHK to give you full op- portunity to find your errors. @SCRIPT Q LL(72) @SCRIPT Q Use to view output at your terminal. If your viewing area is limited to 73 characters of data when in edit you may wish to include LL(72). Highlighting will be suppressed by the DSMPROFL profile. The Q op- tion is equivalent to EDIT DSMPROF(DSMPROFL). @SCRIPT EDIT DSMPROF(DSMPROFL) LL(72) Use to view output at your terminal if your viewing area is limited to 73 characters of data when in edit. Highlighting will be sup- pressed by the DSMPROFL profile. @SCRIPT PROFS(profuserid) Will format your SCRIPT text and send it to PROFS. There is no check of the userid -- it must be one person and it must be correct. You must identify yourself, the date, and the subject in your text. SYSTECH can provide more information on moving datasets back and forth between MVS, PROFS, and other systems. A userid with only one node will be prefixed by HOSTname so that it will be the same as DEST(HOSTname.userid). Generic Usage id=scxgi INPUT(inputdsn) Provide fully qualified dataset name (quotes optional), if the SCRIPT file will not be the dataset currently in edit. B BookMaster files are used instead of Starter Set GML files. Data set formatted should have been created specifically for use with BookMaster. ACROSS Indicates 38PP type of device will be in use. For CLASS(1) will generate DEV(38PPN) with FORMDEF(0101PA) as defaults; otherwise, will generate DEV(38PPNS) with FORMDEF(0101LA) as a default such as for CLASS(A). The ACROSS option may be needed at COMDISCO, but it should not be used at AHCENTER. The top and bottom 1/2 inch are not available for printing. When using ACROSS on Script paper the 1/2 inch not available is where the holes are. DOWN Indicates 38PPNS90 will be the logical device. Since we use LAND- SCAPE normally on the printer will also generate FORMDEF(xxxxxx). The DOWN option may be needed at COMDISCO, but it should not be used at AHCENTER. The top and bottom 1/2 inch are not available for printing. When using DOWN on regular paper the 1/2 inch not avail- able is where the holes are. Generates SCRIPT ... DEV(38PPNS90) default FORMDEF(0101LA) EDIT For viewing in EDIT output that would be generated for a 1403, show- ing overprints. HELP or ?, will invoke CLIST @SCRIPT HELP to display information for the @SCRIPT macro. IDATA Special set for our one single IDATA printer. Future users will have to specify destination. L LANDSCAPE on 3900 or any 3820 type of printer. The entire page is printable. Most printers have a slight limitation such as 2/10 inch margins. MACRO(macro) MACRO() will invoke the name edit macro to process the resulting output file (dataset). MACRO() will turn on the EDIT option. Most likely to be used with @SCRIPT Q or with DEV(1403...) options. P PORTRAIT on 3900 or any 3820 type of printer. The entire page is printable. Most printers have a slight limitation such as 2/10 inch margins. Q QUICK option for viewing in EDIT at a terminal without most multiple overstrikes. The line length is set at 78 for viewing by any 3820 type of terminal. Recommended use is for debugging. PROFS(profs) Specifys a PROFS OV/VM, Office Vision, or E-Mail address and options compatible with 78 characters output. SysTech Special Usage id=scxtu SYSTECH Set up special use for SYSTECH printer (4224) in the SYSTECH li- brary. SYSTECHL LANDSCAPE, special use for the SYSTECH laser printer (4029-040) at- tached to the SYSTECH Lan with a destination of PU00L. SYSTECHP PORTRAIT, special use for the SYSTECH laser printer (4029-040) at- tached to the SYSTECH Lan with a destination of PU00L. TECHPSF Supplies DEST(TECHPSF) for the SYSTECH laser printer (4029-040) at- tached to PSF/2 within the SYSTECH Lan, addressed with a DEST=TECHPSF in JCL. SCRIPT Command portion of @SCRIPT id=scxcp See "Processing GML Documents with SCRIPT/VS" for more specific information. B(bind) Override the BIND options associated with the device type. BIND(bind) Override the BIND options associated with the device type. CHARS(chars) Specify the fonts to be used on the SCRIPT command. Also see "SCRIPT CHARS() generation" for @SCRIPT usage. CONTINUE also CONT or CO. Attempt to continue if SCRIPT has errors, not re- commended for page or PostScript printers. DCFINDEX(dcfindex) Used internally for PostScript and BookMaster usage. Other usage not expected. or DEVICE(device DEV(device) Specify SCRIPT/VS Logical Line/Page Device see tables "SCRIPT/VS Logical Line Devices", and "SCRIPT/VS Logical Page Devices". DSMPROF(dsmprof) Override the DSMPROF4 profile. FP(fp) Specify number of formatting passes. See Processing Options. LL(ll) Create a SYSVARL variable to set line length in profile. Used only by DSMPROFL profile. NOSPELL Override @SCRIPT default of SPELL for some 1403 usage. SPELL is not defaulted by @SCRIPT for page or PostScript printers. NUMBER Available only on LINE devices, print the file-id and line number of of the last line read when a formatted output line is printed. The formatter reads ahead and since the number printed is that of the last input line read, the number printed may not correspond to the input line number of the text printed in the output line. The file-id and line number are printed to the right of the formatted output line, and each can be no more than eight characters long. PSEGLIB(psegdsn) Override PSEGLIB() dataset, normally 'SYS1.PROD.PSEGLIB'. PSA Generate PostScript output, DEV(PSA). ????????? SCRPTLIB Indicates that SCRPTLIB has been preallocated, and will be used be- fore the default library. The default librarydsn for Starter Set is SCRIPT.R40.MACLIB and the default for BookMaster is SCRIPT.EDF.EDFMAC. If SCRPTLIB is not included @SCRIPT will gener- ate LIB('librarydsn'). SEG(psegdsn) Override PSEGLIB() dataset, normally 'SYS1.PROD.PSEGLIB'. (same as PSEGLIB option) SPELLCHK Generate SPELLCHK which is only defaulted in @SCRIPT for line print- ers. SYSVAR(sysvar) Specify additional SYSVAR parameters. Currently @SCRIPT will produce default SYS(X NO H NO D YES), which will be placed in front. Any of your specifications will be appended. Parameters specified later override any earlier specification. TRACE Error lines show line on which error occurred. The use of TRACE shows where each line came from back to the primary input file. Useful when a file is imbedded in may other files. When using @SCRIPT edit macro you may terminate SCRIPT immediately with the At- tention key (PA1). UP Convert text to uppercase, use only on printers that do not handle lowercase. SCRIPT CHARS() generation id=scxsp BOLD Add BOLD attribute to starting CHARS(chars), may not be fully opera- tional for all codepages. DROPCAP SYSVAR(I YES), make paragraphs (:p.) begin with the first letter as a very large capital letter. The same effect can be done individ- ually by using :pp. tag. DUPLEX(duplex) SYSVAR(D Y), create output for two-sided printing GT12 Create CHARS() option with appropriate GT12, X0GT12, X1GT12, or X2GT12 as required with device type or options P, L, ACROSS, or DOWN. Will not override a CHARS(chars) option in use. GT15 Similar to GT12. Since there is no GB15 the use of ST15 which is actually finer will be used where boldface (high-light 2) is speci- fied on page printers. HELVETICA Will generate HELVETICA LATIN1 as the font. Attempting use with POINT(pointsize) may not work. If not acceptable SCRIPT will termi- nate quickly. ITALIC Add ITALIC attribute to starting CHARS(chars), may not be fully op- erational for all codepages. POINT(point) Change the pointsize of the starting CHARS(chars), may not be fully operation for all codepages. SANS Add SANS attribute CHARS() option being generated. SONORAN Specify SONORAN for the CHARS() option being generated. STYLE(style) Used with B (BookMaster) option to generate SYSVAR(1 style), where style may be the number of columns. Some styles found in SCRIPT.EDF.EDFMAC include: IBMGGPL, IBMPGPL, IBMP1LT, IBMP1PL, IBMP1PLM IBMP1PTM IBMP4PL, IBMP5LTM IBMS1PL, IBMUGPL, IBMU1PL, IBMU1PLM IBMU1PTM IBMU2PL, IBMU4PL, IBMU5LTM IBMXAGD, IBMXARF, IBMXASV1 IBMXBGD, IBMXBRF, IBMXFSM, IBMXGGD, L2COLUMN, L2OFFSET, L3COLUMN, P3COLUMN The styles that begin with IBM do not appear as members in this li- brary but were seen within the content of the library refer to BOOREAD book EDFUMA00 BookMaster R4 User's Guide, Appendix B.0 . OUTDES or OUTPUT Statement id=scxos CLASS(class) SYSOUT or OUTPUT class to be used. May be used on SCRIPT command if DIRECT or BATCH option is used; otherwise, output goes to a data- set which is copied for printing after error free or acceptable level. Generates either PRINT(copies,class) or CLASS(class). COPIES(copies) Number of copies to be printed. Generates either PRINT(copies,class) or COPIES(copies). DEST(dest) Destination of printed output. If not specifed or defaulted by other option output will be printed in Corporate Information Systems (CIS) Computer Room in Our Company. DEST(HOSTname) is the default unless your TSO userid has some other default. Options which will not print in computer room include EDIT, Q, SYSTECH, IDATA. Unless a future conflict is created the DEST() will be added to the system variables as SYSVAR(Z dest) by the @SCRIPT macro, making it possible to indicate to indicate this information on the document. .$id &$PDEV. &$LDEV. dest(&SYSVARZ.) The resulting output of .$ID could include dest(UNKNOWN) when no destination was supplied. The use of .$ID as above might look some- thing like the following: 'IS03.SHARE.TEXT(NCADD)' -- @SCRIPT April 1st, 1995 6:54 a.m. -- 1403 1403W8 dest(&SYSVARZ.) DIRECT Cause PRINT(copies,class) to be used instead of PRINT(dataset). FCB(fcb) Added to OUTDES or OUTPUT statement. FORMDEF(formdef) Added to OUTDES or OUTPUT statement. GROUPID Added to OUTDES or OUTPUT statement. Normal default is membername unless the membername contains national characters (@,#,$). LINECT(linect) Added to OUTDES or OUTPUT statement. A default of LINECT(0) will be generated. NOFCB Remove any assumed FCB attributes generated based on devicetype. PAGEDEF(pagedef) Added to OUTDES or OUTPUT statement. PAGEDEF's will override FCB's if both are present. WRITER(writer) Writer will be invoked for the output printer. Same as WTR(). WTR(writer) Writer will be invoked for the output printer. Syntax Check, NOPRINT, and Batch options id=scbst BATCH A batch job is to be invoked to do SCRIPT. Your terminal will not be tied up but you may miss critical error messages, or get unde- sired output. DOC Include the options that were specified and most of the generated options at the end of your file being formatted. Lines will be added after the last line having a blank in column 1, provided there is at least one line afterwards. Recommend also placing the follow- ing text in your data. .$PARM .$ID (blank line) :cindex. or :index. .lastpage The DOC option is mainly for debugging, and documentation purposes. Your document will be modified and saved. NOPRINT Recommended for debugging. Document will be formatted but will not be printed. SCRIPT errors will be made known to you. STOP Recommended for examination of options generated. The @SCRIPT macro will terminate before actually formatting the document. The docu- ment will not be printed. Special On-line viewing imitation on-line SOP id=scxov REVIEW Will format your existing userid.S9999.LIST dataset into a VSAM dataset so that you can view your output in the same manner as the online SOP manual. VIEW Will SCRIPT your document, creating your userid.S9999.LIST data- set, and format it into a VSAM dataset that can be viewed in the same manner as the online SOP manual. The VSAM dataset, TV.userid.@SCRIPT.TEMP, created will be deleted. The default for both .cl and .ll is 60 The following code will be generated by DSMPROF4 to facilitate proper viewing. (normally DSMPROF4 is in use) .ll 78;.se pcll = 78 .cl 78;.se pcll = 78 .se PROF4LL = 78;.se PROF4CL = 78 Creating your own CLIST or MACRO to incorporate the @SCRIPT edit macro Following is an example to take care of concatenation of LIBR datasets. For those who had used concatenated LIBR ===> ===> ===> you can accomplish this concatenation as follows: ===> TSO ALLOC DDNAME(TEXTLIB) DA('IS02.TSOCONV.TEXT' 'IS02.UTILITY.TEXT') SHR ===> @SCRIPT DOWN ===> TSO FREE DDNAME(TEXTLIB) ** Alternate method -- create an EDIT macro to include the above An Edit macro has been created for the above (only if you have to do this often). -- SYS1.TSOCLIST(@DOCJWK) ===> @DOCJWK COPIES(5) ISREDIT MACRO (PARM) ALLOCATE DDNAME(TEXTLIB) DA('IS02.TSOCONV.TEXT' + 'IS02.UTILITY.TEXT') SHR REUSE IF &LASTCC ª= 0 THEN DO WRITE SORRY CANNOT ALLOCATE TEXTLIB DATASETS EXIT CODE(12) END ISREDIT @SCRIPT &PARM. FREE DDNAME(TEXTLIB) ISREDIT LINE_BEFORE .ZF = NOTELINE " via @DOCJWK &STR(&PARM.)" Some additional clists related to SCRIPT usage @SCRPTDU Use to add ".du add ..." cards so that spelling verification can be more meaningful. This edit macro is followed by another edit macro, @SCRPTD3, which is identified at the end of the @SCRPTDU edit macro. CHECKDUP Check for repeated, duplicated words EDITCHEK Use to check content of member in edit for unmatched items based on total counts. EDITOL Use to check usage of :ol., :sl., and :ul. and the use of :li. that should be only within the framework of the above. Heading levels terminate lists and this also is identified. Use LOCATE LABEL to help identify unterminated lists. EDITPR Use to check usage of of items which must be paired. e.g. ===> EDITPR :hp2. :ehp2. FIXPI Homogenize .PI entries to a more consistent capitalization. Do not use if you have pre-existing good entries. FIXQUOTE If square brackets are not available, will try to use < > to enclose optional material. The FIXQUOTE edit macro will change the use of double quotes(") to open(") or closed(") double quotes. Depending on whether a blank is found before or after the double quote. A summary message NOTE will appear at the beginning informing of the relative success. GMLTP ftab ntab tag etag The GMLTP edit macro facilitates the placement of GML tags between identified tabs. TABS are best used with no spaces before/after tabs. When coding blanks are used so that columns line up, but once blanks are removed it is hard to find the 3rd and the 1st next tab. The first tag must be present, if the second TAB is missing the end tag will be placed after the last character on the line. source ª&bul.ª&BUL.ª&.bul.ªbullet invoke ===> GMLTP 3 1 :gt12. :egt12. result ª&bul.ª&BUL.ª:gt12.&.bul.:egt12.ªbullet LCFIX Lowercase Fix -- e.g. "I", "II", "III". PERIOD The PERIOD edit macro is an aid to checking that periods at then end of sentences are followed by two spaces. The edit macro will not change the data, that is up to the user. PROPER Capitalize some or all letters based on your own LOCAL addi- tions to DCF/SCRIPT dictionary plus some other criteria. Should only be used to correct gross misuse of lettercase. Recommended -- use after using @SMALLS. TAGX The TAGX edit macro facilitates placement of GML tags around groups of NX (default), or X lines. defaults ===> TAGX .ZF .ZL NX %B% %A% options (label-range) (X|NX) (tag1 (tag2)) example ===> TAGX UNGML Requires use of labels .A and .B. This edit macro is designed to create GML text from a non-GML document, such as placing JCL into a SCRIPT document. Once converted you will not have to use literal on/off (.LI on, .LI off) or example tags, providing with additional flexibility in your documentation. GML tag 'string' The GML edit macro is used to wrap word or single/double quoted text within GML tags. The GML edit macro will use the first operand as the starting and ending tags. The second argument, if longer than a single word must be enclosed in the quotes of your choice. The re- maining operands if any will also be associated with the change com- mand issued. ===> GML hp2 FORTRAN word GML hp2 'Our Company' word GML hp2 "PARM='/LC(58)'" word Generates commands as if entered as follows: ===> c all word 'FORTRAN' ':hp2.FORTRAN:ehp2.' c all word 'Our Company' ':hp2.Our Company:ehp2 .' c all word "PARM='/LC(58)'" ":hp2.PARM='/LC(58)':ehp2." Covered elsewhere in the full manual ("Introduction to David McRitchie's Clists") are clists to reformat your text (REFORMAT, SHIFTNX); an edit macro to create .PI entries from scratch (PINXDOIT); an edit macro to cre- ate .PI entries from NX entries (PINX); an edit macro to create indi- vidual .PI entries using the cursor and PFKeys (PIR at, PIR, PIR s). Clists that work with labels to help you highlight locations (LABNX, NXNX). A descriptive summary of clists in categories can be found in member CLISTS (page &pgCLISTS.) in the full manual. -------------------------------------------------------------------------------- Examples Please refer to "Examples of @SCRIPT commands" for examples invoking the @SCRIPT macro. +------------------------------------------------------------------------------+ | EDIT --- xxxx.xxxxx.xxxx(xxxxxXXX) - 01.00 --------- COLUMNS 001 124 | | COMMAND ===> @script view SCROLL ===> CSR | | ****** ********************** TOP OF DATA ************************** | | 000010 .sv off | | 000020 .rh on | | 000030 .sv off | | 000040 .sx c ³ ³"O010.LIBR.PROD(&PROD.)"³&PROD.-&³ | | 000050 .hr left right | | 000060 .rh off | | 000070 .su off | | 000080 .dm PROD off | | 000090 .dm PROD() /.se PROD = &*. | | 000100 .dm PROD() /.pa nostart | | 000110 .dm PROD() /.dd &PROD. dsn 'O010.LIBR.PROD(&PROD.)' | | 000120 .dm PROD() /.im &PROD. | | 000130 .su on | | 000140 .PROD PROD1 | | 000150 .PROD PROD2;.PROD PROD3;.PROD4;.PROD5;.PROD6 | | 000160 .sv on | | ****** *********************** BOTTOM OF DATA *********************** | +------------------------------------------------------------------------------+ +------------------------------------------------------------------------------+ | -------------- SCRIPT ON-LINE VIEWING PANEL --------------------- | | OPTION ===>_ | | | | | | PANEL INVOKED FROM PDF EDIT @SCRIPT VIEW | | | | | | Procedure Number===> 9999 (Must remain as "9999") | | | | | | ENTER HIGHLIGHTING OPTIONS BELOW. | | Choose from USCORE, REVERSE, BLINK, and NONE | | | | 3290 3272, 3278, and 3194 | | :hp1 ===>USCORE (Normally USCORE) (Normally USCORE) | | blue | | :hp2 ===>NONE (Normally REVERSE) (Normally NONE) | | white | | :hp3 ===>USCORE (Normally blink (Normally USCORE) | | red | | | | PF 1=HELP 2=SPLIT 3=END ... 7=UP 8=DOWN 9=SWAP ... 12=LOCATE | +------------------------------------------------------------------------------+ +------------------------------------------------------------------------------+ | SOP MANUAL -------------------------------------- PROCEDURE 9999 page 0001 | | =================================================================== | | Our Company - Bridgwater - SCRIPT Simulation # 9999-1 | | =================================================================== | | "O010.LIBR.PROD(PROD1)" PROD1-1 | | JOBNAME 2267 PRODUCTION JOBS SAVED IN PROD01 AS OF 1987/01/31 | | | | | | AHAA1B26 CREATE A/R FILES APEX 1979/09/11 | | AHAA1B27 TISD CUSTOMER MASTER TRANSMIT APEX 1981/02/24 | | AHAA1M06 SPG EXPORT SALES REPORT APEX 1987/01/29 | | AHAA1P21 FORECAST TABLE UPDATE APEX 1984/02/16 | | AHAA1P22 CREATE AND XMIT FISCAL DATE FILE N/R 1984/02/28 | | AHAA1P23 REPRO TRANSMITT FILE N/R 1984/04/19 | | AHAL1E01 TISD PRODUCT MASTER LISTING APEX 1972/11/14 | | AHAL1H05 CALCULATE TISD PLATE COSTS APEX 1972/09/26 | | AHAL1H12 TISD COST OF PRD - SCRAP N/R 1972/12/21 | | AHAL1H23 TISD PROCESSOR PARTS CATALOG APEX 1974/09/20 | | AHAL1M01 TISD RECOST YEAR END N/R 1975/03/04 | | AHAL1P06 TISD STANDARDS FILE UPDATE APEX 1975/03/25 | | AHAL1P27 TISD PRODUCT MASTER LIST APEX 1978/12/22 | | AHAL1P29 TISD PROD MASTER LIST BY ROLL WIDTH APEX 1979/05/08 | | AHAL3P11 TISD EDIT & UPDATE N/R 1976/11/01 | | AHAL3P12 TISD BOOK VS PHYSICAL N/R 1976/11/03 | | =================================================================== | | PAGE 9999-1 # 9999-1 | | =================================================================== | | PF 1=HELP 2=SPLIT 3=END ... 7=UP 8=DOWN 9=SWAP ... 12=LOCATE | +------------------------------------------------------------------------------+ document SCRIPT document SCRIPT Author: IBM SH20-9187-05 formatted on 1995/04/01 06:54 for assistance contact: D. McRitchie DMcRitchie@hotmail.com -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- A 177 page document ("IBM DCF: Generalized Markup Language Starter Set Refer- ence, Release 3.2, SH20-9187-05") can be SCRIPTed from SCRIPT.R32.GMLBOOK(GMLRFMST). This section is comprised of selected material from the complete manual. ((Our current release is 4.0.0)) You may use BOOKREAD to refer to current online documentation The first three letters of documents begin with the same three letters that error messages for that product produce. DSM0PA00 DCF R4 Bookshelf DSM04M00 GML Starter Set User's Guide DSM05M00 GML Starter Set Reference EDF01A00 BookMaster R4 Bookshelf EMGIRA00 BrowseMaster V2 Bookshelf EMGIRA00 BrowseMaster V2 Bookshelf EOXEOY00 BookManager READ/MVS and BUILD/MVS R2 EOXEOY01 BookManager MVS R2 Bookshelf The BookMaster SYSVAR options bear no relationship to the the Starter Set options. For BookMaster material refer to IBM BookMaster User's Guide (release 3.0 SC34-5009-03). This section has been edited to remove ATMS-III and DLF material, and to remove use of 11 x 14 inch paper in the 3800. -------------------------------------------------------------------------------- Processing GML Documents with SCRIPT/VS @SCRIPT2 id=svs PROCESSING OPTIONS: BIND(obind ebind) specifies that the printed portion of the output page is to be shifted to one side to leave room for binding. (If BIND is not specified, the default depends on the device type, see Table 1). It is shifted 'obind' space units to the right on odd pages, and 'ebind' space units to the right on even pages. (You would normally make 'ebind' smaller than 'obind' for du- plex printing, so even pages would have a large enough right margin for binding.) The 'ebind' value can be omitted when you want all pages shifted the same amount (as you normally would for simplex printing). CHARS(specify fonts) identifies the fonts to be used when formatting. If CHARS is not speci- fied, the default font specified for the logical device is used. At least one font must be specified when you use the CHARS option. See your supervisor or document administrator for the fonts that are avail- able at your organization. Script the text in IS03.SHARE.TEXT(FONTS20) FONTLIB(libname) specifies the font library to be used when formatting for the page devices. The font library contains character set information and image patterns. The font library requested on the SCRIPT command must be available on the system when the formatted document is printed. Default font libraries differ depending on the page printer you are using. For more information concerning fonts, refer to "Font Requirements for Page Printers". FPASSES(n) allows you to specify more than two formatting passes on documents. When two formatting passes are inadequate to insure that all page number refer- ences are resolved correctly, the FPASSES(n) option may be used to specify more passes. The IBM-supplied maximum number of formatting passes is 4 un- less changed at your installation. The FPASSES(n) option causes SCRIPT/VS to process your input document a specified number of times, and produces output only on the last pass. This option significantly increases computer processing time for the document. Note: FPASSES and TWOPASS are mutually exclusive options. See the TWOPASS option. INDEX causes SCRIPT/VS to create an index from index entries specified in the text of the document. The :INDEX tag must be included in your source docu- ment at the point where you want the index placed--usually in the back mat- ter. If the :INDEX tag is not a part of your source document, an index will not be created. LIB(name) specifies the name(s) of the library(ies) containing SCRIPT/VS macros. For the GML starter set, the APFs reside in the macro library SCRIPT.R40.MACLIB (TSO environment). (The current release is indicated by $DCF=4.0.0) NOSEGLIB specifies that no library search is to be made for segments. Use NOSEGLIB when you have specified segments within your document with the .SI control word, but those segments are not yet within a segment li- brary when you issue the SCRIPT command. This will prevent an error mes- sage from being issued. See SEGLIB option. PROFILE(name) specifies the name of a file or data set you want used as the document pro- file. The profile(s) available for use depend on the type of document you are processing. The default profile provided with SCRIPT/VS for use with the GML starter set is: TSO 'SCRIPT.R40.MACLIB(DSMPROF4)' SPELLCHK causes SCRIPT/VS to perform spelling verification. Words which are not included in the SPELLCHK spelling dictionary are listed with the error messages. SYSVAR(x value) specifies system variables that can be used to control the processing of a document. There can be one or more pairs of variable codes (x) and corre- sponding values. The GML starter set uses several system variables to provide control over document processing. See "The SYSVAR Option". PAGE allows you to print pages of formatted output selectively. The PAGE op- tion has several formats, and any number of page range specifications can be included. If you use the prompting mode, that replaces the remainder of the suboptions. Valid forms of the PAGE range specifications are: PAGE <(PROMPT)> PAGE <( frompage topage)> PAGE <( frompage FOR n)> PAGE <( page ONLY)> If no parameter is given with the PAGE option, PAGE (PROMPT) is assumed @SCRIPT users please note: The PAGE() option is (letter) case sensitive. The @SCRIPT macro normally converts all parameters to uppercase, but an exception is made for PAGE(). If you do not want uppercase you must make some portion of PAGE() including the word Page in mixed case. i.e. Page(Index-1) @SCRIPT page(Index-1) ----> PAGE(Index-1) @SCRIPT Page(index-1) ----> PAGE(index-1) @SCRIPT page(40) ----> PAGE(40) @SCRIPT page(40 only) ----> PAGE(40 ONLY) @SCRIPT page(1 to 20) ----> PAGE(1 TO 20) @SCRIPT page(100 for 7) ----> PAGE(100 FOR 7) TWOPASS causes SCRIPT/VS to process your input document twice, producing output only on the second pass. This is necessary to resolve forward references (as when an automatically generated table of contents or list of illustrations is in the front of a book). Note: TWOPASS and FPASSES are mutually exclusive options. See the FPASSES(n) option. LOGICAL DEVICE and OUTPUT DESTINATION: DEVICE(type) specifies the logical device and underlying physical device for which for- matting is to be performed. In this context, a logical device means a combination of physical device type, page size, and number of lines per vertical inch. The logical device types supported in the starter set are shown in Table 1, and Table 2. If you do not specify a device, TERM is the default in TSO environment, and 1403W6 in the batch environment. PRINT causes output to be formatted for the specified logical device, but printed on the system printer. If no logical device is specified, DEVICE(1403W6) is assumed. ERROR HANDLING: CONTINUE Normally, SCRIPT/VS stops processing when it finds an error. This option directs it to continue processing unless the error is severe. MESSAGE(DELAY) This option, with the parameter DELAY, causes error messages to be printed at the end of the output document instead of being displayed at a terminal during processing. (In the batch processing environment, messages are al- ways delayed.) Font Requirements for Page Printers @SCRIPT2 id=afont SCRIPT/VS has as the original default font Sonoran Serif (5771-ABA)Ÿ IBM 3800 Printing Subsystem Model 3. These default fonts may have been changed at your installation. In addition to requiring a typographic font as the initial (body) font, the starter set also requires the Pi and Specials (5771-ABC) font for the IBM 3800 Printing Subsystem Model 3 for use in formatting unordered list bullets. Issuing the SCRIPT Command The SCRIPT command must be issued slightly differently depending on the environ- ment you use, so each environment is discussed separately. Consult your docu- ment administrator for the actual operating procedures for your installation. These could include combinations of system procedures (that is, EXECs, CLISTs, PROCLIBs, or JCL) and manual operating procedures. 1. The primary means of invoking SCRIPT at this installation is to use the @SCRIPT clist, which is invoked as a macro clist from within PDF edit. a. @SCRIPT EDIT b. @SCRIPT EDIT DSMPROF(DSMPROFL) c. @SCRIPT DOWN d. @SCRIPT DEST(dest) 2. Some documents require that another clist allocate some additional files before invoking the @SCRIPT clist. One such clist is the @DOCJWK clist. 3. The panels are tedious to use is you want different options, they are available from the master panel as option 3.1 and as a PDF op- tion as 4.9. They function very poorly for page printing. 4. They can be run as a batch job. Two such examples are IS03.SHARE.TEXT(SCRIPTPG) and TSOMODEL.PUBLIC.TEXT(IOF3800). SCRIPT/VS Logical Line Devices @SCRIPT2 id=slld Ôççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççä ä ä ä ä ä | | |Line | Page Size | Margins | | |Logical | | s ÔçççççççççççççççççççççççççççççäLine | | ä | ä ä | |Device | | per | |Lengt |Bin |To | Bot- |Leng | |Type | Real Device Type |Inch |Width | h | d | p | tom | th | Ôççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççä | | | | | | | | | | |TERM | (<1>) | | | | |.5 | | | |2741 | 2741 | 6 | 132 | 11i | 2 | i | .5i | 6i | |3270 | 3270 | | 204 | 11i | | | | | Ôççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççä | | | | | | | | | | |1403N6 | 1403 | 6 | 8.5i | 11i | | | | | |1403N8 | | 8 | 8.5i | 11i | | | | | |1403W6 | | 6 |13.5i | 11i | | | | | |1403W8 | | 8 |13.5i | 11i | 1i |.5 | .5i | 6i | |1403W6S | | 6 |13.5i | 8.5i | | i | | | |1403W8S | | 8 |13.5i | 8.5i | | | | | |1403SW <2> | | 6 | 8.5i | 11i | | | | | |STAIRS | | 6 |13.5i | 11i | | | | | Ôççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççä | | | | | | | | | | | 3800N6 | 3800 | 6 | 8.5i |10i | | | | | | 3800N8 | | 8 | 8.5i |10i | | | | | | 3800N12 | | 12 | 8.5i |10i | 1i | 0 | 0 | 6i | | 3800N6S | | 6 | 11i |7.5i | | | | | | 3800N8S | | 8 | 11i |7.5i | | | | | | 3800N12S | | 12 | 11i |7.5i | | | | | Ôççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççä | ¨ ¨ ¨ ¨ ¨ ¨ ¨ ¨ | |<1> The physical device type corresponding to the TERM logical device can be | | either 2741 or 3270, depending upon the actual terminal type. | | | |<2> This is a 12-pitch device; all other 1403 devices are 10-pitch. | ¨çççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççç] Table 1. SCRIPT/VS Logical Line Devices: This table lists the logical line devices that can be specified with the DEVICE option of the SCRIPT command and the default page dimensions for each device. The page size can be changed with the .PW and .PL control words. The page margins can be changed with the .PM , .AM , .TM , and .BM control words. SCRIPT/VS Logical Page Devices @SCRIPT2 id=slpd çççççççççççççççç ú Monotype Times New Roman is a registered trademark of the Monotype Corpo- ration plc. Ÿ Sonoran Serif is a functional equivalent to Monotype Times New Roman. -------------------------------------------------------------------------------- Page @RESQ-1 SYSTECH NOTICE -- CLISTS Ôççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççä ä ä ä ä ä | | |Line | Page Size | Margins | | |Logical | | s ÔçççççççççççççççççççççççççççççäLine | | ä | ä ä | |Device | | per | |Lengt |Bin |To | Bot- |Leng | |Type | Real Device Type |Inch |Width | h | d | p | tom | th | Ôççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççä | | | | | | | | | | |38PPN | | <3> | 8.5i | 10i | 1i | 0 |.125i | 6i | |38PPNS | | | 11i | 7.5i | | | | | Ôçççççççççççä 3800-3 | Ôçççççççççççççççççççççççççççççççççççä | | | | | | | | | | 38PPNS90 | | | 7.5i | 11i |.5i |.5 | .5i | 6i | | | | | | | | i | | | Ôççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççä | | | | | | | | | | |PG1A | | | 8.5i | 11i | | | | | |PG1A90 | | | 11i | 8.5i | | | | | |PG1A180 | | | 8.5i | 11i | | | | | |PG1A270 | 3820 <4> |(<3> | 11i | 8.5i | 1i |.5 | .5i | 6i | |PG1L | | ) | 8.5i | 14i | | i | | | |PG1A4 | | |210mm |297mm | | | | | |PG1B4 | | |257mm |364mm | | | | | |PG1B5 | | |182mm |257mm | | | | | Ôççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççä | | | | | | | | | | |PG2A | | | 8.5i | 11i | | | | | |PG2A90 | | | 11i | 8.5i | | | | | |PG2A180 | | | 8.5i | 11i | | | | | |PG2A270 | 3820 <4> |(<3> | 11i | 8.5i | 1i |.5 | .5i | 6i | |PG2L | | ) | 8.5i | 14i | | i | | | |PG2A4 | | |210mm |297mm | | | | | |PG2B4 | | |257mm |364mm | | | | | |PG2B5 | | |182mm |257mm | | | | | Ôççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççä | ¨ ¨ ¨ ¨ ¨ ¨ ¨ ¨ | |<3> The linespacing for these is determined by the .LS control | | word and the fonts used in the document. | | | |<4> The DCF physical device type specified is 3820. The actual device may be | | 3820, 3812, or other printers compatible at the data stream level. Refer | | to "Using Generic Logical Device Types" in the Document Composition Facil- | | ity: SCRIPT/VS User's Guide for more information. | ¨çççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççç] Table 2. SCRIPT/VS Logical Page Devices: This table lists the logical page devices that can be specified with the DEVICE option of the SCRIPT command and the default page dimensions for each device. The page size can be changed with the .PW and .PL control words. The page margins can be changed with the .PM , .AM , .TM , and .BM control words. SCRIPT/VS Logical PostScript Devices Ôççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççä ä ä ä ä ä | | |Line | Page Size | Margins | | |Logical | | s ÔçççççççççççççççççççççççççççççäLine | | ä | ä ä | |Device | | per | |Lengt |Bin |To | Bot- |Leng | |Type | Real Device Type |Inch |Width | h | d | p | tom | th | Ôççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççä | | | | | | | | | | |PSA | | | 8.5i | 11i | | | | | |PSA90 | | | 11i | 8.5i | | | | | |PSA180 | | | 8.5i | 11i | | | | | |PSA270 | |(<5> | 11i | 8.5i | |.5 | | | |PSB | PostScript | ) | 11i | 17i | 1i | i | .5i | 6i | |PSL | | | 8.5i | 14i | | | | | |PSA3 | | |297mm |420mm | | | | | |PSA4 | | |210mm |297mm | | | | | |PSB5 | | |182mm |257mm | | | | | Ôççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççä | ¨ ¨ ¨ ¨ ¨ ¨ ¨ ¨ | |<5> The linespacing for logical PostScript devices is determined by the .LS | | control word and 1.1 times the pointsize of the fonts used | | in the document. | ¨çççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççççç] Table 3. SCRIPT/VS Logical PostScript Devices: This table lists the logical PostScript devices that can be specified with the DEVICE option of the SCRIPT command and the default page dimensions for each device. The page size can be changed with the .PW and .PL control words. The page margins can be changed with the .PM , .AM , .TM , and .BM control words. The SYSVAR Option @SCRIPT2 id=sysvar The DSMPROF4 profile is provided for use with the GML starter set for formatting general documents. It produces formatted output on terminals, line printers, and page printers. You can use the SYSVAR option of the SCRIPT command, described above, to control several aspects of document formatting. The SYSVAR option is entered like any other option, with its values enclosed in parentheses. The recognized SYSVAR variables are: D Duplex: Indicates whether major sections, such as the front matter, body, ap- pendixes, and sections started with level 0 and 1 headings (:H0 and :H1) should begin on odd-numbered pages with the text of the level 0 and 1 headings right justified for one- and two- column style. Recognized values are: YES Format for duplexing. NO Do not format for duplexing. The default is no; new sections can begin on odd- or even-numbered pages. H Head Numbering: Indicates whether level one through four headings (:H1 through :H4) are to be automatically numbered in the body of the document. Recognized values are: YES Number level one through four headings. NO Do not number headings. initial-value The initial setting of the heading counters. By default, headings are numbered from 1.0. The default is no; headings are not numbered. P Process: Lets you specify the process being run. The names of the physical output device and the logical device are always used as active processes for :PSC elements. R Read: Reads a file created earlier with SYSVAR W; for example sysvar (r myids) The named file holds the collected IDs from the document processed when SYSVAR W was specified with the filename myids. Reading that same file (us- ing SYSVAR R) resolves forward references to the IDs within the document so that page references resolve correctly. SYSVAR R (for READ) and W (for WRITE) can both be specified using the same name. If, for example, you entered: sysvar (r myids w myids) changes made to IDs or IDs added to the document being processed are included in a new file (specified with the SYSVAR W) while the earlier version (speci- fied with the SYSVAR R) is being read. Once the ID file has become stabilized and no new ID entries are being made, a document can be formatted with correctly resolved forward references with only one pass necessary when SYSVAR R is used. The use of FPASSES will achieve the same result. See the section on FPASSES(n). S Style: Controls the page style of the body of the document. Recognized val- ues are: ONE Single column layout TWO Double column layout OFFSET Single column layout with outdented headings The default is single column layout. T Title Page Printing: Indicates whether a title page should be generated from the information collected by the title page group tags. Recognized values are: YES Create a title page and align the text against the right margin. RIGHT Create a title page and align the text against the right margin. CENTER Create a title page and center the text. LEFT Create a title page and align the text against the left margin. NO Do not create a title page. The default is right aligned and a title page will be created if the title page tags are specified in the document. W Write: Creates a file at the end of the last pass, using the name specified. For example, sysvar (w myids) creates a file, myids, that contains all the IDs (except the indexing IDs) included in the document being processed. When this same file is read (using the SYSVAR R option), the collected IDs are used to resolve forward refer- ences in a document so that page references resolve correctly. SYSVAR R (for READ) and W (for WRITE) can both be specified using the same name. If, for example, you entered: sysvar (r myids w myids) changes made to IDs or IDs added to the document being processed are included in a new file (specified with the SYSVAR W) while the earlier version (speci- fied with the SYSVAR R) is being read. Note: For information about specifying multiple formatting passes with the TWOPASS or FPASSES option of the SCRIPT command, see the sections on both the FPASSES(n) and TWOPASS options of the SCRIPT command. X Cross-Referencing: Indicates whether a cross-reference listing of figure, ta- ble, footnote, heading, list item, and index IDs, and imbedded files should be appended to the formatted output. Recognized values are: YES Create ID and imbed file cross-references. NO Do not create cross-references. The default is yes; cross-reference listings are appended to the formatted output. For example, the following command causes output to be printed in two columns with headings numbered from 4.0, all control words entered between :PSC PROC=TUNE and :EPSC in the source document are processed, the output is not du- plexed, no index will be created, and the text of the title page is right- aligned. script mydoc ( profile(dsmprof4) sysvar(s two h 4.0 p tune) Variations other than the heading numbering, number of columns, and processing the control words within the :PSC tag were defaults and were not specified in the command. Note: Consult your document administrator for other profiles and variations that may have been established; such as for double-spaced drafts or for preprocessing documents for use with other text processors. Your document administrator may also have prepared EXECs, CLISTs, procedures, or OPTIONS files for specific tasks to make it unnecessary to specify the individual profile and variations. -------------------------------------------------------------------------------- A 177 page document ("IBM DCF: Generalized Markup Language Starter Set Refer- ence, Release 3.2, SH20-9187-05") can be SCRIPTed from SCRIPT.R32.GMLBOOK(GMLRFMST) using the Starter Set GML. This section is com- prised of selected material from the complete manual. If you do not actually have the manuals you may look at manuals using BOOKREAD. The first three letters of bookshelves and books match the 3 letter prefix as- signed to messages from the product also seen in panel names and other names. Book Read is accessible using: COMMAND ===> TSO BOOKREAD Books of intereset may include: DSM0PA00 DCF R4 Bookshelf DSM0AM00 DCF Messages 1992/10/16 DSM0BM00 ODF User's Guide 1991/05/14 DSM0CM00 Office Document Feature Reference 1991/05/17 DSM0DM00 GML Applications Guide 1991/05/08 DSM0EM00 DCF Post-Processor Examples 1991/05/16 DSM0FM00 DCF R4 Program Directory 1992/10/29 DSM0GM00 Program Directory SMFF for DCF/VM 1991/05/21 DSM0HM00 Program Directory for DCF/VSE 1991/05/16 DSM0IM00 Program Directory for DCF/ODF MVS 1991/05/17 DSM0JM00 Program Directory for use with DCF/ODF for VM 1991/05/16 DSM0KM00 DCF: SMFF Program Directory for MVS 1992/10/29 DSM0NM00 DCF/DB User's Guide 1992/10/16 DSM01M00 About DCF 1991/05/16 DSM02M00 DCF and DLF General Information 1991/05/21 DSM03M00 Introduction to Generalized Markup Language 1991/05/16 DSM04M00 GML Starter Set User's Guide 1991/05/07 DSM05M00 GML Starter Set Reference 1991/05/20 DSM06M00 Bar Code User's Guide 1991/05/14 DSM07M00 SCRIPT/VS User's Guide 1992/02/03 DSM08M00 SCRIPT/VS Text Programmer's Guide 1992/01/27 DSM09M00 DCF SCRIPT/VS Language Reference 1992/10/29 EDF01A00 BookMaster R4 Bookshelf EDFCMA00 BookMaster R4 Creating Named Styles 1992/07/01 EDFGMA00 BookMaster R4 General Information 1992/06/17 EDFMMA00 BookMaster R4 Messages 1992/06/17 EDFNMA00 BookMaster R4 Creating Line-Numbered Documents 1992/06/17 EDFSMA00 BookMaster R4 Reference Summary 1992/06/17 EDFTMA00 BookMaster R4 Text Programmer's Notebook 1992/06/17 EDFUMA00 BookMaster R4 User's Guide 1992/07/08 EOXEOY00 BookManager READ/MVS and BUILD/MVS R2 AF003M02 BookManager Writing Softcopy 1993/08/21 EOX01M02 BookManager READ/MVS and BUILD/MVS R2: General Inform 1993/08/24 EOX02M02 BookManager READ/MVS R2: Getting Started and Command 1993/08/24 EOX03M04 BookManager READ/MVS R2: Displaying Online Books 1993/08/24 EOX04M04 BookManager READ/MVS R2: Installation Planning and Cu 1993/08/24 EOX05M00 BookManager READ/MVS R2: Licensed Program Specificati 1993/08/24 EOY03M02 BookManager BUILD/MVS R2: Preparing Online Books 1993/08/23 EOY04M02 BookManager BUILD/MVS R2: Installation Planning and C 1993/08/24 EOY05M00 BookManager BUILD/MVS R2: Licensed Program Specificat 1993/08/24 -------------------------------------------------------------------------------- Additional Notes on SYSVAR options id=scxvn Set up in DSM#SETV. SYSVAR A-J have special use with ATMS if using DSMATMS3. The BookMaster SYSVAR options bear no relationship to the Starter Set options. For BookMaster material refer to IBM BookMaster User's Guide (release 3.0 SC34-5009-03). local SYSVAR additions in HCC@SYM and/or DSM#SETV id=scxva @SCRIPT3 I Drop Cap: Indicates that :H0 and :H1 are to be followed with a drop cap. Also available using :pp. instead of :p. on a per use basis. Installed in DSM#SETV according to suggestions in GML Starter Set Implementat ion Guide. M Modification: If item is numeric a page length (.PL) will be issued; otherwise, special coding is built into HCC@SYM as follows: nn Numeric item generates a .PL nn SYSTECHL with 1403W6 or 1403W8S as the device Generates the following: .TM 5 .BM 1 The default PL is 66, TM is .5i is 3, BM is .5i is 3 SYSTECHP with 1403W6 or 1403W8S as the device Generates the following: .TM 5 .BM 1 The default PL is 66, TM is .5i is 3, BM is .5i is 3 IDATA with 3820 as the physical device Generates a bottom margin .BM .5i Generates the following when &DH'&$BO. < 60 .pm .25i .25i The SCRIPT parameters used to format this document were as follows: Examples of @SCRIPT commands 'IS03.SHARE.TEXT(NCADD)' -- April 1st, 1995 6:54 a.m. -- @SCRIPT id=scx01 ===> @SCRIPT L /* Landscape on 3900 -- DEV(PG1A90) */ ===> @SCRIPT P /* Portrait on 3900 -- DEV(PG1A) */ ===> @SCRIPT Q /* Quick TESTING at terminal */ ===> @SCRIPT EDIT /* TESTING at terminal */ ===> @SCRIPT ACROSS /* "LANDSCAPE" -- DEV(38PPNS) */ ===> @SCRIPT DOWN /* "PORTRAIT" -- DEV(38PPNS90) */ ===> @SCRIPT DEV(1403W6) /* goes to DEST(AHCENTER) with FCB(Z666) */ ===> @SCRIPT DEV(1403W8) /* goes to DEST(AHCENTER) with FCB(Z888) */ ===> @SCRIPT DEST(xxxxx) /* -- DEV(1403W6) with FCB(Z666) */ ===> @SCRIPT SYSTECH /* SYSTECH printer 4224 in SYSTECH library */ ===> @SCRIPT SYSTECHL /* Landscape to SYSTECH laser -- DEV(1403W8S) 8X85 */ /* 4029-40 connected to the SYSTECH LAN */ ===> @SCRIPT B /* BookMaster options and files */ /* not shown below because datasets differ */ ===> @SCRIPT BATCH /* will be run in BATCH, more operands normally */ ===> @SCRIPT DOC /* document options used at end of SCRIPT text */ ===> @SCRIPT FCB(xxxx) /*create an FCB, also avail for PAGEDEF(xxx) etc.*/ ===> @SCRIPT NOPRINT /* formatted but not printed, as a test */ ===> @SCRIPT STOP /*not formatted, test of SCRIPT command generated*/ --------------------------------------------------------------------------- --------- the following work with SYSTECH Laser in Landscape ===> @SCRIPT SYSTECHL -- DEST(PU00L) DEV(1403W8S) FCB(8X85) + fine tuning ===> @SCRIPT SYSTECHL DEV(1403W8) ------ not available in landscape --------- the following will work again when SYSTECH Laser in Portrait ===> @SCRIPT SYSTECHP -- DEV(1403W8) DEST(PU00L) FCB(Z888) ===> @SCRIPT STSTECHP DEV(1403W6) -- DEST(PU00L) FCB(Z666) --------------------------------------------------------------------------- ===> @SCRIPT SYSTECHL ===> @SCRIPT DEST(PU00L) FCB(8X85) DEV(1403W8S) ===> @SCRIPT DEST(P12M3) DEV(1403N8) BIND(1I .5I) SYSVAR(M 74) ===> @SCRIPT DEV(1403W8) ===> @SCRIPT DOWN GT15 --------------------------------------------------------------------------- The @SCRIPT macro was invoked with "DOC STOP" to include actual working @SCRIPT commands shown above for documentation purposes. The use of the ISPF edit line command :MD could also be used individually. ===> @SCRIPT L /* Landscape on 3900 -- PG1A */ -- INDEX DEV(PG1A90) FP(2)SYS(X NO H NO D YES) M(ID) -- OUTDES NAME1 CLASS(A) FORMDEF(C10110) LINECT(0) GROUPID(member) ===> @SCRIPT P /* Portrait on 3900 -- PG1A90 */ -- INDEX DEV(PG1A) FP(2)SYS(X NO H NO D YES) M(ID) -- OUTDES NAME1 CLASS(A) FORMDEF(A10111) LINECT(0) GROUPID(member) ===> @SCRIPT Q /* TESTING at terminal */ -- INDEX DEV(1403W6) CO FP(2)SYS(X NO H NO D YES ) M(ID TRACE) B(0 0) (( OUTDES NAME1 CLASS(A) CHARS(GT12) FCB(8X85) LINECT(0) )) ===> @SCRIPT EDIT /* TESTING at terminal */ -- INDEX DEV(PG1A) FP(2)SYS(X NO H NO D YES ) M(ID) -- OUTDES NAME1 CLASS(A) FORMDEF(A10111) LINECT(0) ===> @SCRIPT ACROSS /* Landscape -- 38PPNS */ -- INDEX DEV(38PPNS) CHARS(X1T0550C) FP(2)SYS(X NO H NO D YES) M(ID) -- OUTDES NAME1 CLASS(A) FORMDEF(0101LA) LINECT(0) GROUPID(member) ===> @SCRIPT DOWN /* PORTRAIT -- 38PPNS90 */ -- INDEX DEV(38PPNS90) CHARS(X2T0550C) FP(2)SYS(X NO H NO D YES) M(ID) -- OUTDES NAME1 CLASS(A) FORMDEF(0101LA) LINECT(0) GROUPID(member) ===> @SCRIPT DEV(1403W6) /* AHCENTER simulation of 1403 */ -- INDEX DEV(1403W6) FP(2)SYS(X NO H NO D YES) M(ID) -- OUTDES NAME1 CLASS(A) CHARS(GT12) FCB(8X85) LINECT(0) GROUPID(member) ===> @SCRIPT DEV(1403W8) /* AHCENTER simulation of 1403 */ ++ DEV(1403W8) is useable at AHCENTER only if line length remains < 95 -- INDEX DEV(1403W8) FP(2)SYS(X NO H NO D YES) M(ID) -- OUTDES NAME1 CLASS(A) LINECT(0) PAGEDEF(down8) GROUPID(member) ===> @SCRIPT DEST(XXXXX) /* Remote destination, not AHCENTER */ -- INDEX DEV(1403W6) FP(2)SYS(X NO H NO D YES) M(ID) -- OUTDES NAME1 CLASS(A) DEST(XXXXX) FCB(Z666) LINECT(0) GROUPID(member) ===> @SCRIPT SYSTECH /* SYSTECH printer P100E */ -- INDEX DEV(1403W6) FP(2)SYS(X NO H NO D YES) M(ID) -- OUTDES NAME1 CLASS(A) DEST(P100E) FCB(Z666) LINECT(0) GROUPID(member) ===> @SCRIPT SYSTECHL /* SYSTECH laser printer PU00L */ -- INDEX DEV(1403W8S) FP(2)SYS(X NO H NO D YES M SYSTECHL) M(ID) -- OUTDES NAME1 CLASS(A) DEST(PU00L) FCB(8X85) LINECT(0) GROUPID(member) ===> @SCRIPT BATCH /* option added to make it run in batch */ -- INDEX DEV(PG1A) FP(2)SYS(X NO H NO D YES) M(ID) -- OUTDES NAME1 CLASS(A) FORMDEF(A10111) LINECT(0) GROUPID(member) ===> @SCRIPT FCB(XXXX) /* option added for FCB */ -- INDEX DEV(PG1A) FP(2)SYS(X NO H NO D YES) M(ID) -- OUTDES NAME1 CLASS(A) FCB(XXXX) FORMDEF(A10111) LINECT(0) GROUPID(member ) ===> @SCRIPT NOPRINT /* formatted but not printed, as a test */ -- INDEX DEV(PG1A) FP(2)SYS(X NO H NO D YES) M(ID) -- OUTDES NAME1 CLASS(A) FORMDEF(A10111) LINECT(0) GROUPID(member) ===> @SCRIPT /* defaults same as @SCRIPT P */ -- INDEX DEV(PG1A) FP(2)SYS(X NO H NO D YES) M(ID) -- OUTDES NAME1 CLASS(A) FORMDEF(A10111) LINECT(0) GROUPID(member) ===> @SCRIPT SYSTECHL /* SYSTECH laser printer PU00L ++*/ -- INDEX DEV(1403W8S) FP(2)SYS(X NO H NO D YES M SYSTECHL) M(ID) -- OUTDES NAME1 CLASS(A) DEST(PU00L) FCB(8X85) LINECT(0) GROUPID(member) ===> @SCRIPT SYSTECHL DEV(1403W8) /* Invalid options with current config. */ ++ INCORRECT DEVICE FOR SYSTECH, S/B 1403W8S ++ INCORRECT FCB(Z888) S/B BLANK OR 8X85 ++ --- When and if Laser Printer is in PORTRAIT, would again be valid -- INDEX DEV(1403W8S) FP(2)SYS(X NO H NO D YES M SYSTECHL) M(ID) -- OUTDES NAME1 CLASS(A) DEST(PU00L) FCB(8X85) LINECT(0) GROUPID(member) ===> @SCRIPT SYSTECHP /* Not available in PORTRAIT yet*/ -- INDEX DEV(1403W8) FP(2)SYS(X NO H NO D YES M SYSTECHP) M(ID) -- OUTDES NAME1 CLASS(A) DEST(xxxxx) FCB(Z888) LINECT(0) GROUPID(member) Believe these options will be correct when SYSTECHP has a correct Destin ation. ===> @SCRIPT SYSTECHP DEV(1403W6) /* Not available in PORTRAIT yet*/ ++ INCORRECT DEVICE FOR SYSTECH, S/B 1403W8S ++ INCORRECT FCB(Z666) S/B BLANK OR 8X85 ++ --- When and if Laser Printer is in PORTRAIT, these again would be va lid -- INDEX DEV(1403W6) FP(2)SYS(X NO H NO D YES M SYSTECHP) M(ID) -- OUTDES NAME1 CLASS(A) DEST(PU00L) FCB(Z666) LINECT(0) GROUPID(member) ===> @SCRIPT SYSTECHL /* SYSTECH laser printer PU00L ++*/ -- INDEX DEV(1403W8S) FP(2)SYS(X NO H NO D YES M SYSTECHL) M(ID) -- OUTDES NAME1 CLASS(A) DEST(PU00L) FCB(8X85) LINECT(0) GROUPID(member) ===> @SCRIPT DEST(PU00L) FCB(8X85) DEV(1403W8S) /* same as @SCRIPT SYSTECHL */ -- INDEX DEV(1403W8S) FP(2)SYS(X NO H NO D YES) M(ID) -- OUTDES NAME1 CLASS(A) DEST(PU00L) FCB(8X85) LINECT(0) GROUPID(member) ===> @SCRIPT DEST(P12M3) DEV(1403N8) BIND(1I .5I) SYSVAR(M 74) /* to printer in Production Control */ -- INDEX DEV(1403N8) FP(2)SYS(X NO H NO D YES M 74) M(ID) BIND(1I .5I) -- OUTDES NAME1 CLASS(A) DEST(P12M3) LINECT(0) GROUPID(member) ===> @SCRIPT DEV(1403W8) /* AHCENTER simulation of 1403 ++*/ ++ DEV(1403W8) is useable at AHCENTER only if line length remains < 95 -- INDEX DEV(1403W8) FP(2)SYS(X NO H NO D YES) M(ID) -- OUTDES NAME1 CLASS(A) LINECT(0) PAGEDEF(down8) GROUPID(member) ===> @SCRIPT DOWN GT15 /* For those who must print like this */ -- INDEX DEV(38PPNS90) CHARS(X2GT15) FP(2)SYS(X NO H NO D YES) M(ID) -- OUTDES NAME1 CLASS(A) FORMDEF(0101LA) LINECT(0) GROUPID(member) ===> @SCRIPT PSA (Use of the edit macro SCRIPTPS is recommended for portabili ty) -- INDEX DEV(PSA) CHARS(PSFHV0) PSOUT(A) FP(2)SYS(X NO H NO D YES ) M(ID) -- OUTDES NAME1 CLASS(A) LINECT(0) Printing to HP Printers with VPS with PostScript For PostScript use the edit macro SCRIPTPS DEST(xxxx) instead. Class will de- fault to CLASS(G). Printing to HP Printers under VPS as a line printer Your SCRIPT source should printer properly upon being supplied with the proper device type and writer name. Since the HP printing is somewhat compressed to print say 66 lines on a page and still have a top and bottom margin you may need to include something of the fol- lowing in your document. .if &$LDEV. = 1403N6;.th .tm 0;.th .bm 0 LADU: Landscape Duplex -- 132 columns / 66 lines offset for 3-hole punch. ===> @SCRIPT dest(tcpprts1) dev(1403N6) writer(PODU) LASI: Landscape Simplex -- 132 columns / 66 lines offset for 3-hole punch. ===> @SCRIPT dest(tcpprts1) dev(1403N6) writer(PODU) PODU: Portrait Duplex -- 85 columns / 66 lines offset for 3-hole punch. ===> @SCRIPT dest(tcpprts1) dev(1403N6) writer(PODU) POSI: Portrait Simplex -- 85 columns / 66 lines offset for 3-hole punch. ===> @SCRIPT dest(tcpprts1) dev(1403N6) writer(PODU) Examples of @SCRIPT JCL -- Landscape LANDSCAPE FORMDEF(C10110) PORTRAIT FORMDEF(A10111) /* BATCH JOB TO SIMULATE ===> @SCRIPT L -- Landscape /* ABBREVIATIONS ABBREVIATIONS /* || B BIND( || L LIB( /* || CH CHARS( || M MESSAGE( /* || CO CONTINUE || PA PAGE(1019-1) /* || DEV DEVICE( || PRI PRINT(COPIES,CLASS) /* || FO FONTLIB( || PRO PROFILE( /* || I INDEX || SEG SEGLIB( Printing to a local 3900 (in Landscape) Use FORMDEF=A10111 to print in Portrait //S0 EXEC PGM=IKJEFT01,DYNAMNBR=20,REGION=4096K //LAND3820 OUTPUT FORMDEF=C10110,GROUPID=UNITED,CLASS=A,DEFAULT=YES //SYSTSPRT DD SYSOUT=* SCRIPT COMMAND AND ERROR MESSAGES //SYSPRINT DD SYSOUT=* //SYSTSIN DD * /* 9 POINT TYPE -- CHARS(X0T0559C) */ /*10 POINT TYPE -- CHARS(X0T055AC) */ SCRIPT 'I092.SCRIPT.TEXT(JOLAI009)' + PRO('SCRIPT.R40.MACLIB(DSMPROF4)')FP(1)+ CHARS(X0T0559C)+ L('SCRIPT.R40.MACLIB')FO('SYS1.PROD.FONTLIB')+ SEG('SYS1.PROD.PSEGLIB')PRI(1,A)DEV(PG1A90)+ SYS(X NO H NO D YES)M(ID)I Printing to a Remote Printer (in Landscape) //S0 EXEC PGM=IKJEFT01,DYNAMNBR=20,REGION=4096K //DESTOUT OUTPUT LINECT=0,GROUPID=UNITED,DEFAULT=YES,DEST=INSY176A //SYSTSPRT DD SYSOUT=* SCRIPT COMMAND AND ERROR MESSAGES //SYSPRINT DD SYSOUT=* //SYSTSIN DD * SCRIPT 'I092.SCRIPT.TEXT(JOLAI009)' + PRO('SCRIPT.R40.MACLIB(DSMPROF4)')FP(1)+ L('SCRIPT.R40.MACLIB')FO('SYS1.PROD.FONTLIB')+ SEG('SYS1.PROD.PSEGLIB')PRI(1,A)DEV(1403W6)+ SYS(X NO H NO)M(ID)I Printing to an HP printer controlled by VPS //S0 EXEC PGM=IKJEFT01,DYNAMNBR=20,REGION=4096K //DESTOUT OUTPUT LINECT=0,GROUPID=UNITED,DEFAULT=YES, // DEST=TCPPRTS1,WRITER=PODU //SYSTSPRT DD SYSOUT=* SCRIPT COMMAND AND ERROR MESSAGES //SYSPRINT DD SYSOUT=* //SYSTSIN DD * SCRIPT 'IS03.SHARE.TEXT(ART008)' + PRO('SCRIPT.R40.MACLIB(DSMPROF4)')FP(1)+ L('SCRIPT.R40.MACLIB')FO('SYS1.PROD.FONTLIB')+ SEG('SYS1.PROD.PSEGLIB')PRI(1,A)DEV(1403N6)+ SYS(X NO H NO)M(ID)I Printing to a Printer with IDATA board (in Landscape) For Portrait mode use FORMDEF=A10111 and DEV(PG1A). //S0 EXEC PGM=IKJEFT01,DYNAMNBR=20,REGION=4096K //LAND3820 OUTPUT FORMDEF=C10110,DEFAULT=YES,DEST=PROG1A3A //SYSTSPRT DD SYSOUT=* SCRIPT COMMAND AND ERROR MESSAGES //SYSPRINT DD SYSOUT=* //SYSTSIN DD * /* 9 POINT TYPE -- CHARS(X0T0559C) */ /*10 POINT TYPE -- CHARS(X0T055AC) */ SCRIPT 'I092.SCRIPT.TEXT(JOLAI009)' + PRO('SCRIPT.R40.MACLIB(DSMPROF4)')FP(1)+ CHARS(X0T0559C)+ L('SCRIPT.R40.MACLIB')FO('SYS1.PROD.FONTLIB')+ SEG('SYS1.PROD.PSEGLIB')PRI(1,S)DEV(PG1A90)+ SYS(X NO H NO D YES M IDATA)M(ID)I Formatting for this document id=scx02 The following is generated using .$PARM -------------------------------------------------------------------------------- SCRIPT 'IS03.SHARE.TEXT(NCADD)' PRO('SCRIPT.R40.MACLIB(DSMPROFL)') L('SCRIPT.R40.MACLIB') FI('IS03.NCPDSHLP.LIST') TW CONT SYSVAR(X NO H NO D NO) M(ID TRACE) BIND(0 0) INDEX DEV(1403W8) 1995/04/01 Saturday, April 01, 1995 06:54 1403 -------------------------------------------------------------------------------- The following attributes exist for the default font hi0. HI0 type( ' BOX TNC FONT MONO) codepage -- F The following attributes exist for the font @super. HI0 type( ' BOX TNC FONT MONO) codepage -- F The following symbolics are in effect from HCC@SYM HI0 type ( '' ) codepage ______________ The following symbolics and produced symbols have been printed using the page characteristics described above. oqq(") oq(') cq(') cqq(") <--- quotes amp("&"), arrow("-->" or "-->"), arrowdn("<--DN>" or "<--DN>"), arrowlt("<---" or "<--"), arrowrt("--->" or "-->"), arrowup("<--UP>" or "<--UP>"), article("
" or "
"), bbar("" or ""), blank("" or ""), bul("o" or ""), cmmnd("===>" or "===>"), colon(":"), concat("||" or "||"), copyr("" or ""), deg("" or ""), dagger("+" or "<+>"), ddagger("++" or "<++>"), diamond("<>" or "<>"), ellipsis("..." or "..."), eqsym("="), gesym(">=" or ">="), gml(":"), grave("'" or ""), lbr("<" or ""), lbrc("{" or ""), lesym("<=" or "<="), lozenge("" or ""), minus("-"), nesym("¿" or "<ª=>"), not("ª"), period("."), plus("+"), plusmin("+-" or "<+->"), rbr(">" or ""), rbrc("}" or ""), regtm("" or ""), semi(";"), sm("" or ""), split("<|split|>" or ""), sqbul("" or ""), star("*" or "*"), sub0("&sub0." or "<0>"), sub1("&sub1." or "<1>"), sub2("&sub2." or "<2>"), sub3("&sub3." or "<3>"), sub4("&sub4." or "<4>"), sub5("&sub5." or "<5>"), sub6("&sub6." or "<6>"), sub7("&sub7." or "<7>"), sub8("&sub8." or "<8>"), sub9("&sub9." or "<9>"), sup0("<0>" or "<0>"), sup1("<1>" or "<1>"), sup2("<2>" or "<2>"), sup3("<3>" or "<3>"), sup4("<4>" or "<4>"), sup5("<5>" or "<5>"), sup6("<6>" or "<6>"), sup7("<7>" or "<7>"), sup8("<8>" or "<8>"), sup9("<9>" or "<9>"), telefone("" or ""), tilde("" or ""), tm("" or ""), The following codepage is in effect The following attributes currently exist PL=1000 $LL=80 $CL=80 $BM=0 $TM=0 $IN=0 $IR=0 $BO=0 $BE=0 LDEV=1403W8 $6:54 a.m. The following is generated using .$ID 'IS03.SHARE.TEXT(NCADD)' -- April 1st, 1995 6:54 a.m. -- @SCRIPT -------------------------------------------------------------------------------- The source for this document resides in IS03.SHARE.TEXT(@SCRIPT) Related material concerning printing to HP Printers can be found is IS03.SHARE.TEXT(HPPRT) -------------------------------------------------------------------------------- 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" 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 n @SCRIPT on