Skip to content

Instantly share code, notes, and snippets.

@pdemby

pdemby/lcase2ucase

Last active December 30, 2015 02:45
Show Gist options
  • Save pdemby/86b90309ca46e1cda67f to your computer and use it in GitHub Desktop.
Save pdemby/86b90309ca46e1cda67f to your computer and use it in GitHub Desktop.
Download ZIP
lowercase to UPPERCASE
Raw
lcase2ucase
IDENTIFICATION DIVISION.
PROGRAM-ID. UCASE2LCASE.
ENVIRONMENT DIVISION.
WORKING-STORAGE SECTION.
01 TEXT-STRING PIC X(25).
PROCEDURE DIVISION.
START-ROUTINE.
MOVE "this is a text string" TO TEXT-STRING.
INSPECT TEXT-STRING CONVERTING "abcdefghijklmnopqrstuvwxyz"
TO "ABCDEFGHIJKLMNOPQRSTUVWXYZ".
STOP RUN.
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment