This document covers the following topics:
Return the work phone number of a user.
| Parameter | Format | In | Out | Remarks |
|---|---|---|---|---|
| Return-code | N2 | X | ||
| Cabinet | A8 | R | The name of the user's cabinet. | |
| Last-name | A32 | X | The last name of the user to whom the cabinet was assigned. | |
| First-name | A32 | X | The first name of the user. | |
| Work-phone | A15 | X | The user's work phone number. | |
| Work-phone-extension | A10 | X | The extension of the work phone number. |
| 00 | Success |
| 02 | Invalid cabinet name or - in batch mode only - locked cabinet |
None
0010 DEFINE DATA LOCAL 0020 1 RETURN-CODE (N2) 0030 1 CABINET (A8) 0040 1 LAST-NAME (A32) 0050 1 FIRST-NAME (A32) 0060 1 WORK-PHONE (A15) 0070 1 WORK-PHONE-EXTENSION (A10) 0080 * 0090 END-DEFINE 0100 * 0110 MOVE 'AH' TO CABINET 0120 * 0130 CALLNAT 'Z-GET33A' RETURN-CODE CABINET LAST-NAME FIRST-NAME 0140 WORK-PHONE WORK-PHONE-EXTENSION 0150 * 0160 PRINT RETURN-CODE LAST-NAME FIRST-NAME WORK-PHONE 0170 WORK-PHONE-EXTENSION 0180 END