Remove features/words not supported by MVS COBOL.
This commit is contained in:
parent
7d74d7e877
commit
c2c5d0b1d3
|
@ -233,7 +233,7 @@
|
||||||
ELSE IF BF-END THEN
|
ELSE IF BF-END THEN
|
||||||
D DISPLAY "FOUND END."
|
D DISPLAY "FOUND END."
|
||||||
SUBTRACT 1 FROM LOOP-WORK
|
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.
|
MOVE 99 TO LOOP-STATE.
|
||||||
D DISPLAY "FIND-END.", IP, ";", CURRENT-INSTRUCTION,
|
D DISPLAY "FIND-END.", IP, ";", CURRENT-INSTRUCTION,
|
||||||
D "LD", LOOP-DEPTH, "LW", LOOP-WORK.
|
D "LD", LOOP-DEPTH, "LW", LOOP-WORK.
|
||||||
|
@ -255,7 +255,7 @@
|
||||||
ELSE IF BF-BEGIN THEN
|
ELSE IF BF-BEGIN THEN
|
||||||
D DISPLAY "FOUND BEGIN."
|
D DISPLAY "FOUND BEGIN."
|
||||||
SUBTRACT 1 FROM LOOP-WORK
|
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
|
ADD 1 TO IP
|
||||||
MOVE 99 TO LOOP-STATE.
|
MOVE 99 TO LOOP-STATE.
|
||||||
D DISPLAY "FIND-BEGIN.", IP, ";", CURRENT-INSTRUCTION,
|
D DISPLAY "FIND-BEGIN.", IP, ";", CURRENT-INSTRUCTION,
|
||||||
|
|
|
@ -95,19 +95,19 @@
|
||||||
|
|
||||||
WRITE-USER-ENTRY.
|
WRITE-USER-ENTRY.
|
||||||
ACCEPT USER-RECORD.
|
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
|
THEN MOVE 99 TO STATE
|
||||||
ELSE WRITE USER-RECORD.
|
ELSE WRITE USER-RECORD.
|
||||||
|
|
||||||
WRITE-CHANNEL-ENTRY.
|
WRITE-CHANNEL-ENTRY.
|
||||||
ACCEPT CHANNEL-NAME.
|
ACCEPT CHANNEL-NAME.
|
||||||
IF CHANNEL-NAME EQUALS SPACES
|
IF CHANNEL-NAME IS EQUAL TO SPACES
|
||||||
THEN MOVE 99 TO STATE
|
THEN MOVE 99 TO STATE
|
||||||
ELSE WRITE CHANNEL-RECORD.
|
ELSE WRITE CHANNEL-RECORD.
|
||||||
|
|
||||||
WRITE-PROGRAM.
|
WRITE-PROGRAM.
|
||||||
ACCEPT NAME OF INDEX-ENTRY.
|
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."
|
D DISPLAY "DONE WRITING PROGRAMS."
|
||||||
MOVE 99 TO STATE
|
MOVE 99 TO STATE
|
||||||
ELSE
|
ELSE
|
||||||
|
@ -121,7 +121,7 @@
|
||||||
|
|
||||||
WRITE-PROGRAM-RECORD.
|
WRITE-PROGRAM-RECORD.
|
||||||
ACCEPT INSTRUCTION OF CURRENT-INSTRUCTION.
|
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 DISPLAY "DONE WRITING PROGRAM ",
|
||||||
D NAME OF INDEX-ENTRY, "."
|
D NAME OF INDEX-ENTRY, "."
|
||||||
MOVE 0 TO NEXT-IP OF PROGRAM-RECORD
|
MOVE 0 TO NEXT-IP OF PROGRAM-RECORD
|
||||||
|
|
17
WOPO.COB
17
WOPO.COB
|
@ -2,11 +2,6 @@
|
||||||
PROGRAM-ID. "WOPO".
|
PROGRAM-ID. "WOPO".
|
||||||
|
|
||||||
ENVIRONMENT DIVISION.
|
ENVIRONMENT DIVISION.
|
||||||
CONFIGURATION SECTION.
|
|
||||||
SPECIAL-NAMES.
|
|
||||||
SWITCH-1 IS SHOW-ESCAPES
|
|
||||||
ON STATUS IS SHOULD-SHOW-ESCAPES.
|
|
||||||
|
|
||||||
INPUT-OUTPUT SECTION.
|
INPUT-OUTPUT SECTION.
|
||||||
FILE-CONTROL.
|
FILE-CONTROL.
|
||||||
SELECT CONFIG
|
SELECT CONFIG
|
||||||
|
@ -114,6 +109,8 @@
|
||||||
03 NUM-PARAMS PIC 9.
|
03 NUM-PARAMS PIC 9.
|
||||||
03 WOPO-COUNTER PIC 9.
|
03 WOPO-COUNTER PIC 9.
|
||||||
D 03 DEBUG-PTR PIC 9.
|
D 03 DEBUG-PTR PIC 9.
|
||||||
|
03 SHOW-ESCAPES PIC 9.
|
||||||
|
88 SHOULD-SHOW-ESCAPES VALUE 1.
|
||||||
|
|
||||||
01 USERS-HEADER.
|
01 USERS-HEADER.
|
||||||
03 FILLER PIC X(40) VALUE "USER NAME.".
|
03 FILLER PIC X(40) VALUE "USER NAME.".
|
||||||
|
@ -339,7 +336,7 @@
|
||||||
WAIT-FOR-COMMAND.
|
WAIT-FOR-COMMAND.
|
||||||
MOVE SPACES TO COMMAND OF IRC-STATE.
|
MOVE SPACES TO COMMAND OF IRC-STATE.
|
||||||
PERFORM RECEIVE-LINE UNTIL
|
PERFORM RECEIVE-LINE UNTIL
|
||||||
COMMAND OF IRC-STATE EQUALS WAITING-COMMAND.
|
COMMAND OF IRC-STATE IS EQUAL TO WAITING-COMMAND.
|
||||||
|
|
||||||
VALIDATE-USER.
|
VALIDATE-USER.
|
||||||
D DISPLAY "ENTERED VALIDATE-USER".
|
D DISPLAY "ENTERED VALIDATE-USER".
|
||||||
|
@ -972,13 +969,13 @@
|
||||||
MOVE 1 TO PTR(SRC)
|
MOVE 1 TO PTR(SRC)
|
||||||
PERFORM GET-PARAM
|
PERFORM GET-PARAM
|
||||||
IF R(1) IS EQUAL TO "ON" THEN
|
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
|
ELSE IF R(1) IS EQUAL TO "OFF" THEN
|
||||||
SET SHOW-ESCAPES TO OFF
|
MOVE 0 TO SHOW-ESCAPES
|
||||||
ELSE NEXT SENTENCE
|
ELSE NEXT SENTENCE
|
||||||
ELSE IF SHOULD-SHOW-ESCAPES THEN
|
ELSE IF SHOULD-SHOW-ESCAPES THEN
|
||||||
SET SHOW-ESCAPES TO OFF
|
MOVE 0 TO SHOW-ESCAPES
|
||||||
ELSE SET SHOW-ESCAPES TO ON
|
ELSE MOVE 1 TO SHOW-ESCAPES
|
||||||
ELSE
|
ELSE
|
||||||
PERFORM REPLY-NAK.
|
PERFORM REPLY-NAK.
|
||||||
IF SHOULD-SHOW-ESCAPES THEN
|
IF SHOULD-SHOW-ESCAPES THEN
|
||||||
|
|
Loading…
Reference in New Issue