CEEMOUT—Dispatch a message
CEEMOUT
dispatches a user-defined message string to the message file.
Syntax >>-CEEMOUT--(--message_string--,--destination_code--,--fc--)---><
- message_string (input)
- A halfword-prefixed printable character string containing the message. DBCS characters must be enclosed within shift-out (byte X'0F') shift-in (X'0E') characters. Insert data cannot be placed in the message with CEEMOUT. The halfword-prefixed message string (input) must contain only printable characters. For length greater than zero, unpredictable results will occur if the byte following the halfword prefix is X'00"
- destination_code (input)
- A 4-byte binary integer. The only accepted value for destination_code is 2. Under systems other than CICS®, Language Environment writes the message to the ddname of the file specified in the MSGFILE runtime option. Under CICS, the message is written to a transient data queue named CESE.
- fc (output)
- A 12-byte feedback code, optional in some languages,
that indicates the result of this service. If you choose to omit this
parameter, refer to Invoking callable services for the
appropriate syntax to indicate that the feedback code was omitted.
The following symbolic conditions can result from this service:
Code Severity Message number Message text CEE000 0 — The service completed successfully. CEE0E3 3 0451 An invalid destination code destination-code was passed to routine routine-name. CEE0E9 3 0457 The message file destination ddname could not be located.
Usage notes
- z/OS UNIX considerations—In multithread applications, CEEMOUT affects only the calling thread. When multiple threads write to the message file, the output is interwoven by line. To group lines of output, serialize MSGFILE access (by using a mutex, for example).
- If the message file is defined with an LRECL greater than 256, and the input to CEEMOUT is greater than 256 bytes, the output results in multiple records. The first 256 bytes of each record contains output data. The remaniing bytes of each record, up to the LRECL size, might contain unpredictable data.
For more information
- See MSGFILE for more information about the MSGFILE runtime option.
- See z/OS Language Environment Programming Guide for more information about CESE.
Examples
- Following is an example of CEEMOUT called by C/C++.
/*Module/File Name: EDCMOUT */ #include <string.h> #include <stdio.h> #include <stdlib.h> #include <leawi.h> #include <ceeedcct.h> int main(void) { _VSTRING message; _INT4 dest; _FEEDBACK fc; strcpy(message.string,"This is a test message"); message.length = strlen(message.string); dest = 2; CEEMOUT(&message,&dest,&fc); if ( _FBCHECK ( fc , CEE000 ) != 0 ) { printf("CEEMOUT failed with message number %d\n", fc.tok_msgno); exit(2999); } /* . . . */ } - Following is an example of CEEMOUT called by COBOL.
CBL LIB,QUOTE *Module/File Name: IGZTMOUT ************************************************ ** CBLMOUT - Call CEEMOUT to dispatch a msg. ** ** In this example, a call is made to CEEMOUT ** ** to dispatch a user-defined message string ** ** to the ddname specified defaulted in the ** ** MSGFILE runtime option. ** ************************************************ IDENTIFICATION DIVISION. PROGRAM-ID. CBLMOUT. DATA DIVISION. WORKING-STORAGE SECTION. 01 MSGSTR. 02 Vstring-length PIC S9(4) BINARY. 02 Vstring-text. 03 Vstring-char PIC X, OCCURS 0 TO 256 TIMES DEPENDING ON Vstring-length of MSGSTR. 01 DESTIN PIC S9(9) BINARY. 01 FC. 02 Condition-Token-Value. COPY CEEIGZCT. 03 Case-1-Condition-ID. 04 Severity PIC S9(4) BINARY. 04 Msg-No PIC S9(4) BINARY. 03 Case-2-Condition-ID REDEFINES Case-1-Condition-ID. 04 Class-Code PIC S9(4) BINARY. 04 Cause-Code PIC S9(4) BINARY. 03 Case-Sev-Ctl PIC X. 03 Facility-ID PIC XXX. 02 I-S-Info PIC S9(9) BINARY. PROCEDURE DIVISION. PARA-CBLMOUT. ************************************************* ** Create message string and specify length ** ************************************************* MOVE 25 TO Vstring-length of MSGSTR. MOVE "CEEMOUT ran successfully" TO Vstring-text of MSGSTR. ************************************************* ** Specify 2 to send the message to the ddname ** ** specified or defaulted in the MSGFILE ** ** runtime option. ** ************************************************* MOVE 2 TO DESTIN. CALL "CEEMOUT" USING MSGSTR, DESTIN, FC. IF NOT CEE000 of FC THEN DISPLAY "CEEMOUT failed with msg " Msg-No of FC UPON CONSOLE STOP RUN END-IF. GOBACK. - Following is an example of CEEMOUT called by PL/I.
*PROCESS MACRO; /* Module/File Name: IBMMOUT */ /****************************************************/ /** Function: CEEMOUT - Dispatch a message **/ /** **/ /** In this example, CEEMOUT is called to dispatch **/ /** a user-defined message string to the ddname **/ /** specified or defaulted in the MSGFILE runtime **/ /** option. **/ /****************************************************/ PLIMOUT: PROC OPTIONS(MAIN); %INCLUDE CEEIBMAW; %INCLUDE CEEIBMCT; DCL MSGSTR CHAR(255) VARYING; DCL DESTIN REAL FIXED BINARY(31,0); DCL 01 FC, /* Feedback token */ 03 MsgSev REAL FIXED BINARY(15,0), 03 MsgNo REAL FIXED BINARY(15,0), 03 Flags, 05 Case BIT(2), 05 Severity BIT(3), 05 Control BIT(3), 03 FacID CHAR(3), /* Facility ID */ 03 ISI /* Instance-Specific Information */ REAL FIXED BINARY(31,0); MSGSTR = 'CEEMOUT ran successfully.'; /* Set message string */ DESTIN = 2; /* Send to MSGFILE ddname */ /* Dispatch message to destination by a */ /* call to CEEMOUT */ CALL CEEMOUT ( MSGSTR, DESTIN, FC ); IF FBCHECK( FC, CEE000) THEN DO; PUT SKIP LIST( 'Message "' || MSGSTR || '" sent to destination ' || DESTIN ); END; ELSE DO; DISPLAY( 'CEEMOUT failed with msg ' || FC.MsgNo ); STOP; END; END PLIMOUT;