Procedure Modules › Sending Messages (CULLUS40) › How to Use CULLUS40

How to Use CULLUS40

To invoke CULLUS40:

1. Define a 25-byte alphanumeric work field to hold the message sent.
2. Define another 25-byte alphanumeric work field to receive the message returned.
3. Issue a CALL to CULLUS40 from type 7 logic:

   Col
   2
   ▼
   RPT-nn7sss CALL US40 (message-qv response-v)
   

   • Rpt-nn, coded in columns 2 and 3, specifies a 2-digit number in the range 00 through 99 that identifies the CA Culprit report.
   • Sss, coded in columns 5 through 7, specifies a 3-digit number indicating the sequence number of the type 7 parameter.
   • Message-qv (ARG1) requires the name of a 25-byte work field or an alphanumeric literal, enclosed in single quotation marks, for the message to be sent.
   • Response-v (ARG2) requires the name of a 25-byte alphanumeric work field that receives the console operator's response.

Example

This example shows the CA Culprit parameters required to send a message to the console operator and receive a response.

The following code:

• Defines work fields (MSGTO and MSGFROM) as the message areas
• Issues a CALL to CULLUS40 to send and receive messages
• Tests the response and specifies an action to take based upon the response

   INPUT 80 F 4000
   REC FLD1       1  50
   010 MSGTO 'TYPE STOP TO DISCONTINUE'
   010 MSGFROM '                        '
              .
              .
              .
   017001 CALL US40 (MSGTO MSGFROM) 
   017010 IF MSGFROM EQ 'STOP' STOP