Sync

2013-10-27 22:24:23 +00:00 · 2013-10-27 22:24:23 +00:00 · 776bba907c
commit 776bba907c
parent 6f050a029e
3887 changed files with 59894 additions and 7280 deletions
--- a/Task/String-case/COBOL/string-case-1.cobol
+++ b/Task/String-case/COBOL/string-case-1.cobol
@ -0,0 +1,30 @@
+       IDENTIFICATION DIVISION.
+       PROGRAM-ID. string-case-85.
+
+       DATA DIVISION.
+       WORKING-STORAGE SECTION.
+       01  example PIC X(9) VALUE "alphaBETA".
+
+       01  result  PIC X(9).
+
+       PROCEDURE DIVISION.
+           DISPLAY "Example: " example
+
+           *> Using the intrinsic functions.
+           DISPLAY "Lower-case: " FUNCTION LOWER-CASE(example)
+
+           DISPLAY "Upper-case: " FUNCTION UPPER-CASE(example)
+
+           *> Using INSPECT
+           MOVE example TO result
+           INSPECT result CONVERTING "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
+               TO "abcdefghijklmnopqrstuvwxyz"
+           DISPLAY "Lower-case: " result
+
+           MOVE example TO result
+           INSPECT result CONVERTING "abcdefghijklmnopqrstuvwxyz"
+               TO  "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
+           DISPLAY "Upper-case: " result
+
+           GOBACK
+           .