Repository navigation
CICS: the pointer lane -- WEB RECEIVE SET, GETMAIN / FREEMAIN, SET ADDRESS OF (Part of #4771) - #5041
Conversation
|
|
||
| def pointer(self, text: str | None) -> str: | ||
| """#4771 (X47): the Field of the plain USAGE POINTER item an option names (SET / DATAPOINTER).""" | ||
| from gitgalaxy.tools.cobol_to_java.det.gen import Untranslatable |
…umptions.md and cics_spec_status.md Co-Authored-By: Claude Sonnet 5.5 <noreply@anthropic.com>
|
No description provided. |
|
No description provided. |
|
PR #5041 @ 80f90c4: 4 failed check(s) == db2 1/4 (failure) -- infra == db2 3/4 (failure) -- infra == db2 4/4 (failure) -- infra == shepherd (label event) (failure) -- real |
and #5005; oracle_assumptions.md re-rendered) Co-Authored-By: Claude Sonnet 5.5 <noreply@anthropic.com>
|
CI shepherd: the head of this PR (f67ae28) is not the one a maintainer labelled |
… GETMAIN / FREEMAIN on top of #5005) Co-Authored-By: Claude Sonnet 5.5 <noreply@anthropic.com>
|
No description provided. |
|
No description provided. |
Part of #4771.
What
The pointer lane for zECS:
WEB RECEIVE SET(ptr),GETMAIN SET(ptr) FLENGTH/LENGTH INITIMG,FREEMAIN DATAPOINTER,SET ADDRESS OF record TO ptr | ADDRESS OF record,SET ptr TO ADDRESS OF record. IBM text and every assumption / refusal: new register entry X47 (X44-X46 are taken by #5035 / #5038 / #5040).Design: a POINTER item holds an 8-byte handle of a block of task storage (
CicsTask.getmain / acquireReceived / addressOf / storageAt);SET ADDRESS OFrebinds a LINKAGE 01 record'sStorageonto the block's byte array, so it is a real alias. The stub C keeps real addresses and GnuCOBOL's ownSET ADDRESS OF.Already done on main (confirmed, not redone)
READ GTEQ / DELETE GENERIC on a run-time file: #4886 (032b2e7), register X22, tests in test_cics_runtimes.py / test_det_translate.py.
Class table
ADD n TO CACHE-ADDRESS-X), ADDRESS OF a subordinate item (ZF-DATA)SET_POINTER), sibling gapEvidence
_X47_CASES(24 step lists, stub C vs CicsTask Java), test_det_translate.py, test_equivalence_cics.py, test_pointer_lane_4771.py (a whole program translates with no hole, DetCics aliasing compiled and run).pr_gates --fast5/5,--ratchets7/7,crucible_checkboth legs PASS (no golden change),det_port.py check: every CICS port's runtime files change additively (DetCics.java +65, CicsTask.java +87), no translated service changed; re-proved zecs-zecsplt, cbsa-creacc, carddemo-menu, genapp-lgwebst5: PROVED.Cross-repo
None (no companion PR). Conflicts to expect with #5035 / #5038 / #5040: api.py, det/cics.py, test counts in tests/core_engine/test_cics_spec.py, oracle_assumptions.md; merge main (never rebase) and re-run
register.py render/cics_spec_status.py render.🤖 Generated with Claude Code