From 09ad07405ae74e375713c7e9471378057ae5a91b Mon Sep 17 00:00:00 2001 From: Quinn Evans Date: Sun, 27 Sep 2015 22:07:06 -0600 Subject: [PATCH] Remove INITIALIZE statements for ANSI-74 conformance. --- IRC-MSG.COB | 4 +++- PRINTCNF.COB | 6 +++--- WOPO-CNF.COB | 6 +++--- WOPO.COB | 20 ++++++++++---------- 4 files changed, 19 insertions(+), 17 deletions(-) diff --git a/IRC-MSG.COB b/IRC-MSG.COB index b75aa2f..e0d2e2c 100644 --- a/IRC-MSG.COB +++ b/IRC-MSG.COB @@ -25,7 +25,9 @@ 88 REST-PARAM VALUE ":". 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 PERFORM WITH-PREFIX ELSE diff --git a/PRINTCNF.COB b/PRINTCNF.COB index feeac65..aac1a65 100644 --- a/PRINTCNF.COB +++ b/PRINTCNF.COB @@ -37,17 +37,17 @@ DISPLAY "CONFIGURATION ENTRIES:" OPEN INPUT CONFIG. PERFORM PRINT-CONFIG-ENTRY UNTIL DONE. - INITIALIZE STATE. + MOVE 0 TO STATE. CLOSE CONFIG. DISPLAY "USER ENTRIES:" OPEN INPUT USERS. PERFORM PRINT-USER-ENTRY UNTIL DONE. - INITIALIZE STATE. + MOVE 0 TO STATE. CLOSE USERS. DISPLAY "CHANNEL ENTRIES:" OPEN INPUT CHANNELS. PERFORM PRINT-CHANNEL-ENTRY UNTIL DONE. - INITIALIZE STATE. + MOVE 0 TO STATE. CLOSE CHANNELS. EXIT PROGRAM. diff --git a/WOPO-CNF.COB b/WOPO-CNF.COB index 1f25261..d9f5b98 100644 --- a/WOPO-CNF.COB +++ b/WOPO-CNF.COB @@ -39,17 +39,17 @@ DISPLAY "WRITING CONFIGURATION ENTRIES:". OPEN OUTPUT CONFIG. PERFORM WRITE-CONFIG-ENTRY UNTIL DONE. - INITIALIZE STATE. + MOVE 0 TO STATE. CLOSE CONFIG. DISPLAY "WRITING USER ENTRIES:" OPEN OUTPUT USERS. PERFORM WRITE-USER-ENTRY UNTIL DONE. - INITIALIZE STATE. + MOVE 0 TO STATE. CLOSE USERS. OPEN OUTPUT CHANNELS. DISPLAY "WRITING CHANNEL AUTOJOINS:" PERFORM WRITE-CHANNEL-ENTRY UNTIL DONE. - INITIALIZE STATE. + MOVE 0 TO STATE. CLOSE CHANNELS. CALL "PRINT-CONFIG". STOP RUN. diff --git a/WOPO.COB b/WOPO.COB index d9ef3c0..10f425f 100644 --- a/WOPO.COB +++ b/WOPO.COB @@ -79,7 +79,7 @@ READ CONFIG RECORD INVALID KEY MOVE SPACES TO CONFIG-VALUE. IF CONFIG-VALUE IS NOT EQUAL TO SPACES THEN - INITIALIZE MSG-BODY + MOVE SPACES TO MSG-BODY MOVE 1 TO MSG-LENGTH STRING "PASS " DELIMITED BY SIZE, CONFIG-VALUE DELIMITED BY SPACE, @@ -90,7 +90,7 @@ PERFORM READ-CONFIG-ENTRY. MOVE CONFIG-VALUE TO WOPO-NICK. MOVE 1 TO MSG-LENGTH. - INITIALIZE MSG-BODY. + MOVE SPACES TO MSG-BODY. STRING "NICK" INTO MSG-BODY WITH POINTER MSG-LENGTH. @@ -100,7 +100,7 @@ WITH POINTER MSG-LENGTH. PERFORM SEND-LINE. MOVE 1 TO MSG-LENGTH. - INITIALIZE MSG-BODY. + MOVE SPACES TO MSG-BODY. STRING "USER" INTO MSG-BODY WITH POINTER MSG-LENGTH. @@ -151,7 +151,7 @@ GO TO DIE. RECEIVE-LINE. - INITIALIZE MSG-BODY. + MOVE SPACES TO MSG-BODY. CALL "CHANNEL-RECV". IF NOT SUCCESS THEN GO TO DIE. CALL "IRC-MSG" USING BUFFER, IRC-MESSAGE. @@ -173,7 +173,7 @@ READ USERS RECORD INVALID KEY MOVE 0 TO USER-LEVEL. IF USER-LEVEL IS GREATER THAN 0 THEN - INITIALIZE MSG-BODY + MOVE SPACES TO MSG-BODY. MOVE 1 TO MSG-LENGTH STRING "PRIVMSG NICKSERV :ACC" INTO MSG-BODY @@ -195,7 +195,7 @@ IF PARAM(3) IS NOT EQUAL TO "3" THEN MOVE 0 TO USER-LEVEL ELSE NEXT SENTENCE - ELSE INITIALIZE COMMAND. + ELSE MOVE SPACES TO COMMAND. MAIN. PERFORM RECEIVE-LINE. @@ -209,7 +209,7 @@ *THE REPLY FUNCTIONS NEED NICK, COMMAND, AND TARGET PRESERVED. BEGIN-REPLY. - INITIALIZE MSG-BODY. + MOVE SPACES TO MSG-BODY. MOVE 1 TO MSG-LENGTH. STRING COMMAND INTO MSG-BODY @@ -301,7 +301,7 @@ MOVE TARGET TO REG(4). PERFORM VALIDATE-USER. IF USER-LEVEL IS GREATER THAN 80 THEN - INITIALIZE MSG-BODY + MOVE SPACES TO MSG-BODY MOVE 1 TO MSG-LENGTH STRING "JOIN ", REG(1) INTO MSG-BODY @@ -328,7 +328,7 @@ MOVE REG(3) TO COMMAND MOVE REG(4) TO TARGET PERFORM REPLY-ACK - INITIALIZE MSG-BODY + MOVE SPACES TO MSG-BODY MOVE 1 TO MSG-LENGTH STRING "PART ", REG(1) INTO MSG-BODY @@ -350,7 +350,7 @@ MOVE REG(2) TO COMMAND MOVE REG(3) TO TARGET PERFORM REPLY-ACK - INITIALIZE MSG-BODY + MOVE SPACES TO MSG-BODY MOVE 1 TO MSG-LENGTH STRING "QUIT :", CONFIG-VALUE INTO MSG-BODY