Snippet admin:demo-snippet :: Aegis Demo Forge

main.c (Raw)

1 2 3 4 5 6 7

#include <stdio.h>

int main(int argc, char* argv[]) {
    printf("hello, world!\n");
    return 0;
}

main.cbl (Raw)

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31

       IDENTIFICATION DIVISION.
       PROGRAM-ID. ConditionNames.
       AUTHOR. Zetian Lin_.
      *    > condition names...

       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01  CharIn            PIC X.
           88 Vowel          VALUE "a", "e", "i", "o", "u".
           88 Consonant      VALUE "b", "c", "d", "f", "g", "h"
                                   "j" THRU "n", "p" THRU "t",
                                   "v" THRU "z".
           88 Digit          VALUE "0" THRU "9".
           88 ValidCharacter VALUE "a" THRU "z", "0" THRU "9".

       PROCEDURE DIVISION.
       Begin.
           DISPLAY "Enter lower case character or digit. "
                   "Invalid char ends."
           ACCEPT CharIn.
           PERFORM UNTIL NOT ValidCharacter
               EVALUATE TRUE
                   WHEN Vowel      DISPLAY "The letter ", CharIn,
                                           " is a vowel."
                   WHEN Consonant  DISPLAY "The letter ", CharIn,
                                           " is a consonant."
                   WHEN Digit      DISPLAY CharIn, " is a digit."
               END-EVALUATE
               ACCEPT CharIn
           END-PERFORM
           STOP RUN.