rplctn/recdisp.i

   1 /*
   2 System:      Property Management and Finance System
   3 Include:     recdisp.i
   4 Author:      Tyrone McAuley
   5 Date:        09/10/97
   6
   7 PreProcessor Parameters:
   8
   9              1 - Name of the table being displayed
  10              2 - Progress statement that converts the
  11                  record fields into an identifiable/readable string
  12
  13 Parameters:  record-image  - RAW description of the record
  14              record-string - String description of the record
  15
  16 Returns:     Record String Description
  17 Modification Notes
  18 */
  19
  20 &SCOPED-DEFINE TableName    {1}
  21 &SCOPED-DEFINE RecordString {2}
  22
  23 DEF INPUT  PARAMETER record-image  AS RAW  NO-UNDO.
  24 DEF OUTPUT PARAMETER record-string AS CHAR NO-UNDO.
  25
  26 DEF TEMP-TABLE Temp{&TableNAme} LIKE {&TableName}.
  27
  28 CREATE Temp{&TableName}.
  29 RAW-TRANSFER record-image TO Temp{&TableName} NO-ERROR.
  30
  31 record-string = {&RecordString}.
  32