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-2.cobol
+++ b/Task/String-case/COBOL/string-case-2.cobol
@ -0,0 +1,32 @@
+       IDENTIFICATION DIVISION.
+       PROGRAM-ID. string-case-extensions.
+
+       DATA DIVISION.
+       WORKING-STORAGE SECTION.
+       78  example VALUE "alphaBETA".
+
+       01  result  PIC X(9).
+
+       PROCEDURE DIVISION.
+           DISPLAY "Example: " example
+
+           *> ACUCOBOL-GT
+           MOVE example TO result
+           CALL "C$TOLOWER" USING result, BY VALUE 9
+           DISPLAY "Lower-case: " result
+
+           MOVE example TO result
+           CALL "C$TOUPPER" USING result, BY VALUE 9
+           DISPLAY "Upper-case: " result
+
+           *> Visual COBOL
+           MOVE example TO result
+           CALL "CBL_TOLOWER" USING result, BY VALUE 9
+           DISPLAY "Lower-case: " result
+
+           MOVE example TO result
+           CALL "CBL_TOUPPER" USING result BY VALUE 9
+           DISPLAY "Upper-case: " result
+
+           GOBACK
+           .