home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / rxlbox13.zip / getmsg.cmd < prev    next >
OS/2 REXX Batch file  |  1998-03-01  |  4KB  |  94 lines
  1. /* ------------------------------------------------------------------ */
  2. /*                                                                    */
  3. /* sample external message handling routine for RxLBox v1.30          */
  4. /*                                                                    */
  5. /* This routines implements German messages for RxLBox                */
  6. /*                                                                    */
  7. /* ------------------------------------------------------------------ */
  8.  
  9.                     /* get the first two parameters                   */
  10.                     /* (the other parameters are processed in the     */
  11.                     /*  do loop below)                                */
  12.   parse arg msgNo, msgFile, .
  13.  
  14.                     /* define the stem with the messages              */
  15.                     /* Note: Message Numbers begin with n+1, where n  */
  16.                     /*       is the value of the variable             */
  17.                     /*           global.__BaseMsgNo                   */
  18.                     /*       in RxLBOX.CMD.                           */
  19.                     /*       You can change this variable to any      */
  20.                     /*       value you like.                          */
  21.                     /*       In this example we use the default value */
  22.                     /*       1800.                                    */
  23.                     /*                                                */
  24.   msgStr.1801   = ''
  25.   msgStr.1802   = 'Eingabedatei "%1" nicht gefunden'
  26.   msgStr.1803   = 'Eingabedatei "%1" ist leer'
  27.   msgStr.1804   = 'Fehler beim Öffnen der Eingabedatei "%1"'
  28.   msgStr.1805   = 'Die Queue "%1" existiert nicht'
  29.   msgStr.1806   = 'Die Queue "%1" ist leer'
  30.   msgStr.1807   = 'Die Zeile %1 der Menue Beschreibung ist fehlerhaft (Die Zeile lautet: %2)'
  31.   msgStr.1808   = 'Menue "%1" nicht gefunden'
  32.   msgStr.1809   = 'Menue "%1" ist leer'
  33.   msgStr.1810   = 'Zeile %1: Menue %1 ist schon definiert'
  34.  
  35.                     /* message number 11 is not used anymore          */
  36.   msgStr.1811   = ''
  37.  
  38.   msgStr.1812   = 'Zeile %1: Macroname ist zu lang'
  39.   msgStr.1813   = 'Fehlerhaftes Menue Kommando gefunden: "%1"'
  40.   msgStr.1814   = 'Zeile %1: Macro "%2" ist schon definiert'
  41.   msgStr.1815   = 'Zeile %1: Keyword fehlt'
  42.   msgStr.1816   = 'Zeile %1: Fehlerhaftes MENUITEM/ACTION keyword gefunden'
  43.   msgStr.1817   = 'Zeile %1: Fehlerhaftes REXX-Statement, die Zeile lautet "%2"'
  44.   msgStr.1818   = 'Zeile %1: Hilfstext "%1" ist schon definiert'
  45.   msgStr.1819   = 'Zeile %1: Hilfstext zu lang (max. 14 Zeilen möglich)'
  46.   msgStr.1820   = 'Zeile %1: Der Name eines Menues kann nicht mit "!" oder "_" beginnen'
  47.   msgStr.1821   = 'Der Parameter "%1" ist fehlerhaft!'
  48.  
  49.   msgStr.1899   = '%1 Fehler in Zeile %2, rc = %3 %4'
  50.  
  51.   msgStr.1900  = 'Überprüfe die Parameter ...'
  52.   msgStr.1901  = 'Lese die Menue-Beschreibung ...'
  53.   msgStr.1902  = 'Erstelle die Menue-Struktur ...'
  54.   msgStr.1903  = 'Bereite das Menue vor ...'
  55.   msgStr.1904  = '%1'
  56.   msgStr.1910  = 'Liste aller Menue aus'
  57.   msgStr.1911  = 'Wählen Sie ein Menue aus der Liste'
  58.   msgStr.1912  = 'Ihre Eingabe:'
  59.   msgStr.1913  = 'Bitte betätigen Sie eine Taste'
  60.   msgStr.1914  = 'Liste aller Macros aus'
  61.   msgStr.1915  = '*** Keyword "%1" nicht belegt für dieses Menue! *** '
  62.   msgStr.1916  = 'Liste aller bisher aufgerufenen Menues'
  63.   msgStr.1917  = 'Wählen Sie ein Macro aus der Liste'
  64.   msgStr.1918  = 'Fehler beim Ausführen von "%1"'
  65.  
  66.                     /* replace the placeholder with the values        */
  67.   msgText = value( 'msgStr.' || msgNo )
  68.  
  69.   if pos( '%', msgText ) <> 0 then
  70.   do
  71.                     /* this loop processes the parameter 3 to n       */
  72.     do j = 1 to 9
  73.       pString = '%' || j
  74.  
  75.       do forever
  76.         if pos( pString, msgText ) = 0 then
  77.           leave
  78.         parse var msgText part1 ( pString ) part2
  79.         msgText = part1 || arg( j+2 ) || part2
  80.       end /* do forever */
  81.  
  82.     end /* do j = 1 to 9 */
  83.  
  84.   end /* if pos( '%', msgText ) <> 0 then */
  85.  
  86.   if msgNo < 1900 then
  87.     return 'ERROR: ' || msgNo || ' : ' || msgText
  88.   else
  89.     return MsgText
  90.  
  91. /* ------------------------------------------------------------------ */
  92. /*                                                                    */
  93. /* ------------------------------------------------------------------ */
  94.