1. Forum
  2. USENET
  3. comp.lang.cobol

  • Re: Using one 01 in another 01?

    From Bruce Axtens@snetxa@hotmail.com to comp.lang.cobol on Wed Feb 5 21:54:21 2025
    From Newsgroup: comp.lang.cobol

    So the code gets run by cobolcheck with a .cut file of

    TestCase "ROT0"
    MOVE 0 TO WS-KEY
    MOVE 'abcdefghijklmnopqrstuvwxyz' TO WS-TEXT
    PERFORM ROTATIONAL-CIPHER
    EXPECT WS-CIPHER = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'

    TestCase "ROT26"
    MOVE 26 TO WS-KEY
    MOVE 'abcdefghijklmnopqrstuvwxyz' TO WS-TEXT
    PERFORM ROTATIONAL-CIPHER
    EXPECT WS-CIPHER = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'

    TestCase "ROT1"
    MOVE 1 TO WS-KEY
    MOVE 'abcdefghijklmnopqrstuvwxyz' TO WS-TEXT
    PERFORM ROTATIONAL-CIPHER
    EXPECT WS-CIPHER = 'BCDEFGHIJKLMNOPQRSTUVWXYZA'

    TestCase "ROT13"
    MOVE 13 TO WS-KEY
    MOVE 'abcdefghijklmnopqrstuvwxyz' TO WS-TEXT
    PERFORM ROTATIONAL-CIPHER
    EXPECT WS-CIPHER = 'NOPQRSTUVWXYZABCDEFGHIJKLM'

    TestCase "ROT5 Capital Letters"
    MOVE 5 TO WS-KEY
    MOVE 'OMG' TO WS-TEXT
    PERFORM ROTATIONAL-CIPHER
    EXPECT WS-CIPHER = 'TRL'

    TestCase "ROT5 Numbers"
    MOVE 5 TO WS-KEY
    MOVE 'Testing 1 2 3 testing' TO WS-TEXT
    PERFORM ROTATIONAL-CIPHER
    EXPECT WS-CIPHER = 'YJXYNSL 1 2 3 YJXYNSL'

    TestCase "ROT5 Punctuation"
    MOVE 5 TO WS-KEY
    MOVE "Let's eat, Grandma!" TO WS-TEXT
    PERFORM ROTATIONAL-CIPHER
    EXPECT WS-CIPHER = "QJY'X JFY, LWFSIRF!"

    TestCase "ROT13 Quick Fox"
    MOVE 13 TO WS-KEY
    MOVE "The quick brown fox jumps over the lazy dog." TO WS-TEXT
    PERFORM ROTATIONAL-CIPHER
    EXPECT WS-CIPHER = "GUR DHVPX OEBJA SBK WHZCF BIRE GUR YNML QBT."

    This is based on files in https://github.com/exercism/problem-specifications/tree/main/exercises/rotational-cipher

    So what my question was really about was whether one WS value can be
    used to define another. It seems not.

    -Bruce
    --- Synchronet 3.21a-Linux NewsLink 1.2
  • From docdwarf@docdwarf@panix.com () to comp.lang.cobol on Wed Feb 5 18:51:13 2025
    From Newsgroup: comp.lang.cobol

    In article <vnvqid$2cj31$1@dont-email.me>,
    Bruce Axtens <snetxa@hotmail.com> wrote:

    [snip]

    So what my question was really about was whether one WS value can be
    used to define another. It seems not.

    Not at the 01 level (except in the FILE SECTION). Have you looked
    into the REDEFINES clause? The 66 RENAMES clause has become so rare it's
    the mark of either ancient code or 'Look, Ma, I'm a programmer!' code.

    DD
    --- Synchronet 3.21a-Linux NewsLink 1.2