Edit macro TECHPS                                              Edit macro TECHPS

                                                       Author: David McRitchie
                                                   formatted on  1995/04/01 06:54
          for assistance contact: D. McRitchie                DMcRitchie@hotmail.com
--------------------------------------------------------------------------------
MACRO NAME.  TECHPS
 users.      PDF EDIT users particularly SCRIPT users; however,
             since output from TECHPS and PU00L goes to specific printers
             in the SYSTECH area the TECHPS and PU00L macros should be considere
             d for use
             only by Systems Programming.   Similar generic macros could be made
              up
             for other users where something is needed in addition to @PRINT and
              @PRINTNX.
 type.       Edit Macro   resides in SYS1.TSOCLIST

--------------------------------------------------------------------------------
 TECHPS      Print file or NX lines to PostScript dest(P1CBX)
 PU00L       Print file or NX lines to AFP PSF/2 printer dest(TECHPSF)
--------------------------------------------------------------------------------
 @PRINT      Print file in edit  (see @PRINT documentation)
 @PRINTNX    Print NX lines of file in edit  (see @PRINTNX documentation)
 related clists -- @VP  @PRINT  @DIRSTAT @PRINTNX TECHPS PU00L @PRINTD
 related commands -- PRINTOFF, VPSPRINT,  PRINTDS
 related clists that modify display --- NXNX
 related commands that modify display --- EXCLUDE(X), FIND(F)
 related information -- TSO HELP OUTDES
--------------------------------------------------------------------------------

The  basic  use  of these two macros is to print on printers that print with a
default of portrait mode.

A basic enhancement of the two macros described is the ability to print a file
similar to it's actual appearance on your screen  with  respect  to  displayed
(NL)  lines and undisplayed (X) lines.  Using the NX option you may generate a
printed page(s) with only the information you wish to convey or work on  with-
out  actually  changing  a  file.    Note lines, and information lines are not
available and cannot be shown.

Parameters

--------------------------------------------------------------------------------

                             Since square brackets are not available, optional
                              material is enclosed in European brackets <...>.
ISREDIT         TECHPS         <NX>         <CLASS(class)>      <COPIES(copies)>
          <DEST(dest)|GO|PU|TECHPS>
ISREDIT  PU00L   <NX>  <CLASS(class)>  <COPIES(copies)>  <DEST(dest)>

--------------------------------------------------------------------------------

     NX                  (Optional)  causes  listing  to print only the NX lines
                         including their labels and sequence numbers.  The count
                         of the undisplayed lines will be shown similar to  what
                         you see in EDIT.  The NX option removes the requirement
                         of  a  file being saved before invoking the macro.  The
                         default is to print the entire file as it actually  ex-
                         ists as a dataset.
     CLASS(class)        (Optional)  can  use CLASS(V) to not print but normally
                         would not use.       PU00L  has  default  of  CLASS(A).
                         TECHPS has default of CLASS(G).
     COPIES(copies)      (Optional)  the  default is to print a single copy with
                         COPIES(1).
     DEST(dest)          in TECHPS (Optional), the default is subject to change.
                         Can  also  use   GO   for   dest(P15NF),   TECHPS   for
                         dest(P1CBX), or PU for dest(PU2ZD).  Any choice must be
                         for a PostScript printer.  The default is dest(P1CBX).
     DEST(dest)          in  PU00L  (Optional),  while  optional  there  is only
                         dest(TECHPSF) that would be meaningful.    The  printer
                         selected  must  be  for an AFP printer at 300 dpi (dots
                         per inch) set up as a 4028.  Not for 3820 and  not  for
                         the 3900.  Non-systech personnel would probably use ei-
                         ther the @PRINT macro or the @PRINTNX macro on printers
                         that do not need AFP output.
Examples:
      ===> PU00L
      ===> PU00L NX
      ===> TECHPS
      ===> TECHPS NX PU


NX option, output

The NX option output has been simulated below.  The purpose of this option is to
provide a printed listing similar to what you see on your screen when some lines
are not displayed.

Output  from  PU00L, and TECHPS is similar in appearance.  @PRINTNX also appears
similar but does not use boxes.

 +-----------------------------------------------------------------------------+
 |  MEMBER-- VV.MM CREATED- ---MODIFIED---  CURR  INIT   MOD LASTUSER          |
 |  TECHPS   01.01 94/05/13 94/05/13 11:13   132   132     0 IS03              |
 +-----------------------------------------------------------------------------+
 |  DSN=IS03.SHARE.TEXT                              Created 1993/180          |
 |    DCB=(LRECL=255,BLKSIZE=8920,RECFM=VB,DSORG=PO)  NUMBER OFF               |
 +-----------------------------------------------------------------------------+

  .A     000001 .se nauthor 'David McRitchie
         - - - - - - - - - 11 LINE(S), lines 000002-000012 Not Displayed
  .LABAA 000013 ªusers.      ªPDF EDIT users particularly SCRIPT users; however,
         000014 since output from TECHPS and PU00L goes to specific printers
         000015 in the SYSTECH area the TECHPS and PU00L macros should be consid
         000016 only by Systems Programming.   Similar generic macros could be m
         000017 for other users where something is needed in addition to @PRINT
         - - - - - - - - - 24 LINE(S), lines 000018-000041 Not Displayed
         000042 :p.The basic use of these two macros is to print on printers tha
         000043 with a default of portrait mode.
         000044 :p.A basic enhancement of the two macros described is the abilil
         000045 print a file similar to it's actual appearance on your screen wi
         000046 respect to displayed (NL) lines and undisplayed (X) lines.  Usin
         000047 NX option you may generate a printed page(s) with only the infor
         000048 you wish to convey or work on without actually changing a file.
         000049 lines, and information lines are not available and cannot be sho
         - - - - - - - - - 83 LINE(S), lines 000050-000132 Not Displayed
 -------------------------------------------------------------------------------
                1...5...10...15...20...25...30...35...40...45...50...55...60...6
                <Printed ...  on Friday 94/04/12 at 20:41:18  with GT15 ( )


Internal Aspects

     Internal aspects describes how the MACRO functions.  This information is
     particularly useful to someone who may need to design a similarly functiona
     MACRO.  It may also provide additional insight to the user.

     1.  Some material has been extracted and perhaps modified from @DIRSTAT
         for the directory statistics, and from @PRINTNX for the ability to prin
         only NX lines.
     2.  Basically a file containing SCRIPT/VS or DCF commands to set the font,
         page margins, and line length.
     3.  The font will be chosen based on the number of characters that
         need to print on a line.  Data width (LRECL) and actual characters foun
         be taken into consideration when making a determination.   For 80 byte
         records GT12 will probably be chosen for direct listings, and GT15 will
         probably be chosen for NX option use.  Larger lines will probably resul
         smaller fonts being used.
     4.  The file in edit may be embedding with a special SCRIPT macro (.imfile)
         or it may be included line for line when the NX option is used.  The
         NX option does not require the file to be saved.
     5.  TECHPSF will end by issuing .PA ODD to ensure that the next print
         data or copy will not print on the back of the last page.