project BLF > class TReportStrings > method Main

Parameters

Internal usage

program code (program1/treportstrings.p)

&SCOPED-DEFINE TARGETPROCEDURE   ihTranslationHandle

create tReportStrings.
assign tReportStrings.tcStringText = #T-1'Entity':15(8455)T-1#
       tReportStrings.tcStringCode = "0-COMP":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-2'CR':2(357)t-2#
       tReportStrings.tcStringCode = "0-CR":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-3'Date':20(7158)T-3#
       tReportStrings.tcStringCode = "0-DATE":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-4'DB':2(359)t-4#
       tReportStrings.tcStringCode = "0-DB":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-5'End of Report':20(360)t-5#
       tReportStrings.tcStringCode = "0-EOR":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-6'Filter Values for this Report':100(361)T-6#
       tReportStrings.tcStringCode = "0-FILTER":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-7'No Data':20(362)t-7#
       tReportStrings.tcStringCode = "0-ND":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-14'No report data is available for this selection':255(38373332)T-14#
       tReportStrings.tcStringCode = "0-NRD".

create tReportStrings.
assign tReportStrings.tcStringText = #T-8'Page':10(363)t-8#
       tReportStrings.tcStringCode = "0-PAGE":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-9'Total':10(364)t-9#
       tReportStrings.tcStringCode = "0-TOTAL":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-10'User':20(4751)T-10#
       tReportStrings.tcStringCode = "0-USER":U.

&UNDEFINE TARGETPROCEDURE