Example of Accessing an Application Message Catalog

This example shows the access of the sample catalog called FORMAT (created in the last chapter); the source of this sample catalog (SOURCE) is listed below.

     $SET 1 Prompts 

     1 ENTER FIRST NAME 

     2 ENTER LAST NAME 

     $ 

     $ 

     $set 2 Error Messages 

     1 NAME NOT ON DATA BASE 

     2 ILLEGAL INPUT 

     3 AN ERROR OCCURRED DURING THE LOADING % 

     OF THE DATA BASE. 

     98 THE NUMBER OF FILES & 

     DOES NOT MATCH THE & 

     SYSTEM'S CALCULATIONS. 

     $ 

     $set 13 Run-Time Messages 

     400 INPUT FROM ! ON TERMINAL NUMBER ! 

     401 INPUT FROM TERMINAL NUMBER !2 BY !1

The program uses message 1 in set 1 to prompt for a first name, substitutes the name in message 400 of set 13, and outputs the message. All output is written to the terminal.

     Program MSGCAT (input,output); 



     var 

       Catindex   : INTEGER; 

       Catstatus  : packed array [1..2] of CHAR; 



     Function CATOPEN: INTEGER;  intrinsic; 

     Function CATREAD: SHORTINT; intrinsic; 

     Procedure CATCLOSE;         intrinsic; 



     Procedure OPEN_A_CATALOG; 

     {This procedure opens FORMAT} 



     var 

       Designator : packed array [1..7] of SHORTINT; 



     begin 

       Designator := 'FORMAT ';  {specify file name} 

       Catindex := CATOPEN (Designator, Catstatus); 

       {Call procedure to check Catstatus for errors} 

     end; 



     Procedure READ_A_CATALOG; 

     {This procedure reads a message} 

     {from FORMAT and prints it to  } 

     {$STDLIST                      } 



     var 

       Setnum   : SHORTINT; 

       Msgnum   : SHORTINT; 

       Parm_1, 

       Parm_2   : STRING [ 5 ]; 

       Dumy     : INTEGER; 

       Msgdest  : SHORTINT; 

       Msglength: SHORTINT; 



     begin 

       Msgdest := 0; {Output to $STDLIST} 

       Setnum := 1; 

       Msgnum := 1; 

       Msglength := CATREAD (Catindex, Setnum, Msgnum, 

          Catstatus,,,,,,,, Msgdest); 

       {Call procedure to check Catstatus} 

       Readln (Parm_1); 

       Parm_2 :='3'; 



       {Append ASCII null} 

       STRWRITE (Parm_1, (STRLEN(Parm_1)+1), Dumy, CHR(0)); 

       STRWRITE (Parm_2, (STRLEN(Parm_2)+1), Dumy, CHR(0)); 

       Setnum := 13; 

       Msgnum := 400;   {Output operation message} 

       Msglength := CATREAD (Catindex, Setnum, Msgnum, 

          Catstatus,,, Parm_1, Parm_2,,,, Msgdest); 

       {Call procedure to check Catstatus} 

     end; 



     Procedure CLOSE_A_CATALOG; 

     {This procedure closes FORMAT} 



     begin 

       CATCLOSE (Catindex, Catstatus); 

       {Call procedure to check Catstatus} 

     end; 



     begin  {main} 

       OPEN_A_CATALOG; 

       READ_A_CATALOG; 

       CLOSE_A_CATALOG; 

     end.

When this example is run, the output is as follows:

     ENTER FIRST NAME 



     MARY 



     INPUT FROM MARY ON TERMINAL NUMBER 3

Example of Accessing an Application Message Catalog

Technical documentation

» Table of Contents

» Index