version 0.73.0
This commit is contained in:
@@ -0,0 +1,16 @@
|
||||
|
||||
* 01 W01-COMPUTE-0 PIC 9(8) VALUE 30000.
|
||||
01 W01-COMPUTE PIC X(2) VALUE "**".
|
||||
01 W01-COMPUTE-0 PIC 9(8) VALUE 30000.
|
||||
01 W01-COMPUTE-1 PIC Z(5),Z(3).
|
||||
01 W01-COMPUTE-2 PIC *Z,ZZZ,ZZZ.
|
||||
01 W01-COMPUTE-3 PIC Z(3)Z(5),99.
|
||||
01 W01-COMPUTE-4 PIC 9(6)V99.
|
||||
01 W01-COMPUTE-5 PIC 9(5).
|
||||
01 W01-COMPUTE-6 PIC X(10) VALUE 'W01-1XXX'.
|
||||
|
||||
COPY 'TEST02A.cpy' REPLACING
|
||||
W01-COMPUTE-A0 BY W01-COMPUTE-A00
|
||||
==9(8)== BY ==9(09)== .
|
||||
|
||||
|
||||
@@ -0,0 +1,11 @@
|
||||
|
||||
* 01 W01-COMPUTE-A0 PIC 9(8) VALUE 30000.
|
||||
01 W01-COMPUTE-A PIC X(2) VALUE "**".
|
||||
01 W01-COMPUTE-A0 PIC 9(8) VALUE 30000.
|
||||
01 W01-COMPUTE-A1 PIC Z(5),Z(3).
|
||||
01 W01-COMPUTE-A2 PIC *Z,ZZZ,ZZZ.
|
||||
01 W01-COMPUTE-A3 PIC Z(3)Z(5),99.
|
||||
01 W01-COMPUTE-A4 PIC 9(5)V99.
|
||||
|
||||
COPY 'TEST02B.cpy'.
|
||||
|
||||
@@ -0,0 +1,11 @@
|
||||
|
||||
* 01 W01-COMPUTE-B0 PIC 9(8) VALUE 30000.
|
||||
01 W01-COMPUTE-B PIC X(2) VALUE "**".
|
||||
01 W01-COMPUTE-B0 PIC 9(8) VALUE 30000.
|
||||
01 W01-COMPUTE-B1 PIC Z(5),Z(3).
|
||||
01 W01-COMPUTE-B2 PIC *Z,ZZZ,ZZZ.
|
||||
01 W01-COMPUTE-B3 PIC Z(3)Z(5).99.
|
||||
01 W01-COMPUTE-B4 PIC 9(5)V99.
|
||||
|
||||
|
||||
COPY 'TEST02C.cpy'.
|
||||
@@ -0,0 +1,9 @@
|
||||
|
||||
* 01 W01-COMPUTE-C0 PIC 9(8) VALUE 30000.
|
||||
01 W01-COMPUTE-C PIC X(2) VALUE "**".
|
||||
01 W01-COMPUTE-C0 PIC 9(8) VALUE 30000.
|
||||
01 W01-COMPUTE-C1 PIC Z(5),Z(3).
|
||||
01 W01-COMPUTE-C2 PIC *Z,ZZZ,ZZZ.
|
||||
01 W01-COMPUTE-C3 PIC Z(3)Z(5).99.
|
||||
01 W01-COMPUTE-C4 PIC 9(5)V99.
|
||||
|
||||
@@ -0,0 +1,9 @@
|
||||
|
||||
* 01 W01-COMPUTE-D0 PIC 9(8) VALUE 30000.
|
||||
01 W01-COMPUTE-D PIC X(2) VALUE "**".
|
||||
01 W01-COMPUTE-D0 PIC 9(8) VALUE 30000.
|
||||
01 W01-COMPUTE-D1 PIC Z(5),Z(3).
|
||||
01 W01-COMPUTE-D2 PIC *Z,ZZZ,ZZZ.
|
||||
01 W01-COMPUTE-D3 PIC Z(3)Z(5).99.
|
||||
01 W01-COMPUTE-D4 PIC 9(5)V99.
|
||||
|
||||
@@ -0,0 +1,16 @@
|
||||
000010 fTEST02_
|
||||
000020* 01 W01-COMPUTE-0 PIC 9(8) VALUE 30000. fTEST02_
|
||||
000030 01 W01-COMPUTE PIC X(2) VALUE "**". fTEST02_
|
||||
000040 01 W01-COMPUTE-0 PIC 9(8) VALUE 30000. fTEST02_
|
||||
000050 01 W01-COMPUTE-1 PIC Z(5),Z(3). fTEST02_
|
||||
000060 01 W01-COMPUTE-2 PIC *Z,ZZZ,ZZZ. fTEST02_
|
||||
000070 01 W01-COMPUTE-3 PIC Z(3)Z(5),99. fTEST02_
|
||||
000080 01 W01-COMPUTE-4 PIC 9(6)V99. fTEST02_
|
||||
000090 01 W01-COMPUTE-5 PIC 9(5). fTEST02_
|
||||
000100 01 W01-COMPUTE-6 PIC X(10) VALUE 'W01-1XXX'. fTEST02_
|
||||
000110 fTEST02_
|
||||
000120 COPY 'fTEST02A.cpy' REPLACING fTEST02_
|
||||
000130 W01-COMPUTE-A0 BY W01-COMPUTE-A00 fTEST02_
|
||||
000140 ==9(8)== BY ==9(09)== . fTEST02_
|
||||
000150 fTEST02_
|
||||
000160 fTEST02_
|
||||
@@ -0,0 +1,11 @@
|
||||
000010 fTEST02A
|
||||
000020* 01 W01-COMPUTE-A0 PIC 9(8) VALUE 30000. fTEST02A
|
||||
000030 01 W01-COMPUTE-A PIC X(2) VALUE "**". fTEST02A
|
||||
000040 01 W01-COMPUTE-A0 PIC 9(8) VALUE 30000. fTEST02A
|
||||
000050 01 W01-COMPUTE-A1 PIC Z(5),Z(3). fTEST02A
|
||||
000060 01 W01-COMPUTE-A2 PIC *Z,ZZZ,ZZZ. fTEST02A
|
||||
000070 01 W01-COMPUTE-A3 PIC Z(3)Z(5),99. fTEST02A
|
||||
000080 01 W01-COMPUTE-A4 PIC 9(5)V99. fTEST02A
|
||||
000090 fTEST02A
|
||||
000100 COPY 'fTEST02B.cpy'. fTEST02A
|
||||
000110 fTEST02A
|
||||
@@ -0,0 +1,11 @@
|
||||
000010 fTEST02B
|
||||
000020* 01 W01-COMPUTE-B0 PIC 9(8) VALUE 30000. fTEST02B
|
||||
000030 01 W01-COMPUTE-B PIC X(2) VALUE "**". fTEST02B
|
||||
000040 01 W01-COMPUTE-B0 PIC 9(8) VALUE 30000. fTEST02B
|
||||
000050 01 W01-COMPUTE-B1 PIC Z(5),Z(3). fTEST02B
|
||||
000060 01 W01-COMPUTE-B2 PIC *Z,ZZZ,ZZZ. fTEST02B
|
||||
000070 01 W01-COMPUTE-B3 PIC Z(3)Z(5).99. fTEST02B
|
||||
000080 01 W01-COMPUTE-B4 PIC 9(5)V99. fTEST02B
|
||||
000090 fTEST02B
|
||||
000100 fTEST02B
|
||||
000110 COPY 'fTEST02C.cpy'. fTEST02B
|
||||
@@ -0,0 +1,9 @@
|
||||
000010 fTEST02C
|
||||
000020* 01 W01-COMPUTE-C0 PIC 9(8) VALUE 30000. fTEST02C
|
||||
000030 01 W01-COMPUTE-C PIC X(2) VALUE "**". fTEST02C
|
||||
000040 01 W01-COMPUTE-C0 PIC 9(8) VALUE 30000. fTEST02C
|
||||
000050 01 W01-COMPUTE-C1 PIC Z(5),Z(3). fTEST02C
|
||||
000060 01 W01-COMPUTE-C2 PIC *Z,ZZZ,ZZZ. fTEST02C
|
||||
000070 01 W01-COMPUTE-C3 PIC Z(3)Z(5).99. fTEST02C
|
||||
000080 01 W01-COMPUTE-C4 PIC 9(5)V99. fTEST02C
|
||||
000090 fTEST02C
|
||||
@@ -0,0 +1,9 @@
|
||||
000010 fTEST02D
|
||||
000020* 01 W01-COMPUTE-D0 PIC 9(8) VALUE 30000. fTEST02D
|
||||
000030 01 W01-COMPUTE-D PIC X(2) VALUE "**". fTEST02D
|
||||
000040 01 W01-COMPUTE-D0 PIC 9(8) VALUE 30000. fTEST02D
|
||||
000050 01 W01-COMPUTE-D1 PIC Z(5),Z(3). fTEST02D
|
||||
000060 01 W01-COMPUTE-D2 PIC *Z,ZZZ,ZZZ. fTEST02D
|
||||
000070 01 W01-COMPUTE-D3 PIC Z(3)Z(5).99. fTEST02D
|
||||
000080 01 W01-COMPUTE-D4 PIC 9(5)V99. fTEST02D
|
||||
000090 fTEST02D
|
||||
@@ -0,0 +1,9 @@
|
||||
000010 fTEST02E
|
||||
000020* 01 W01-COMPUTE-D0 PIC 9(8) VALUE 30000. fTEST02E
|
||||
000030 01 W01-COMPUTE-D PIC X(2) VALUE "**". fTEST02E
|
||||
000040 01 W01-COMPUTE-D0 PIC 9(8) VALUE 30000. fTEST02E
|
||||
000050 01 W01-COMPUTE-D1 PIC Z(5),Z(3). fTEST02E
|
||||
000060 01 W01-COMPUTE-D2 PIC *Z,ZZZ,ZZZ. fTEST02E
|
||||
000070 01 W01-COMPUTE-D3 PIC Z(3)Z(5).99. fTEST02E
|
||||
000080 01 W01-COMPUTE-D4 PIC 9(5)V99. fTEST02E
|
||||
000090 fTEST02E
|
||||
Reference in New Issue
Block a user