uplime/WOPO
uplime
/
WOPO
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Remove features/words not supported by MVS COBOL.

This commit is contained in:
Quinn "heddwch" Evans 2018-09-10 14:42:03 -06:00
parent 7d74d7e877
commit c2c5d0b1d3
3 changed files with 13 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
BF-RUN.COB
View File

@ -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,

8
WOPO-CNF.COB
View File

@ -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

17
WOPO.COB
View File

@ -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