From c2c5d0b1d37cf1a2120c6d3ad32158419b3f4d1a Mon Sep 17 00:00:00 2001 From: "Quinn \"heddwch\" Evans" Date: Mon, 10 Sep 2018 14:42:03 -0600 Subject: [PATCH] Remove features/words not supported by MVS COBOL. --- BF-RUN.COB | 4 ++-- WOPO-CNF.COB | 8 ++++---- WOPO.COB | 17 +++++++---------- 3 files changed, 13 insertions(+), 16 deletions(-) diff --git a/BF-RUN.COB b/BF-RUN.COB index 71fe5e5..21e0bf1 100644 --- a/BF-RUN.COB +++ b/BF-RUN.COB @@ -233,7 +233,7 @@ ELSE IF BF-END THEN D DISPLAY "FOUND END." SUBTRACT 1 FROM LOOP-WORK - IF LOOP-WORK EQUALS LOOP-DEPTH THEN + IF LOOP-WORK IS EQUAL TO LOOP-DEPTH THEN MOVE 99 TO LOOP-STATE. D DISPLAY "FIND-END.", IP, ";", CURRENT-INSTRUCTION, D "LD", LOOP-DEPTH, "LW", LOOP-WORK. @@ -255,7 +255,7 @@ ELSE IF BF-BEGIN THEN D DISPLAY "FOUND BEGIN." SUBTRACT 1 FROM LOOP-WORK - IF LOOP-WORK EQUALS LOOP-DEPTH THEN + IF LOOP-WORK IS EQUAL TO LOOP-DEPTH THEN ADD 1 TO IP MOVE 99 TO LOOP-STATE. D DISPLAY "FIND-BEGIN.", IP, ";", CURRENT-INSTRUCTION, diff --git a/WOPO-CNF.COB b/WOPO-CNF.COB index 65ca2e3..f01c455 100644 --- a/WOPO-CNF.COB +++ b/WOPO-CNF.COB @@ -95,19 +95,19 @@ WRITE-USER-ENTRY. ACCEPT USER-RECORD. - IF USER-NAME EQUALS SPACES OR USER-LEVEL EQUALS 0 + IF USER-NAME IS EQUAL TO SPACES OR USER-LEVEL IS EQUAL TO 0 THEN MOVE 99 TO STATE ELSE WRITE USER-RECORD. WRITE-CHANNEL-ENTRY. ACCEPT CHANNEL-NAME. - IF CHANNEL-NAME EQUALS SPACES + IF CHANNEL-NAME IS EQUAL TO SPACES THEN MOVE 99 TO STATE ELSE WRITE CHANNEL-RECORD. WRITE-PROGRAM. ACCEPT NAME OF INDEX-ENTRY. - IF NAME OF INDEX-ENTRY EQUALS SPACES THEN + IF NAME OF INDEX-ENTRY IS EQUAL TO SPACES THEN D DISPLAY "DONE WRITING PROGRAMS." MOVE 99 TO STATE ELSE @@ -121,7 +121,7 @@ WRITE-PROGRAM-RECORD. ACCEPT INSTRUCTION OF CURRENT-INSTRUCTION. - IF INSTRUCTION OF CURRENT-INSTRUCTION EQUALS SPACES THEN + IF INSTRUCTION OF CURRENT-INSTRUCTION IS EQUAL TO SPACES THEN D DISPLAY "DONE WRITING PROGRAM ", D NAME OF INDEX-ENTRY, "." MOVE 0 TO NEXT-IP OF PROGRAM-RECORD diff --git a/WOPO.COB b/WOPO.COB index 98b96a5..b7e373d 100644 --- a/WOPO.COB +++ b/WOPO.COB @@ -2,11 +2,6 @@ PROGRAM-ID. "WOPO". ENVIRONMENT DIVISION. - CONFIGURATION SECTION. - SPECIAL-NAMES. - SWITCH-1 IS SHOW-ESCAPES - ON STATUS IS SHOULD-SHOW-ESCAPES. - INPUT-OUTPUT SECTION. FILE-CONTROL. SELECT CONFIG @@ -114,6 +109,8 @@ 03 NUM-PARAMS PIC 9. 03 WOPO-COUNTER PIC 9. D 03 DEBUG-PTR PIC 9. + 03 SHOW-ESCAPES PIC 9. + 88 SHOULD-SHOW-ESCAPES VALUE 1. 01 USERS-HEADER. 03 FILLER PIC X(40) VALUE "USER NAME.". @@ -339,7 +336,7 @@ WAIT-FOR-COMMAND. MOVE SPACES TO COMMAND OF IRC-STATE. PERFORM RECEIVE-LINE UNTIL - COMMAND OF IRC-STATE EQUALS WAITING-COMMAND. + COMMAND OF IRC-STATE IS EQUAL TO WAITING-COMMAND. VALIDATE-USER. D DISPLAY "ENTERED VALIDATE-USER". @@ -972,13 +969,13 @@ MOVE 1 TO PTR(SRC) PERFORM GET-PARAM IF R(1) IS EQUAL TO "ON" THEN - SET SHOW-ESCAPES TO ON + MOVE 1 TO SHOW-ESCAPES ELSE IF R(1) IS EQUAL TO "OFF" THEN - SET SHOW-ESCAPES TO OFF + MOVE 0 TO SHOW-ESCAPES ELSE NEXT SENTENCE ELSE IF SHOULD-SHOW-ESCAPES THEN - SET SHOW-ESCAPES TO OFF - ELSE SET SHOW-ESCAPES TO ON + MOVE 0 TO SHOW-ESCAPES + ELSE MOVE 1 TO SHOW-ESCAPES ELSE PERFORM REPLY-NAK. IF SHOULD-SHOW-ESCAPES THEN