Skip to content

register: z/OS calibration probes for C2, C11, D2 (Part of #4702) #6055

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Merged
squid-protocol merged 1 commit into from
Oct 22, 2026
Merged

register: z/OS calibration probes for C2, C11, D2 (Part of #4702) #6055

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
38 changes: 38 additions & 0 deletions docs/language_status/zos_probes.json
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -67,6 +67,44 @@
"R2=0000"
],
"note": "IBM says 0 ** -1 is a size error (the oracle returns 0 and takes no size error). Run only the ON SIZE ERROR forms: a bare zero divisor can abend S0CB."
},
"c2-intermediate-truncation": {
"entries": [
"C2"
],
"compile_options": "ARITH(COMPAT) (IBM default)",
"question": "COMPUTE R = A / B * C with A = 1, B = 3, C = 300: IBM carries the quotient to dmax decimal places (2), so 0.33 * 300 gives 99, not 100",
"source": " IDENTIFICATION DIVISION.\n PROGRAM-ID. P2.\n DATA DIVISION.\n WORKING-STORAGE SECTION.\n 01 A PIC 9V99 VALUE 1.\n 01 B PIC 9 VALUE 3.\n 01 C PIC 999 VALUE 300.\n 01 R PIC 9(4)V99.\n PROCEDURE DIVISION.\n COMPUTE R = A / B * C\n DISPLAY \"R1=\" R\n STOP RUN.\n",
"oracle_expected": [
"R1=009900"
],
"note": "The #4287 shape. Does not probe the 30-digit cap (the register's To-settle bullet is answered on the oracle only)."
},
"c11-nondigit-moved-to-zoned": {
"entries": [
"C11"
],
"compile_options": "ZONEDATA(PFD) (default)",
"question": "MOVE an alphanumeric 1! to PIC 9(2) and test IS NUMERIC: the oracle gives 01 and NUMERIC; IBM documents no result for the non-digit",
"source": " IDENTIFICATION DIVISION.\n PROGRAM-ID. P11.\n DATA DIVISION.\n WORKING-STORAGE SECTION.\n 01 X PIC X(2) VALUE \"1!\".\n 01 N PIC 9(2).\n PROCEDURE DIVISION.\n MOVE X TO N\n DISPLAY \"N=\" N\n IF N IS NUMERIC DISPLAY \"NUM\" ELSE DISPLAY \"NOTNUM\".\n STOP RUN.\n",
"oracle_expected": [
"N=01",
"NUM"
],
"note": "IBM side undefined under PFD. Record what z/OS does (observed), do not expect a match."
},
"d2-hex-literal-charset": {
"entries": [
"D2"
],
"compile_options": "default",
"question": "A PIC X item holding X\"40\": is it SPACE (EBCDIC) or @ (ASCII)",
"source": " IDENTIFICATION DIVISION.\n PROGRAM-ID. P22.\n DATA DIVISION.\n WORKING-STORAGE SECTION.\n 01 H PIC X VALUE X\"40\".\n PROCEDURE DIVISION.\n IF H = SPACE DISPLAY \"H=SPACE\" ELSE DISPLAY \"H=OTHER\".\n IF H = \"@\" DISPLAY \"H=AT\" ELSE DISPLAY \"H=NOTAT\".\n STOP RUN.\n",
"oracle_expected": [
"H=OTHER",
"H=AT"
],
"note": "The oracle is ASCII, so it differs from z/OS by design (D2 declared difference); expected z/OS output is H=SPACE, H=NOTAT."
}
}
}
5 changes: 5 additions & 0 deletions tests/tools/test_zos_probes.py
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -22,6 +22,11 @@ def test_committed_corpus_is_valid():
assert zos_probes.problems(probes, IDS, register.load_zos()) == []


def test_every_part_one_entry_has_a_probe():
covered = {e for p in zos_probes.load().values() for e in p["entries"]}
assert {"C1", "C2", "C3", "C4", "C11", "C13", "C14", "D2"} <= covered


def test_every_probe_is_fixed_format_ending_in_stop_run():
for pid, p in zos_probes.load().items():
lines = p["source"].splitlines()
Expand Down
Loading