z/OS MVS Programming: Authorized Assembler Services Reference SET-WTO
Previous topic | Next topic | Contents | Contact z/OS | Library | PDF


Description

z/OS MVS Programming: Authorized Assembler Services Reference SET-WTO
SA23-1375-00

The WTOR macro causes a message requiring a reply to be written to one or more operator consoles and the hardcopy log. The macro also provides the information required by the system to return the reply to the issuing program. See z/OS MVS Programming: Authorized Assembler Services Guide for more information on using the WTOR macro.

The description of the WTOR macro follows. The WTOR macro is also described in z/OS MVS Programming: Assembler Services Reference IAR-XCT, with the exception of the MSGTYP, SYSNAME, JOBID, JOBNAME, LINKAGE, and SYNCH parameters.

Environment

If you code LINKAGE=SVC, the requirements for the caller are:

Environmental factor Requirement
Minimum authorization: One of the following, depending on the parameters you code:
  • Problem state and PSW key 0-7.
  • If you code the MSGTYP, SYSNAME, JOBID, JOBNAME, and SYNCH parameters, one of the following:
    • Supervisor state with PSW key 0-7
    • APF-authorized
Dispatchable unit mode: Task
Cross memory mode: PASN=HASN=SASN
AMODE: 24- or 31- or 64-bit
ASC mode: Primary
Interrupt status: Enabled for I/O and external interrupts.
Locks: No locks held
Control parameters: Must be in the primary address space

If you code LINKAGE=BRANCH, the requirements for the caller are:

Environmental factor Requirement
Minimum authorization: Supervisor state with PSW key 0-7
Dispatchable unit mode: Task or SRB
Cross memory mode: Any PASN, any HASN, any SASN
AMODE: 24- or 31-bit
ASC mode: Primary
Interrupt status: Enabled or disabled for I/O and external interrupts.
Locks: The caller may hold locks, but is not required to hold any.
Control parameters: Must be in the primary address space.

Programming requirements

Be aware of the following when coding the WTOR macro:
  • IBM® recommends that you begin the parameter list for WTOR on a fullword boundary.
  • If the caller is disabled, the WTOR parameter list, reply area, and reply ECB must be in fixed storage. In this case, LINKAGE=BRANCH and SYNCH=YES must be specified.
  • If the list and execute forms of the WTOR macro are in separate modules, both modules must be assembled or compiled with the same level of WTOR.
  • When you're coding a reentrant program, make sure the WTOR parameter list is generated correctly. To ensure this, you must code the same parameters on both forms, only when you code one or more of the following parameters:
    • RPLYISUR
    • CONSID
    • CONSNAME
    • SYSNAME
    • CART
    • KEY
    • TOKEN
    • JOBNAME
    • JOBID
    • LINKAGE

    On the list form, code only the parameter and the equal sign; do not code a parameter value as well. If you specify parameter values on the list form, the system issues an MNOTE and ignores the data.

  • For any WTOR keywords that allow a register specification, the value must be right-justified in the register.
  • If you specify the TEXT keyword for a multi-line WTOR, you must code its parameters in the following way:
    • On the list form, omit text addr for each line, but include line type. If you specify text addr, the system ignores the data and issues an MNOTE.
    • On the execute form, omit line type for each line, but include text addr.
  • As of z/OS® 1.4.2, to prevent parameter lists that are not valid from causing system errors, the WTOR service records the errors as symptom records in LOGREC. One example of an invalid parameter list is an invalid combination of WTOR parameters. The system may also issue a D23 abend for diagnostic purposes only; the program issuing the WTOR will not be abended. Message processing will continue as far as possible using the invalid parameter list.

    Because of these invalid parameter list errors, you might notice that some messages that you once were able to process can no longer be processed; your program may also receive different return codes. However, in these cases, the symptom record will always be issued, and the diagnostic D23 abend will be issued if possible. IBM suggests that you correct all WTOR errors, regardless of whether or not the message is actually displayed. For an example LOGREC symptom record, see Example 3 in the WTO description.

    If a dump is needed along with the diagnostic D23 abend to debug the problem, the following SLIP can be set to cause dumps to be taken:
    SLIP SET,ENABLE,COMP=D23,ACTION=SVCD,END

