Procedure Modules › Creating a Run-time Message (CULLUS48) › How to Use CULLUS48

How to Use CULLUS48

To invoke CULLUS48:

1. Code INPUT and REC parameters, as needed.
2. Issue a CALL to CULLUS48:

   Col
   2
   ▼
   RPT-nn7sss CALL US48 ( message-qv)
   

   • 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 an alphanumeric work field that contains the message enclosed in single quotation marks. The message must:
     • Begin with a carriage control character.
     • End with two percent signs (%%). Use %% exclusively to terminate messages.
     • Not exceed 132 characters.

Example

The following example shows the CA Culprit parameters required to add a message to the Run-Time Message Section of a CA Culprit job.

The following code:

• Tests for the value of the field (SAMPLE) that triggers the message
• Issues a CALL to US48 if the test fails:
  • 0 is the carriage control character that precedes the message.
  • %% signals the completion of the message.

     IN 80 F 80
     REC SAMPLE 1 2 2
     52OUT 60 D
     523CULLUS48
     5251*010 SAMPLE HH 'SAMPLE COUNT'
     527010   IF SAMPLE NE 0 020
     527      CALL US48 ('0US48 -- NO SAMPLE: RUN STOPS%%') 
     527015   STOP
     527020   TAKE
    

mm/dd/yy               RUN TIME MESSAGES    volser       PAGE     1

US48 -- NO SAMPLE: RUN STOPS

***********  END OF FILE  ******************************************

           3 INPUT RECORDS READ