Remove INITIALIZE statements for ANSI-74 conformance.
This commit is contained in:
parent
7479e181e9
commit
09ad07405a
|
@ -25,7 +25,9 @@
|
||||||
88 REST-PARAM VALUE ":".
|
88 REST-PARAM VALUE ":".
|
||||||
|
|
||||||
PROCEDURE DIVISION USING BUFFER, IRC-MESSAGE.
|
PROCEDURE DIVISION USING BUFFER, IRC-MESSAGE.
|
||||||
INITIALIZE IRC-MESSAGE, WORK, MSG-POINTER.
|
MOVE SPACES TO IRC-MESSAGE.
|
||||||
|
MOVE SPACES TO WORK.
|
||||||
|
MOVE 1 TO MSG-POINTER.
|
||||||
IF HAS-PREFIX THEN
|
IF HAS-PREFIX THEN
|
||||||
PERFORM WITH-PREFIX
|
PERFORM WITH-PREFIX
|
||||||
ELSE
|
ELSE
|
||||||
|
|
|
@ -37,17 +37,17 @@
|
||||||
DISPLAY "CONFIGURATION ENTRIES:"
|
DISPLAY "CONFIGURATION ENTRIES:"
|
||||||
OPEN INPUT CONFIG.
|
OPEN INPUT CONFIG.
|
||||||
PERFORM PRINT-CONFIG-ENTRY UNTIL DONE.
|
PERFORM PRINT-CONFIG-ENTRY UNTIL DONE.
|
||||||
INITIALIZE STATE.
|
MOVE 0 TO STATE.
|
||||||
CLOSE CONFIG.
|
CLOSE CONFIG.
|
||||||
DISPLAY "USER ENTRIES:"
|
DISPLAY "USER ENTRIES:"
|
||||||
OPEN INPUT USERS.
|
OPEN INPUT USERS.
|
||||||
PERFORM PRINT-USER-ENTRY UNTIL DONE.
|
PERFORM PRINT-USER-ENTRY UNTIL DONE.
|
||||||
INITIALIZE STATE.
|
MOVE 0 TO STATE.
|
||||||
CLOSE USERS.
|
CLOSE USERS.
|
||||||
DISPLAY "CHANNEL ENTRIES:"
|
DISPLAY "CHANNEL ENTRIES:"
|
||||||
OPEN INPUT CHANNELS.
|
OPEN INPUT CHANNELS.
|
||||||
PERFORM PRINT-CHANNEL-ENTRY UNTIL DONE.
|
PERFORM PRINT-CHANNEL-ENTRY UNTIL DONE.
|
||||||
INITIALIZE STATE.
|
MOVE 0 TO STATE.
|
||||||
CLOSE CHANNELS.
|
CLOSE CHANNELS.
|
||||||
EXIT PROGRAM.
|
EXIT PROGRAM.
|
||||||
|
|
||||||
|
|
|
@ -39,17 +39,17 @@
|
||||||
DISPLAY "WRITING CONFIGURATION ENTRIES:".
|
DISPLAY "WRITING CONFIGURATION ENTRIES:".
|
||||||
OPEN OUTPUT CONFIG.
|
OPEN OUTPUT CONFIG.
|
||||||
PERFORM WRITE-CONFIG-ENTRY UNTIL DONE.
|
PERFORM WRITE-CONFIG-ENTRY UNTIL DONE.
|
||||||
INITIALIZE STATE.
|
MOVE 0 TO STATE.
|
||||||
CLOSE CONFIG.
|
CLOSE CONFIG.
|
||||||
DISPLAY "WRITING USER ENTRIES:"
|
DISPLAY "WRITING USER ENTRIES:"
|
||||||
OPEN OUTPUT USERS.
|
OPEN OUTPUT USERS.
|
||||||
PERFORM WRITE-USER-ENTRY UNTIL DONE.
|
PERFORM WRITE-USER-ENTRY UNTIL DONE.
|
||||||
INITIALIZE STATE.
|
MOVE 0 TO STATE.
|
||||||
CLOSE USERS.
|
CLOSE USERS.
|
||||||
OPEN OUTPUT CHANNELS.
|
OPEN OUTPUT CHANNELS.
|
||||||
DISPLAY "WRITING CHANNEL AUTOJOINS:"
|
DISPLAY "WRITING CHANNEL AUTOJOINS:"
|
||||||
PERFORM WRITE-CHANNEL-ENTRY UNTIL DONE.
|
PERFORM WRITE-CHANNEL-ENTRY UNTIL DONE.
|
||||||
INITIALIZE STATE.
|
MOVE 0 TO STATE.
|
||||||
CLOSE CHANNELS.
|
CLOSE CHANNELS.
|
||||||
CALL "PRINT-CONFIG".
|
CALL "PRINT-CONFIG".
|
||||||
STOP RUN.
|
STOP RUN.
|
||||||
|
|
20
WOPO.COB
20
WOPO.COB
|
@ -79,7 +79,7 @@
|
||||||
READ CONFIG RECORD
|
READ CONFIG RECORD
|
||||||
INVALID KEY MOVE SPACES TO CONFIG-VALUE.
|
INVALID KEY MOVE SPACES TO CONFIG-VALUE.
|
||||||
IF CONFIG-VALUE IS NOT EQUAL TO SPACES THEN
|
IF CONFIG-VALUE IS NOT EQUAL TO SPACES THEN
|
||||||
INITIALIZE MSG-BODY
|
MOVE SPACES TO MSG-BODY
|
||||||
MOVE 1 TO MSG-LENGTH
|
MOVE 1 TO MSG-LENGTH
|
||||||
STRING "PASS " DELIMITED BY SIZE,
|
STRING "PASS " DELIMITED BY SIZE,
|
||||||
CONFIG-VALUE DELIMITED BY SPACE,
|
CONFIG-VALUE DELIMITED BY SPACE,
|
||||||
|
@ -90,7 +90,7 @@
|
||||||
PERFORM READ-CONFIG-ENTRY.
|
PERFORM READ-CONFIG-ENTRY.
|
||||||
MOVE CONFIG-VALUE TO WOPO-NICK.
|
MOVE CONFIG-VALUE TO WOPO-NICK.
|
||||||
MOVE 1 TO MSG-LENGTH.
|
MOVE 1 TO MSG-LENGTH.
|
||||||
INITIALIZE MSG-BODY.
|
MOVE SPACES TO MSG-BODY.
|
||||||
STRING "NICK"
|
STRING "NICK"
|
||||||
INTO MSG-BODY
|
INTO MSG-BODY
|
||||||
WITH POINTER MSG-LENGTH.
|
WITH POINTER MSG-LENGTH.
|
||||||
|
@ -100,7 +100,7 @@
|
||||||
WITH POINTER MSG-LENGTH.
|
WITH POINTER MSG-LENGTH.
|
||||||
PERFORM SEND-LINE.
|
PERFORM SEND-LINE.
|
||||||
MOVE 1 TO MSG-LENGTH.
|
MOVE 1 TO MSG-LENGTH.
|
||||||
INITIALIZE MSG-BODY.
|
MOVE SPACES TO MSG-BODY.
|
||||||
STRING "USER"
|
STRING "USER"
|
||||||
INTO MSG-BODY
|
INTO MSG-BODY
|
||||||
WITH POINTER MSG-LENGTH.
|
WITH POINTER MSG-LENGTH.
|
||||||
|
@ -151,7 +151,7 @@
|
||||||
GO TO DIE.
|
GO TO DIE.
|
||||||
|
|
||||||
RECEIVE-LINE.
|
RECEIVE-LINE.
|
||||||
INITIALIZE MSG-BODY.
|
MOVE SPACES TO MSG-BODY.
|
||||||
CALL "CHANNEL-RECV".
|
CALL "CHANNEL-RECV".
|
||||||
IF NOT SUCCESS THEN GO TO DIE.
|
IF NOT SUCCESS THEN GO TO DIE.
|
||||||
CALL "IRC-MSG" USING BUFFER, IRC-MESSAGE.
|
CALL "IRC-MSG" USING BUFFER, IRC-MESSAGE.
|
||||||
|
@ -173,7 +173,7 @@
|
||||||
READ USERS RECORD
|
READ USERS RECORD
|
||||||
INVALID KEY MOVE 0 TO USER-LEVEL.
|
INVALID KEY MOVE 0 TO USER-LEVEL.
|
||||||
IF USER-LEVEL IS GREATER THAN 0 THEN
|
IF USER-LEVEL IS GREATER THAN 0 THEN
|
||||||
INITIALIZE MSG-BODY
|
MOVE SPACES TO MSG-BODY.
|
||||||
MOVE 1 TO MSG-LENGTH
|
MOVE 1 TO MSG-LENGTH
|
||||||
STRING "PRIVMSG NICKSERV :ACC"
|
STRING "PRIVMSG NICKSERV :ACC"
|
||||||
INTO MSG-BODY
|
INTO MSG-BODY
|
||||||
|
@ -195,7 +195,7 @@
|
||||||
IF PARAM(3) IS NOT EQUAL TO "3" THEN
|
IF PARAM(3) IS NOT EQUAL TO "3" THEN
|
||||||
MOVE 0 TO USER-LEVEL
|
MOVE 0 TO USER-LEVEL
|
||||||
ELSE NEXT SENTENCE
|
ELSE NEXT SENTENCE
|
||||||
ELSE INITIALIZE COMMAND.
|
ELSE MOVE SPACES TO COMMAND.
|
||||||
|
|
||||||
MAIN.
|
MAIN.
|
||||||
PERFORM RECEIVE-LINE.
|
PERFORM RECEIVE-LINE.
|
||||||
|
@ -209,7 +209,7 @@
|
||||||
|
|
||||||
*THE REPLY FUNCTIONS NEED NICK, COMMAND, AND TARGET PRESERVED.
|
*THE REPLY FUNCTIONS NEED NICK, COMMAND, AND TARGET PRESERVED.
|
||||||
BEGIN-REPLY.
|
BEGIN-REPLY.
|
||||||
INITIALIZE MSG-BODY.
|
MOVE SPACES TO MSG-BODY.
|
||||||
MOVE 1 TO MSG-LENGTH.
|
MOVE 1 TO MSG-LENGTH.
|
||||||
STRING COMMAND
|
STRING COMMAND
|
||||||
INTO MSG-BODY
|
INTO MSG-BODY
|
||||||
|
@ -301,7 +301,7 @@
|
||||||
MOVE TARGET TO REG(4).
|
MOVE TARGET TO REG(4).
|
||||||
PERFORM VALIDATE-USER.
|
PERFORM VALIDATE-USER.
|
||||||
IF USER-LEVEL IS GREATER THAN 80 THEN
|
IF USER-LEVEL IS GREATER THAN 80 THEN
|
||||||
INITIALIZE MSG-BODY
|
MOVE SPACES TO MSG-BODY
|
||||||
MOVE 1 TO MSG-LENGTH
|
MOVE 1 TO MSG-LENGTH
|
||||||
STRING "JOIN ", REG(1)
|
STRING "JOIN ", REG(1)
|
||||||
INTO MSG-BODY
|
INTO MSG-BODY
|
||||||
|
@ -328,7 +328,7 @@
|
||||||
MOVE REG(3) TO COMMAND
|
MOVE REG(3) TO COMMAND
|
||||||
MOVE REG(4) TO TARGET
|
MOVE REG(4) TO TARGET
|
||||||
PERFORM REPLY-ACK
|
PERFORM REPLY-ACK
|
||||||
INITIALIZE MSG-BODY
|
MOVE SPACES TO MSG-BODY
|
||||||
MOVE 1 TO MSG-LENGTH
|
MOVE 1 TO MSG-LENGTH
|
||||||
STRING "PART ", REG(1)
|
STRING "PART ", REG(1)
|
||||||
INTO MSG-BODY
|
INTO MSG-BODY
|
||||||
|
@ -350,7 +350,7 @@
|
||||||
MOVE REG(2) TO COMMAND
|
MOVE REG(2) TO COMMAND
|
||||||
MOVE REG(3) TO TARGET
|
MOVE REG(3) TO TARGET
|
||||||
PERFORM REPLY-ACK
|
PERFORM REPLY-ACK
|
||||||
INITIALIZE MSG-BODY
|
MOVE SPACES TO MSG-BODY
|
||||||
MOVE 1 TO MSG-LENGTH
|
MOVE 1 TO MSG-LENGTH
|
||||||
STRING "QUIT :", CONFIG-VALUE
|
STRING "QUIT :", CONFIG-VALUE
|
||||||
INTO MSG-BODY
|
INTO MSG-BODY
|
||||||
|
|
Loading…
Reference in New Issue