Restrictions

If the LINKAGE=BRANCH parameter is specified, the SYNCH=YES parameter is required.

You can issue a multi-line WTOR only if you specify LINKAGE=BRANCH, SYNCH=YES.

Issue a synchronous message only if your program is in a state in which it cannot issue an ordinary WTOR (LINKAGE=SVC), and you must receive operator input before continuing.

The caller cannot have an EUT FRR established.

Input register information

Before issuing the WTOR macro, the caller does not have to place any information into any register unless using it in register notation for a particular parameter, or using it as a base register.

Output register information

When control returns to the caller, the general purpose registers (GPRs) contain:
Register
Contents
0
Used as a work register by the system
1
Message identification number if the macro completed normally (you can use this number to delete the message when it is no longer needed); otherwise, used as a work register by the system
2-13
Unchanged
14
Used as a work register by the system
15
Return code
When control returns to the caller, the access registers (ARs) contain:
Register
Contents
0-1
Used as work registers by the system
2-13
Unchanged
14-15
Used as work registers by the system

Some callers depend on register contents remaining the same before and after issuing a service. If the system changes the contents of registers on which the caller depends, the caller must save them before issuing the service, and restore them after the system returns control.

Performance implications

SYNCH=YES causes the calling program to display the message, become disabled, and receive the reply synchronously.

Syntax

The standard form of the WTOR macro is written as follows:

Syntax Description
 
   name name: Symbol. Begin name in column 1.
   
One or more blanks must precede WTOR.
   
WTOR  
   
One or more blanks must follow WTOR.
   
‘msg’,reply addr,reply length,ecb addr  
(‘text’,reply addr,reply length,ecb addr)  
((‘text’,line type),...(‘text’,line type)),reply addr, reply length,ecb addr  
TEXT=(text addr,reply addr,reply length,ecb addr)  
TEXT=((text addr,line type),reply addr, reply length,ecb addr)  
TEXT=(((text addr,line type),...(text addr, line type)), reply addr,reply length,ecb addr)  
 
Note: If you code ‘msg’... or (‘text’...), it must be the first parameter you code.
  msg: Up to 122 characters.
  text: Up to 122 characters.
  text addr: RX-type address or register (2) - (12).
  reply addr: A-type address, or register (2) - (12).
  reply length: Symbol, decimal digit, or register (2) - (12). The minimum length is 1; the maximum length is 119.
  ecb addr: A-type address, or register (2) - (12).
The permissible line types, text lengths, and maximum numbers are shown below:
line type     text       maximum number
C             31 char    1 C type
L             66 char    2 L type
D             66 char    14 D type
DE            66 char    1 DE type
               or
E             None       1 E type

The maximum total of lines that can be coded in one instruction is 14.

   
   ,ROUTCDE=(routing code) routing code: Decimal digit from 1 to 128. The routing code is one or more codes, separated by commas, or a hyphen to indicate a range.
   
   ,DESC=(descriptor code) descriptor code: Decimal number 7 or 13. If you code both 7 and 13, separate them with commas.
   
   ,MSGTYP=(msg type) msg type: Any of the following:
N
SESS,JOBNAMES
Y
SESS,STATUS
SESS
JOBNAMES,STATUS
JOBNAMES
SESS,JOBNAMES,STATUS
STATUS
 
Note: IBM recommends that you do not use MSGTYP=Y. See the MSGTYP explanation on page ,MSGTYP=(msg type) for more information.
   
   ,MCSFLAG=(flag name) flag name: Any combination of the following, separated by commas:
NOCPY
HRDCPY
RESP
BRDCST
REPLY
NOTIME
   
   ,RPLYISUR=reply console reply console: RX-type address or register (2) - (12).
   
   ,CONSID=console id console id: RX-type address or register (2) - (12).
   ,CONSNAME=console name console name: RX-type address or register (2) - (12).
   
   ,SYSNAME=system name system name: RX-type address or register (2) - (12).
   
   ,CART=cmd/resp token cmd/resp token: RX-type address or register (2) - (12).
   
   ,KEY=key key: RX-type address or register (2) - (12).
   
   ,TOKEN=token token: RX-type address or register (2) - (12).
   
   ,JOBID=job id job id: RX-type address or register (2) - (12).
   
   ,JOBNAME=jobname jobname: RX-type address or register (2) - (12).
   
   ,LINKAGE=SVC Default: SVC
   ,LINKAGE=BRANCH  
   
   ,SYNCH=NO Default: NO
   ,SYNCH=YES  
   

Parameters

The parameters are explained as follows:

‘msg’,reply addr,reply length,ecb addr
(‘text’,reply addr,reply length,ecb addr)
((‘text’,line type,...‘text’,line type),reply addr,reply length,ecb addr)
TEXT=(text addr,reply addr,reply length,ecb addr)
TEXT=((text addr,line type),reply addr,reply length,ecb addr)
TEXT=(((text addr,line type),...(text addr, line type)),reply addr,reply length,ecb addr)
Specifies the message or multiple-line message to be written to one or more operator consoles.

Use the ‘msg’ parameter to write a single-line message to the operator. Enclose the message in apostrophes. The apostrophes do not appear on the console. You can include any character that can be used in a character (C-type) DC instruction.

To have apostrophes appear in the message text, use two apostrophes to get one to appear. For example, ''Message Off'' would appear on a display as 'Message Off'. When a program issues a WTOR macro, the system translates the text; only standard printable EBCDIC characters are passed to MCS-managed display devices. The EBCDIC characters that can be displayed are listed in “Timing and Communication” in z/OS MVS Programming: Assembler Services Guide. All other characters are replaced by blanks. Unless the console has dual-case capability, lowercase characters are displayed or printed as uppercase characters.

The message is assembled as a variable-length record. text addr represents a 4-byte address of a message to be displayed that consists of a 2-byte message length followed by the message text. The 2-byte message length describes the length of the message text only. There are no boundary requirements.

Use the parameters (‘text’) and (text addr,line type) to write a multiple-line message to the operator. For an authorized program, the message can be up to fourteen lines long; the system truncates the message at the end of the fourteenth line. The fourteen-line limit does not include the control line (message IEE932I), as explained under line type C below.
Note:
  1. You can issue a multi-line WTOR only if you specify SYNCH=YES. See the SYNCH parameter description for information about its use.
  2. If you code the parameter (‘text’) without repetition, the message appears as a single-line message.
  3. Specify all lines of a multiple-line WTOR consistently with the message text or the TEXT keyword. When coding the TEXT keyword for a multiple-line message, do not exceed the 66-character limit for the macro parameter value.
The line type defines the type of information contained in the ‘text’ field of each line of the message:
C
Indicates that the ‘text’ parameter is the text to be contained in the control line of the message. The control line normally contains a message title. C may be coded only for the first line of a multiple-line message. Control lines are optional.
L
Indicates that the 'text' parameter is a label line. Label lines contain message heading information. Label lines are optional. If coded, lines must either immediately follow the control line or another label line or be the first line of the multiple-line message if there is no control line. Only two label lines may be coded per message.
D
Indicates that the ‘text’ parameter contains the information to be conveyed to the operator by the multiple-line message.
DE
Indicates that the ‘text’ parameter contains the last line of information to be passed to the operator. Specify DE on the last line of text of the WTOR. If there is no text on the last line, specify E.
E
Indicates that the previous line of text was the last line of text to be passed to the operator. The ‘text’ parameter, if any, coded with a line type of E is ignored. Specify E on the last line of the WTOR if that line has no text. If the last line has text, specify DE.
Note: All WTOR messages are action messages. An indicator (* for authorized issuers or @ for unauthorized issuers) appears before the first character of an action message to indicate a need for operator action. Action messages will cause the audible alarm to sound on operator consoles so-equipped.

reply addr specifies the address in virtual storage of the area into which the system is to place the reply. The reply is left-justified at this address.

reply length specifies the maximum length, in bytes, of the reply message.

