CBL LIB,QUOTE
*Module/File Name: IGZTSETL
*************************************************
* Example for callable service CEESETL *
* COBSETL - Set all global locale environment *
* categories to country Sweden. *
* Query one category. *
*************************************************
IDENTIFICATION DIVISION.
PROGRAM-ID. COBSETL.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 Locale-Name.
02 LN-Length PIC S9(4) BINARY.
02 LN-String PIC X(256).
01 Locale-Time.
02 LT-Length PIC S9(4) BINARY.
02 LT-String PIC X(256).
* Use Locale category constants
COPY CEEIGZLC.
*
01 FC.
02 Condition-Token-Value.
COPY CEEIGZCT.
03 Case-1-Condition-ID.
04 Severity PIC S9(4) BINARY.
04 Msg-No PIC S9(4) BINARY.
03 Case-2-Condition-ID
REDEFINES Case-1-Condition-ID.
04 Class-Code PIC S9(4) BINARY.
04 Cause-Code PIC S9(4) BINARY.
03 Case-Sev-Ctl PIC X.
03 Facility-ID PIC XXX.
02 I-S-Info PIC S9(9) BINARY.
*
PROCEDURE DIVISION.
*************************************************
* Set up locale name for Sweden
*************************************************
MOVE 14 TO LN-Length.
MOVE 'Sv_SE.IBM-1047'
TO LN-String (1:LN-Length).
*************************************************
* Set all locale categories to Sweden
* Use LC-ALL category constant from CEEIGZLC
*************************************************
CALL 'CEESETL' USING Locale-Name, LC-ALL,
FC.
*************************************************
* Check feedback code
*************************************************
IF Severity > 0
DISPLAY 'Call to CEESETL failed. ' Msg-No
STOP RUN
END-IF.
*************************************************
* Retrieve active locale for LC-TIME category
*************************************************
CALL 'CEEQRYL' USING LC-TIME, Locale-Time,
FC.
*************************************************
* Check feedback code and correct locale
*************************************************
IF Severity = 0
IF LT-String(1:LT-Length) =
LN-String(1:LN-Length)
DISPLAY 'Successful query.'
ELSE
DISPLAY 'Unsuccessful query.'
END-IF
ELSE
DISPLAY 'Call to CEEQRYL failed. ' Msg-No
END-IF.
STOP RUN.
END PROGRAM COBSETL.