Voici un programme avec UNSTRING UPPER-CASE/LOWER-CASE :
IDENTIFICATION DIVISION.
PROGRAM-ID. UNSTRING.
AUTHOR. LA COMMUNAUTE DU COBOL.
*----------------------------------------------------------
DATA DIVISION.
WORKING-STORAGE SECTION.
01 WS-AUXILIARES.
05 WS-NOM-COMPLET PIC X(30) VALUE "LA COMMUNAUTE DU COBOL".
05 WS-PREMIER PIC X(02).
05 WS-DEUXIEME PIC X(10).
05 WS-TROISIEME PIC X(02).
PROCEDURE DIVISION.
************************************
******** UNSTRING Normal *********
************************************
UNSTRING
WS-NOM-COMPLET DELIMITED BY SPACE
INTO WS-PREMIER WS-DEUXIEME WS-TROISIEME
END-UNSTRING
DISPLAY "UNSTRING Normal"
DISPLAY " "
DISPLAY "Premier = " WS-PREMIER.
DISPLAY "Deuxième = " WS-DEUXIEME.
DISPLAY "Troisième = " WS-TROISIEME.
DISPLAY " "
***********************************************
* UNSTRING combinant avec FUNCTION UPPER-CASE *
***********************************************
UNSTRING
FUNCTION UPPER-CASE (WS-NOM-COMPLET) DELIMITED BY SPACE
INTO WS-PREMIER WS-DEUXIEME WS-TROISIEME
END-UNSTRING
DISPLAY "UNSTRING combinant avec FUNCTION UPPER-CASE"
DISPLAY " "
DISPLAY "Premier = " WS-PREMIER.
DISPLAY "Deuxième = " WS-DEUXIEME.
DISPLAY "Troisième = " WS-TROISIEME.
DISPLAY " "
***********************************************
* UNSTRING combinant avec FUNCTION LOWER-CASE *
***********************************************
UNSTRING
FUNCTION LOWER-CASE (WS-NOM-COMPLET) DELIMITED BY SPACE
INTO WS-PREMIER WS-DEUXIEME WS-TROISIEME
END-UNSTRING
DISPLAY "UNSTRING combinant avec FUNCTION LOWER-CASE"
DISPLAY " "
DISPLAY "Premier = " WS-PREMIER.
DISPLAY "Deuxième = " WS-DEUXIEME.
DISPLAY "Troisième = " WS-TROISIEME.
DISPLAY " "
STOP RUN.
RESULTAT
UNSTRING Normal
Premier = La Deuxième = Communaute Troisième = Du
UNSTRING combinant la FUNCTION UPPER-CASE
Premier = LA Deuxième = COMMUNAUTE Troisième = DU
UNSTRING combinant la FUNCTION LOWER-CASE
Premier = la Deuxième = communaute Troisième = du