ecb addr specifies the address of the event control block (ECB) to be used by the system to indicate the completion of the reply. The ECB address must point to a fullword boundary. After the system receives the reply, the ECB appears as follows:
Offset   Length(bytes)   Contents
0        1               Completion code
Note: Use RPLYISUR to obtain the 4-byte console ID and console name of the console issuing the reply.
,ROUTCDE=(routing code)
Specifies the routing code or codes to be assigned to the message.
The routing codes are:
Code
Meaning
1
Operator Action

The message indicates a change in the system status. It demands action by the primary operator.

2
Operator Information

The message indicates a change in system status. It does not demand action; rather, it alerts the primary operator to a condition that might require action.

This routing code is used for any message that indicates job status when the status is not requested specifically by an operator inquiry. It is also used to route processor and problem program messages to the system operator.

3
Tape Pool

The message gives information about tape devices, such as the status of a tape unit or reel, the disposition of a tape reel, or a request to mount a tape.

4
Direct Access Pool

The message gives information about direct access storage devices (DASD), such as the status of a direct access unit or volume, the disposition of a volume, or a request to mount a volume.

5
Tape Library

The message gives tape library information, such as a request by volume serial numbers for tapes for system or problem program use.

6
Disk Library

The message gives disk library information, such as a request by volume serial numbers for volumes for system or problem program use.

7
Unit Record Pool

The message gives information about unit record equipment, such as a request to mount a printer train.

8
Teleprocessing Control

The message gives the status or disposition of teleprocessing equipment, such as a message that describes line errors.

9
System Security

The message gives information about security checking, such as a request for a password.

10
System/Error Maintenance

The message gives problem information for the system programmer, such as a system error, an uncorrectable I/O error, or information about system maintenance.

11
Programmer Information

This is commonly referred to as write to programmer (WTP). The message is intended for the problem programmer. This routing code is used when the program issuing the message cannot route the message to the programmer through a system output (SYSOUT) data set. The message appears in the JESYSMSG data set. If the message issuer is a TSO user, the message is also displayed on the TSO user's screen.

12
Emulation

The message gives information about emulation. (These message identifiers are not included in this publication.)

13-20
For customer use only.
21-28
For subsystem use only.
29
Disaster recovery.
30-40
For IBM use only.
41
The message gives information about JES3 job status.
42
The message gives general information about JES2 or JES3.
43-64
For JES use only.
65-96
Messages associated with particular processors.
97-128
Messages associated with particular devices.

If you omit the ROUTCDE, and CONSID or CONSNAME keywords, the system uses the routing code specified on the ROUTCODE keyword on the DEFAULT statement in the CONSOLxx member of SYS1.PARMLIB. See z/OS MVS Initialization and Tuning Reference for information about CONSOLxx.

,DESC=(descriptor code)
Specifies the message descriptor code or codes to be assigned to the message. Valid descriptor codes for the WTOR macro are:
7
Retain action message for life-of-task
13
Message previously automated

All WTOR messages are action messages that have an asterisk (*) sign displayed before the first character (WTORs for unauthorized users have an "@" sign displayed before the first character). This indicates a need for operator action.

The system adds descriptor code 7 to all WTOR messages. The system holds all WTOR messages until one of the following events occurs:
  • The system deletes the WTOR message when the reply is received.
  • You delete the WTOR message using the DOM macro. You should delete any unanswered WTOR messages that are no longer current.
  • The system deletes the WTOR message at task termination.

The message processing facility (MPF) can suppress messages. For MPF to suppress messages, the hardcopy log must be active. The suppressed messages do not appear on any console; they do appear on the hardcopy log.

,MSGTYP=(msg type)
Specifies how the message is to be routed to consoles on which the MONITOR command is active. If you specify anything other than MSGTYP=N, which is the default, your message is routed according to your specification on MSGTYP.

For SESS, JOBNAMES, or STATUS, the message is to be routed to the console that issued the MONITOR SESS, MONITOR JOBNAMES, or MONITOR STATUS command, respectively. When the message type is identified by the operating system, the message is routed to only those consoles that requested the information.

