Commit 9b997e71 authored by rdubner's avatar rdubner
Browse files

test002 no longer has EXTERNAL variables; minor fix to strip-diff

parent 715ccb1d
2020-11-21 Bob Dubner <rdubner@symas.com>
* Released Version 4.6
* Changes for proper operation on Solaris/SPARC, handling the big-endian architecture
and 64-bit addresses that look like negative numbers.
2020-11-18 Bob Dubner <rdubner@symas.com>
* Released Version 4.5
......
......@@ -71,7 +71,7 @@ def main() :
## In general, when a process ends, it puts up a message like this:
## [Inferior 1 (process 14969) exited normally]
## Let's replace the process number with "99999"
p = re.compile( '(^.*process )([0-9]+[ ]+)(.*$)' )
p = re.compile( '(^.*process )([0-9]+[ ]*)(.*$)' )
m = p.match(line)
if m :
print(m.group(1) + "99999" + m.group(3))
......
......@@ -50,7 +50,7 @@ WORKING-STORAGE SECTION.
02 WS-MIDDLE-INITIAL PIC X(1) VALUE '"'.
02 FILLER PIC A(1) VALUE SPACE.
02 WS-LASTNAME PIC A(10) VALUE "Lowden".
01 WS-BOB EXTERNAL.
01 WS-BOB GLOBAL.
02 WS-FIRSTNAME PIC A(10) .
02 WS-MIDDLE-INITIAL PIC A(1) .
02 FILLER PIC A(1) .
......@@ -137,13 +137,6 @@ PROCEDURE DIVISION USING A_BINARY_NUMBER.
IDENTIFICATION DIVISION.
PROGRAM-ID. BOB.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 WS-BOB EXTERNAL.
02 WS-FIRSTNAME PIC A(10) .
02 WS-MIDDLE-INITIAL PIC A(1) .
02 FILLER PIC A(1) .
02 WS-LASTNAME PIC A(10) .
PROCEDURE DIVISION.
DISPLAY "entering: bob"
DISPLAY WS-BOB.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment