Whether your exit has DFSMShsm continue with a request or purge it,
the exit has the option of constructing up to five messages for DFSMShsm to
write. Messages are written to the migration activity log for delete
or recall requests and to the backup activity log for recover requests.
Table 1. ARCRPEXT
Message AreaOffset |
Length or Bit Pattern |
Description |
---|
00 (X'00') |
1 |
Number of messages (5) which can
be built. (Set by DFSMShsm before invoking the exit.) |
01 (X'01') |
1 |
Number of characters in MESSAGE1
text following. |
02 (X'02') |
121 |
Area for text of MESSAGE1. |
123 (X'7B') |
1 |
Number of characters in MESSAGE2
text following. |
124 (X'7C') |
121 |
Area for text of MESSAGE2. |
245 (X'F5') |
1 |
Number of characters in MESSAGE3
text following. |
246 (X'F6') |
121 |
Area for text of MESSAGE3. |
367 (X'16F') |
1 |
Number of characters in MESSAGE4
text following. |
368 (X'170') |
121 |
Area for text of MESSAGE4. |
489 (X'1E9') |
1 |
Number of characters in MESSAGE5
text following. |
490 (X'1EA') |
121 |
Area for text of MESSAGE5. |
Before passing control to the exit, DFSMShsm initializes each length
field to binary 0 and each MESSAGEn field
to blanks. When the exit returns control, DFSMShsm checks for messages,
in the sequence MESSAGE1 through MESSAGE5. In each case, if the length
field is nonzero, DFSMShsm treats the next byte as an ANSI printer control
character and writes the following (maximum of 120) bytes as a message.
It is recommended that you use the following format for messages
(although it is not enforced). The following message IDs are reserved
for customer use:
- ARC90XX-Recall or delete request
- ARC91XX-Recover request
where
"XX" is a two-digit number from 00 to 99.
Table 2. ARCRPEXT
Suggested Message FormatOffset |
Length or Bit Pattern |
Description |
---|
00 (X'00') |
1 |
ANSI-defined printer control characters
(if not one of the following values, DFSMShsm substitutes a blank).
Before
printing the message:
- Blank
- = Space 1 line
- 0
- = Space 2 lines
- -
- = Space 3 lines
- 1
- = Skip to line 1 on new page
|
01 (X'01') |
8 |
Time of day, in the form HH:MM:SS
(unpacked from the contents of register zero returned by macro TIME
DEC). |
09 (X'09') |
2 |
Two blank characters for spacing. |
11 (X'0B') |
8 |
Date, in the form YY/MM/DD. |
19 (X'13') |
2 |
Two blank characters for spacing. |
21 (X'15') |
7 |
Message identifier: ARC90XX or ARC91XX |
28 (X'1C') |
1 |
Message type: I |
29 (X'1D') |
1 |
Blank character for spacing. |
30 (X'1E') |
91 |
Message content. |