For Y or N, the message type describes what functions (MONITOR SESS, MONITOR JOBNAMES, and MONITOR STATUS) are desired. N, or omission of the MSGTYP parameter, indicates that the message is to be routed as specified in the ROUTCDE parameter. Y creates an area in the WTO parameter list in which you can set message type information if you are coding a WTOR without any of the following parameters:
  • KEY
  • TOKEN
  • CONSID
  • CONSNAME
  • TEXT
  • RPLYISUR
  • CART
  • LINKAGE
  • SYNCH

IBM recommends that you do not use MSGTYP=Y.

,MCSFLAG=(flag name)
Specifies one or more flag names whose meanings are shown below:
Table 1. MCSFLAG Flag Names
Flag Name Meaning
RESP The WTOR is an immediate command response.
REPLY This is a reply to a WTOR.
BRDCST Broadcast the message to all active consoles.
HRDCPY Queue the message for hard copy only.
NOTIME Do not append time to the message.
NOCPY Do not queue the message for hard copy.
,RPLYISUR=reply console
Specifies a 12-byte field where the system will place the 8-byte console name and the 4-byte console ID of the console through which the operator replies to this message. When you specify this keyword in the list form, code it as RPLYISUR= with nothing after the equal sign.
,CONSID=console id
Specifies a 4-byte field containing the ID of the console to receive a message.
Note:
  1. If you code the CONSID parameter using a register, the register must contain the console ID itself, rather than the address of the console ID.
  2. When you code CONSID on the list form of WTOR, code it as CONSID= with nothing after the equal sign.
  3. CONSID is mutually exclusive with the CONSNAME parameter.
,CONSNAME=console name
Specifies an 8-byte field containing a 2- through 8-character name, left-justified and padded with blanks, of the console to receive a message. This parameter is mutually exclusive with the CONSID parameter. When you specify this keyword in the list form, code it as CONSNAME= with nothing after the equal sign.
,SYSNAME=system name
Specifies an 8-byte input field containing a system name to be associated with this message. You should left-justify SYSNAME and pad with blanks.

The system name is that of the system from which the caller issues the WTOR message. When you specify this parameter in the list form, code it as SYSNAME= with nothing after the equal sign. The system will, by default, set the system name to the system where the message is issued. IBM suggests that you avoid specifying SYSNAME.

,CART=cmd/resp token
Specifies an 8-byte field containing a command and response token to be associated with this message. You can specify any value as a command and response token. The command and response token is used to associate user information with a command and its command response. When you specify this keyword in the list form, code it as CART= with nothing after the equal sign.
,KEY=key
Specifies a field containing an 8-byte key to be associated with this message. The key must be EBCDIC if used with the MVS™ DISPLAY R command for retrieval purposes, but it must not be ‘*’. The key must be left-justified and padded on the right with blanks. If a register is used, it contains the address of the key. When this keyword is specified in the list form, it must be coded as KEY= with nothing after the equal sign.
,TOKEN=token
Specifies a field containing a 4-byte token to be associated with this message. This field is used to identify a group of messages that can be deleted by a DOM macro that includes TOKEN. The token must be unique within an address space, and can be any value. When you specify this keyword on the list form, code it as TOKEN= with nothing after the equal sign.
Note: When you code the TOKEN parameter using a register, the register must contain the token itself, rather than the address of the token.
,JOBID=job id
Specifies an 8-byte input field containing an ID that specifies the issuer of the WTOR message. When you specify this parameter in the list form, code it as JOBID= with nothing after the equal sign.
,JOBNAME=jobname
Specifies an 8-byte input field containing a name that specifies the issuer of the WTOR message. You should left-justify JOBNAME and pad with blanks. When you specify this parameter in the list form, code it as JOBNAME= with nothing after the equal sign.
,LINKAGE=SVC
,LINKAGE=BRANCH
Specifies how control is to pass to the WTOR service.

LINKAGE=SVC indicates the linkage is by a supervisor call. If LINKAGE is not specified, this is the default.

LINKAGE=BRANCH indicates the linkage is by a branch-and-link. You must use SYNCH=YES with this parameter. This parameter is used by programs that require the WTOR request to be handled synchronously.

