Z-DIS05I

This document covers the following topics:


Description

Display the date and time formats and the sliding window (YSLW) value in the user profile of a specific cabinet.

This subprogram can be used only by a supervisor or cabinet administrator.

To get the ISN for the wanted cabinet, you can invoke either Z-ADD05 or Z-DIS05 prior to this subprogram. To modify the profile, you can invoke Z-MOD05I after this subprogram.

The sequence of the values 1 to 5 in the Date-format parameter defines the order in which the day, month and year appear in all screens. The values mean:

1 The day is shown as a number.
2 The month is shown as a number.
3 The year is shown as a two-digit number.
4 The month is shown as a three-letter abbreviation.
5 The year is shown as a four-digit number.

A delimiter separates the day, month and year values. For example, the values 1.4.3 in the parameter Date-format indicate that the date appears as 24.Dec.99 in all screens.

Parameters

Parameter Format In Out Remarks
Return-code N2   X  
Cabinet A8 R   The cabinet ID of a supervisor or cabinet administrator.
Password A8 R   The password of the above cabinet.
Cabinet-name A8 R*   The name of the cabinet to be diplayed. Either Cabinet-name or Cabinet-ISN, not both.
Cabinet-ISN P8 R*   The ISN of the cabinet to be displayed. Either Cabinet-ISN or Cabinet-name, not both.
Date-format A5   X See the description above.
Time-format N1   X 0=24 hour, 1=am/pm
Time-delimiter A1   X Character to separate hours and minutes.
Timezone N2   X The timezone in which the user is located, relative to the CPU's timezone.
Week-start N1   X Values 1 to 7 specify the first day of the week to be shown in the Con-nect menu and the calendar screens. 1=Monday, 2=Tuesday ... 7=Sunday.
Day-start N4   X Values 0 to 23 specify the start of a 10-hour period which includes the user's working day. 0=midnight ... 9=9:00 am ... 13=1:00 pm ...
Use-system-SLW A1   X If marked, the value of the sliding window defined in the system defaults is used.
Sliding-window A2   X A value between 0 and 99.

Return Codes

00 Success
02 Invalid cabinet name
03 Password incorrect
08 Supply either ISN or name, not both
15 Invalid administrator status
91 Supply Cabinet-name or Cabinet-ISN
96 Cabinet-name is not valid
97 Cabinet-ISN is not valid

Subprograms

Z-120
Z-122
Z-123
Z-1200&0

Example

0010 Example program to display date and time formats.
0020 *
0030 DEFINE DATA
0040 LOCAL
0050 *
0060 1 RETURN-CODE      (N2)
0070 1 CABINET          (A8)
0080 1 PASSWORD         (A8)
0090 1 CABINET-NAME     (A8)
0100 1 CABINET-ISN      (P8)
0110 1 DATE-FORMAT      (A5)
0120 1 TIME-FORMAT      (N1)
0130 1 TIME-DELIMITER   (A1)
0140 1 TIMEZONE         (N2)
0150 1 WEEK-START       (N1)
0160 1 DAY-START        (N4)
0170 1 USE-SYSTEM-SLW   (A1)
0180 1 SLIDING-WINDOW   (N2)
0190 END-DEFINE
0200 *
0210 RESET RETURN-CODE
0220 MOVE 'CABINET ' TO CABINET
0230 MOVE 'PASSWORD' TO PASSWORD
0240 MOVE 'CAB-NAME' TO CABINET-NAME
0250 *
0260 CALLNAT 'Z-DIS05I' RETURN-CODE
0270   CABINET
0280   PASSWORD
0290   CABINET-NAME
0300   CABINET-ISN
0310   DATE-FORMAT
0320   TIME-FORMAT
0330   TIME-DELIMITER
0340   TIMEZONE
0350   WEEK-START
0360   DAY-START
0370   USE-SYSTEM-SLW
0380   SLIDING-WINDOW
0390 *
0400 IF RETURN-CODE EQ 0
0410 WRITE
0420   / '='  CABINET
0430   / '='  PASSWORD
0440   / '='  CABINET-NAME
0450   / '='  CABINET-ISN
0460   / '='  DATE-FORMAT
0470   / '='  TIME-FORMAT
0480   / '='  TIME-DELIMITER
0490   / '='  TIMEZONE
0500   / '='  WEEK-START
0510   / '='  DAY-START
0520   / '='  USE-SYSTEM-SLW
0530   / '='  SLIDING-WINDOW /
0540 *
0550 ELSE
0560  WRITE 'Return code' RETURN-CODE
0570 END-IF
0580 *
0590 END