For SYSTEM 2000 Version: 12.0
Problem Status: ZD -- ZAP DISTRIBUTED
Description of Problem:
STORAGE VIOLATIONS IN CICS WHEN INSERTING A LOT OF LINES IN AN EXISTING MEMBER IN THE COMMAND EDITOR.
Note: Please send email to s2k@sas.com telling us which problem fixes you have downloaded so we can keep track of the fixes at your site in case questions or problems arise.
Top of Zap Deck:
* IBM R12.0 BUG 4644 MVS
./ CHANGE NAME=S2KSAVE
* *06* 09NOV92 GOH B4644 GET MEMBER LENGTH FROM EDITMLN ON NEW *06** 00005990
CH R7,EDITMLN ROOM IN BUFFER FOR DATA ? *06* 00097010
BNH GOTMEM10 YES. CONTINUE *06* 00097020
LA R15,28 NO. SET ERROR CONDITION *06* 00097030
B SAVE0040 PROCESS ERROR *06* 00097040
GOTMEM10 EQU * *06* 00097050
./ CHANGE NAME=S2KINS
* *05* 09NOV92 GOH B4644 MAX BUFFER LENGTH IN EDITMLN *05* 00005970
LH R4,EDITMLN MAX MEMBER LENGTH *05* 00047000
./ CHANGE NAME=S2KGET
* *07* 09NOV92 GOH B4644 DON'T OVERRUN BUFFER, STORAGE VIOLATION *07* 00007990
CH R2,EDITMLN MORE THAN WE HAVE ROOM FOR *07* 00114010
BNH GOODGET NO. CONTINUE *07* 00114020
LA R15,28 SET ERROR CODE *07* 00114030
B GET0040 PROCESS ERROR *07* 00114040
./ CHANGE NAME=IOMEMBR
* 05 10NOV92 GOH B4644 ALLOCATE MAX BUFFER ON NEWAREA *05* 00025990
* ALLOCATE MAX BUFFER ON NEWAREA (19000 BYTES) *05* 00093010
EXEC CICS GETMAIN LENGTH(19000) SET(R9) INITIMG(BLANK) 00094000
L R2,DBUFLEN GET MEMBER LENGTH *05* 00095010
STH R2,EDITMLN SET MEMBER LENGTH *05* 00096000
End of Zap Deck