When you specify this keyword in the list form, code it as LINKAGE= with nothing after the equal sign.

,SYNCH=NO
,SYNCH=YES
Specifies whether the WTOR request processes synchronously with the caller.

SYNCH=NO, the default, indicates that the request is not processed synchronously.

SYNCH=YES indicates the request is to be processed synchronously. This parameter is used in error and recovery environments, when normal message processing cannot be used. The message is sent to the console, and the reply is obtained immediately, before control is returned to the caller. Before return, the reply and reply length are moved to the areas specified by the caller, and the ecb marked “complete.” Copies of the message and reply are queued for transcription to the hardcopy log.

If you specify SYNCH=YES:
  • You must specify the parameter LINKAGE=BRANCH.
  • Do not specify MCSFLAG=HRDCPY.
  • Do not specify RPLYISUR

Your installation can determine which consoles can receive synchronous messages by using the SYNCHDEST parameter in the CONSOLxx member of SYS1.PARMLIB. For additional information on the SYNCHDEST parameter, see z/OS MVS Initialization and Tuning Reference.

ABEND codes

WTOR might abnormally terminate with abend code X'D23'. See z/OS MVS System Codes for an explanation and programmer response for this code.

Return and reason codes

When the WTOR macro returns control to your program, GPR 15 contains one of the following hexadecimal return codes.

Table 2. Return Codes for the WTOR Macro
Return Code Meaning and Action
00 Meaning: Processing completed successfully.

Action: None. Be sure to delete the message by issuing the DOM macro (if this is an action message or a WTOR).

02 Meaning: Processing was not completely successful. This might be caused by inconsistent parameters given to WTOR, or it could be an environmental problem.

Action: A D23 abend has been issued for diagnostic purposes only. No dump has been taken; if a dump is needed, you must set a SLIP trap. Correct any inconsistencies in the WTOR invocation.

04 Meaning: Program error. The length of text for a message line was not correct.
Action:
  • Make sure your text is properly referenced. If you are using the TEXT parameter, make sure it is pointing to valid data.
  • Make sure your message text is defined correctly. If you are using the TEXT parameter, make sure the first two bytes of data in the area pointed to by the TEXT parameter value contain the length of the message text.

In all cases, correct the problem and retry the request.

08 Meaning: Program error. The connecting message ID (passed in register 0 or specified in the CONNECT parameter) does not match any on the queue. The request was ignored.

Action: Verify the CONNECT ID value, correct the problem, and retry.

18 Meaning: Program error. The WPL was invalid and a symptom record was written to LOGREC to describe the error. The message was not processed.

Action: Correct the WPL.

30 Meaning: Environmental error. For routing code 11, the required resource was not available; the request was ignored. For any other routing code, the request was processed.

Action: Retry the request when the resource you need is available.

40 Meaning: Environmental error. WTOR was issued with LINKAGE=BRANCH; insufficient storage was available to queue the message for delayed issue. If SYNCH=NO was specified, the message was not queued for delayed issue. If SYNCH=YES was specified, the message was delivered for display, but not queued for hardcopy.

Action: If you want the message to be delivered to the destination you requested, reissue the request. If the message was not displayed, a DOM request is not required.

44 Meaning: Environmental error. WTOR was issued with LINKAGE=BRANCH, SYNCH=YES; no usable console was available. The message was queued for hardcopy, but not delivered for display.

Action: If you want the message to be delivered to the destination you requested, reissue the request. If the message was not displayed, a DOM request is not required.

48 Meaning: Environmental error. WTOR was issued with LINKAGE=BRANCH, SYNCH=YES; no usable console was available and insufficient storage was available to queue the message for delayed issue. The message was not delivered for display, nor queued for hardcopy.

Action: If you want the message to be delivered to the destination you requested, reissue the request. If the message was not displayed, a DOM request is not required.

4C Meaning: Environmental error. WTOR was issued with LINKAGE=BRANCH; no storage was available for the use of WTOR processing.

Action: If you want the message to be delivered to the destination you requested, reissue the request. If the message was not displayed, a DOM request is not required.

