For SYSTEM 2000 Version: 12.0
Problem Status: ZD -- ZAP DISTRIBUTED
Description of Problem:
DATA INPUT IN LOWER CASE FORMAT IS NOT RECOGNIZED BY THE S2KLIST MODULE IN RESPONSE TO A LALL, LPLX, OR LSCF TRANSACTION.
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 4675 MVS
./ CHANGE NAME=S2KLIST
* *11* 03FEB93 GOH B4675 SUPPORT LOWER CASE INPUT FOR LIST TRANS *11* 00024991
* AND ADD SECOND BASE REGISTER *11* 00024992
LA R4,4095(R3) SECOND BASE REG *11* 00049010
LA R4,1(R4) *11* 00049020
USING S2KLIST+4096,R4 00049030
STH R0,LSTMSGL HALFWORD LENGTH *11* 00075000
B LIST0102 CONTINUE *11* 00077000
* *11* 00082010
* UPPER CASE INPUT IN CASE USER DIDN'T *11* 00082020
* *11* 00082030
LTR R6,R6 ANY DATA IN? *11* 00082032
BZ LIST0102 NO. JUST CONTINUE *11* 00082034
C R6,=F'256' TOO BIG *11* 00082040
BNH LIST0101 NO. CONTINUE *11* 00082050
LA R6,256 SET TO MAX *11* 00082060
LIST0101 EQU * *11* 00082070
BCTR R6,0 DECR LENGTH FOR EXECUTE *11* 00082080
EX R6,OCINPT UPPER CASE ALL OF INPUT *11* 00082090
LH R6,LSTMSGL RESET LENGTH *11* 00082100
B LIST0102 CONTINUE *11* 00082110
SPACE 00082120
OCINPT OC 0(0,R7),LISTBLNK *11* 00082130
SPACE 00082140
LIST0102 EQU * *11* 00082150
LISTBLNK DC 256C' ' *11* 00923010
./ CHANGE NAME=SCFPGBD
* *12* 05JAN93 GOH B4675 ALLOW LOWER CASE INPUT ON LIST TRANS *12* 00012964
CLC EIBTRNID,LCLALL LIST TRANSACTION ? *12* 00250010
BE PGBD0142 YES. *12* 00250020
CLC EIBTRNID,LCLSCF LIST TRANS ? *12* 00252010
BE PGBD0142 YES. *12* 00252020
BE PGBD0142 YES. *12* 00254000
CLC EIBTRNID,LCLPLX LIST TRANS ? *12* 00254010
BNE PGBD0148 NO. JUST CONTINUE *12* 00254020
LCLALL DC CL4'lall' LOWER CASE LIST *12* 00530010
LCLSCF DC CL4'lscf' LOWER CASE LIST *12* 00531010
LCLPLX DC CL4'lplx' LOWER CASE LIST *12* 00532010
End of Zap Deck