Skip to main content

Converting lower case to upper case in ACUCOBOL

  • April 12, 2018
  • 6 replies
  • 1 view
Dominique Sacre
Forum|alt.badge.img+2

Hi All community,

 

Can you please provide me with an example of a function in procedure division where you apply conversion from lower case to upper.

i need the Syntax whether it is in form of example, i've been reading the book but can't get how it makes please

 

best regards 

Zux

    6 replies

    Dominique Sacre
    Forum|alt.badge.img+2

    Hi All community,

     

    Can you please provide me with an example of a function in procedure division where you apply conversion from lower case to upper.

    i need the Syntax whether it is in form of example, i've been reading the book but can't get how it makes please

     

    best regards 

    Zux

    Hi Zux.

    We simply use a call to "c$toupper" primitive, giving to it the pic X and its length:

    Simple example:


    77 wks-string pic x(60) value spaces

    ......

    move "lower test" to wks-string.

    call "c$toupper" using wks-string
                     value length of wks-string.



    --
    Davide Giudici

    Dominique Sacre
    Forum|alt.badge.img+2

    Hi All community,

     

    Can you please provide me with an example of a function in procedure division where you apply conversion from lower case to upper.

    i need the Syntax whether it is in form of example, i've been reading the book but can't get how it makes please

     

    best regards 

    Zux

    Hi Zux.

    We simply use a call to "c$toupper" primitive, giving to it the pic X and its length:

    Simple example:


    77 wks-string pic x(60) value spaces

    ......

    move "lower test" to wks-string.

    call "c$toupper" using wks-string
                     value length of wks-string.



    --
    Davide Giudici

    Dominique Sacre
    Forum|alt.badge.img+2

    Hi All community,

     

    Can you please provide me with an example of a function in procedure division where you apply conversion from lower case to upper.

    i need the Syntax whether it is in form of example, i've been reading the book but can't get how it makes please

     

    best regards 

    Zux

    There are a couple ways to do this.   I use the intrinsic function UPPER-CASE pretty often.  You can also use "C$TOUPPER" as indicated above.

     

    MOVE FUNCTION UPPER-CASE(WS-VALUE) TO WS-VALUE.
    Dominique Sacre
    Forum|alt.badge.img+2

    Hi All community,

     

    Can you please provide me with an example of a function in procedure division where you apply conversion from lower case to upper.

    i need the Syntax whether it is in form of example, i've been reading the book but can't get how it makes please

     

    best regards 

    Zux

    C$TOUPPER, C$TOLOWER, C$JUSTIFY, C$COPY, etc very useful utilities.
    Dominique Sacre
    Forum|alt.badge.img+2

    Hi All community,

     

    Can you please provide me with an example of a function in procedure division where you apply conversion from lower case to upper.

    i need the Syntax whether it is in form of example, i've been reading the book but can't get how it makes please

     

    best regards 

    Zux

    I'm looking for work again. World of opportunities out there for me. Feel like I'm free as a bird after leaving my other job. I tried convincing them compiling back to Acucobol 3.2 compatibility was not necessary and not advisable. I'm looking forward to being in a more up to date job.
    Dominique Sacre
    Forum|alt.badge.img+2

    Hi All community,

     

    Can you please provide me with an example of a function in procedure division where you apply conversion from lower case to upper.

    i need the Syntax whether it is in form of example, i've been reading the book but can't get how it makes please

     

    best regards 

    Zux

    I'm looking for work again. World of opportunities out there for me. Feel like I'm free as a bird after leaving my other job. I tried convincing them compiling back to Acucobol 3.2 compatibility was not necessary and not advisable. I'm looking forward to being in a more up to date job.

    Recent badge winners

    Explore all badges
    Terms & ConditionsAccessibility statement