50 Meaning: Environmental error. The message could not be fully processed because of insufficient space. The message might not appear in the hardcopy log and it might not be displayed on any consoles.

Action: Retry the request.

54 Meaning: Environmental error. The message could not be fully processed because of a hardcopy failure. The message might not appear in the hardcopy log.

Action: Issue a D C,HC to display any active hardcopy mediums. Verify that SYSLOG and OPERLOG are active and functioning correctly and then retry the request.

58 Meaning: Environmental error. The message could not be fully processed because of an error that occurred while sending it. The message might not appear in the hardcopy log and it might not be displayed on any consoles.

Action: Retry the request.

5C Meaning: Environmental error. The message could not be fully processed because of a failure freeing storage. The message might not appear in the hardcopy log and it might not be displayed on any consoles.

Action: Retry the request.

60 Meaning: Environmental error. The message could not be fully processed because of an error that occurred while calculating its size. The message might not appear in the hardcopy log and it might not be displayed on any consoles.

Action: Retry the request.

64 Meaning: Environmental error. The message could not be fully processed because of an error that occurred while building the message. The message might not appear in the hardcopy log and it might not be displayed on any consoles.

Action: Retry the request.

68 Meaning: The WTO environment is not yet available. The message was not delivered for display, nor was it queued for hardcopy.

Action: Issue the request again when WTO processing is available.

Example 1

Issue a WTOR to the primary operator.
L8       EQU   8
         .
         .
         .
         WTOR  'USR902A REPLY YES OR NO TO CONTINUE.',REPLY,L8,REPECB, X
               ROUTCDE=(1),RPLYISUR=CONINFO
         .
         .
         .
REPLY    DS    CL8
REPECB   DS    F
CONINFO  DS    CL12

Example 2

Issue a WTOR with the TEXT parameter. The message is to go to a specific console whose name is in field TOCON.
R4       EQU   4
R5       EQU   5
LENG12   EQU   12
         .
         .
         .
         LA    R4,CATMSG
         LA    R5,TAPEAREA
         WTOR  TEXT=((R4),REPAREA,LENG12,TAPEECB),                     X
               CONSNAME=TOCON,                                         X
               RPLYISUR=(R5)
         .
         .
         .
CATMSG   DC    AL2(L'REP64)                                     00011800
REP64    DC    C'USR922A INDICATE NUMBER OF TAPE DRIVES REQUIRED.'
TOCON    DC    CL8'TAPECON '
REPAREA  DS    CL12
TAPEECB  DS    F
TAPEAREA DS    CL12

Example 3

Issue a branch-entry WTOR.
C80      EQU   80
         .
         .
         .
         WTOR  'USR940I ENTER THE NAMES OF AFFECTED JOBS:',REPAR6,C80,JX
               OBSECB,RPLYISUR=JOBCONS,                                X
               ROUTCDE=(1),LINKAGE=BRANCH,SYNCH=YES
         .
         .
         .
REPAR6   DS    CL80
JOBSECB  DS    F
JOBCONS  DS    CL12

Example 4

Issue a WTOR using the TEXT parameter with the list and execute forms of the macro. The console ID to which the message is to be queued is assumed to be in field MYCONID. On the TEXT parameter for the execute form, commas mark the positions of reply addr and ecb addr; for the list form, a comma marks the position of reply length.
R12      EQU   12
C50      EQU   50                      LENGTH OF REPLY AREA
         USING *,R12
         .
         .
         .
         WTOR  MF=(E,M2,EXTENDED),TEXT=(MESSAGE,,C50,),CONSID=MYCONID, X
               RPLYISUR=MYCONAR
         .
         .
         .
M2       DS    0F
         WTOR  TEXT=(,RAREA,,MYECB),CONSID=,ROUTCDE=(2),RPLYISUR=,MF=L
MYCONID  DS    F
RAREA    DS    CL50
MYECB    DS    F
MYCONAR  DS    CL12
MESSAGE  DC    AL2(L'MTEXT)
MTEXT    DC    C'USR930A REQUEST IS AMBIGUOUS. RESPECIFY DEVICE.'
         END

Go to the previous page Go to the next page




Copyright IBM Corporation 1990, 2014