process/report/report.p

   1 &ANALYZE-SUSPEND _VERSION-NUMBER UIB_v8r12
   2 &ANALYZE-RESUME
   3 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _DEFINITIONS Procedure
   4 /*--------------------------------------------------------------------------
   5   Report:
   6   Author:
   7   Date:
   8   ------------------------------------------------------------------------*/
   9
  10 DEF INPUT PARAMETER report-options AS CHAR NO-UNDO.
  11
  12 DEF VAR preview   AS LOGI NO-UNDO INIT Yes.
  13 DEF VAR user-name AS CHAR NO-UNDO.
  14 {inc/username.i "user-name"}
  15 DEF VAR timeStamp AS CHAR FORMAT "X(44)" NO-UNDO.
  16 timeStamp = STRING( TODAY, "99/99/9999") + ", " + STRING( TIME, "HH:MM:SS") + " for " + user-name.
  17
  18 /* _UIB-CODE-BLOCK-END */
  19 &ANALYZE-RESUME
  20
  21
  22 &ANALYZE-SUSPEND _UIB-PREPROCESSOR-BLOCK
  23
  24 /* ********************  Preprocessor Definitions  ******************** */
  25
  26 &Scoped-define PROCEDURE-TYPE Procedure
  27
  28
  29
  30 /* _UIB-PREPROCESSOR-BLOCK-END */
  31 &ANALYZE-RESUME
  32
  33
  34
  35 /* *********************** Procedure Settings ************************ */
  36
  37 &ANALYZE-SUSPEND _PROCEDURE-SETTINGS
  38 /* Settings for THIS-PROCEDURE
  39    Type: Procedure
  40    Allow:
  41    Frames: 0
  42    Add Fields to: Neither
  43    Other Settings: CODE-ONLY COMPILE
  44  */
  45 &ANALYZE-RESUME _END-PROCEDURE-SETTINGS
  46
  47 /* *************************  Create Window  ************************** */
  48
  49 &ANALYZE-SUSPEND _CREATE-WINDOW
  50 /* DESIGN Window definition (used by the UIB)
  51   CREATE WINDOW Procedure ASSIGN
  52          HEIGHT             = .05
  53          WIDTH              = 32.57.
  54 /* END WINDOW DEFINITION */
  55                                                                         */
  56 &ANALYZE-RESUME
  57
  58
  59
  60 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _INCLUDED-LIB Procedure
  61 /* ************************* Included-Libraries *********************** */
  62
  63 {inc/method/m-txtrep.i}
  64
  65 /* _UIB-CODE-BLOCK-END */
  66 &ANALYZE-RESUME
  67
  68
  69
  70 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _MAIN-BLOCK Procedure
  71
  72
  73 /* ***************************  Main Block  *************************** */
  74
  75 RUN parse-parameters.
  76
  77 OUTPUT TO VALUE(txtrep-print-file) KEEP-MESSAGES PAGE-SIZE 0.
  78
  79 RUN pclrep-start( preview, "reset,portrait,tm,2,a4,lm,6,courier,cpi,18,lpi,9").
  80
  81 /* report goes here -
  82    e.g pclrep-line( "Helvetica,Point,12,Proportional,Normal", "Some Text"
  83 */
  84
  85 OUTPUT CLOSE.
  86
  87 RUN pclrep-finish.
  88
  89 /* _UIB-CODE-BLOCK-END */
  90 &ANALYZE-RESUME
  91
  92
  93 /* **********************  Internal Procedures  *********************** */
  94
  95 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE inst-page-footer Procedure
  96 PROCEDURE inst-page-footer :
  97 /*------------------------------------------------------------------------------
  98   Purpose:  Print any page footer
  99 ------------------------------------------------------------------------------*/
 100
 101 END PROCEDURE.
 102
 103 /* _UIB-CODE-BLOCK-END */
 104 &ANALYZE-RESUME
 105
 106
 107 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE inst-page-header Procedure
 108 PROCEDURE inst-page-header :
 109 /*------------------------------------------------------------------------------
 110   Purpose:  Print any page header
 111 ------------------------------------------------------------------------------*/
 112
 113   RUN pclrep-line( "univers,Point,7,bold,Proportional", TimeStamp).
 114   RUN pclrep-line( "univers,Point,12,bold,Proportional",
 115     SPC(45) + "Report Header - {&FILE-NAME}"
 116   ).
 117   RUN pclrep-line( "", "" ).
 118
 119   /* Put any column headers here */
 120
 121 END PROCEDURE.
 122
 123 /* _UIB-CODE-BLOCK-END */
 124 &ANALYZE-RESUME
 125
 126
 127 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE parse-parameters Procedure
 128 PROCEDURE parse-parameters :
 129 /*------------------------------------------------------------------------------
 130   Purpose:
 131 ------------------------------------------------------------------------------*/
 132 DEF VAR token AS CHAR NO-UNDO.
 133 DEF VAR i AS INT NO-UNDO.
 134
 135   DO i = 1 TO NUM-ENTRIES( report-options, "~n" ):
 136     token = ENTRY( i, report-options, "~n" ).
 137
 138     CASE ENTRY( 1, token ):
 139       WHEN "Preview" THEN               preview = Yes.
 140     END CASE.
 141
 142   END.
 143
 144 END PROCEDURE.
 145
 146 /* _UIB-CODE-BLOCK-END */
 147 &ANALYZE-RESUME
 148
 149