Z-GET33C

This document covers the following topics:


Description

Return the date and time formats of a user, the language in which the user works, and the sliding window value (YSLW).

Parameters

Parameter Format In Out Remarks
Return-code N2   X  
Cabinet A8 R   The name of the user's cabinet.
Password A8     Not validated.
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.
Language N1   X Only codes for languages which have been installed on your system are valid. The language codes are: 1=English, 2=German, 3=French, 4=Spanish, 5=Italian, 6=Dutch, 7=Turkish, Icelandic, Finnish or Swedish, 8=Danish or Hebrew, 9=Norwegian, Portuguese (Brazilian), Arabic or Russian.
Date-format A5   X Indicates how the date is displayed in all screens, and the order in which the day, month and year appear. A delimiter separates the day, month, and year values. 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.
Time-format N1   X Indicates how the time is displayed in all screens. 0=24h, 1=am/pm
Time-delimiter A1   X The character which separates the hour and minute values.
Timezone N2   X The number of hours ahead or behind your data center time zone.
Use-system-SLW A1   X If blank, the value defined in cabinet's user profile is used. If marked, the system default value is used. This value is returned in parameter Sliding-window.
Sliding-window N2   X The sliding window value used in the cabinet. Either the value defined in the system defaults or in the cabinet's user profile.

Return Codes

00 Success
02 Invalid cabinet name

Subprograms

N-DEFSLW

Example

0010 *
0020 DEFINE DATA
0030 LOCAL
0040 *
0050 1 RETURN-CODE      (N2)
0060 1 CABINET          (A8)
0070 1 PASSWORD         (A8)
0080 1 LAST-NAME        (A32)
0090 1 FIRST-NAME       (A32)
0100 1 LANGUAGE         (N1)
0110 1 DATE-FORMAT      (A5)
0120 1 TIME-FORMAT      (N1)
0130 1 TIME-DELIMITER   (A1)
0140 1 TIMEZONE         (N2)
0150 1 USE-SYSTEM-SLW   (A1)
0160 1 SLIDING-WINDOW   (N2)
0170 *
0180 END-DEFINE
0190 *
0200 MOVE 'CABINET'  TO CABINET
0210 MOVE 'PASSWORD' TO PASSWORD
0220 *
0230 CALLNAT 'Z-GET33C'
0240   RETURN-CODE
0250   CABINET
0260   PASSWORD
0270   LAST-NAME
0280   FIRST-NAME
0290   LANGUAGE
0300   DATE-FORMAT
0310   TIME-FORMAT
0320   TIME-DELIMITER
0330   TIMEZONE
0340   USE-SYSTEM-SLW
0350   SLIDING-WINDOW
0360 *
0370 WRITE
0380   '=' CABINET      /
0390   '=' PASSWORD     /
0400   '=' LAST-NAME    /
0410   '=' FIRST-NAME   /
0420   '=' LANGUAGE     /
0430   '=' DATE-FORMAT  /
0440   '=' TIME-FORMAT  /
0450   '=' TIME-DELIMITER  /
0460   '=' TIMEZONE        /
0470   '=' USE-SYSTEM-SLW /
0480   '=' SLIDING-WINDOW  /
0490 *
0500 IF RETURN-CODE NE 0
0510  WRITE / 'Return code' RETURN-CODE
0520 ELSE
0530   WRITE / 'Return status OK'
0540 END-IF
0550 *
0560 END