For SYSTEM 2000 Version: 11.63
Problem Status: ZC (Zap Coded) -- Fix has received limited testing
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 V11.63 BUG 4675 OS
./ 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* 00053010
LA R4,1(R4) *11* 00053020
USING S2KLIST+4096,R4 00053030
STH R0,LSTMSGL HALFWORD LENGTH *11* 00079000
B LIST0102 CONTINUE *11* 00081000
* *11* 00093010
* UPPER CASE INPUT IN CASE USER DIDN'T *11* 00093020
* *11* 00093030
LTR R6,R6 ANY DATA IN? *11* 00093032
BZ LIST0102 NO. JUST CONTINUE *11* 00093034
C R6,=F'256' TOO BIG *11* 00093040
BNH LIST0101 NO. CONTINUE *11* 00093050
LA R6,256 SET TO MAX *11* 00093060
LIST0101 EQU * *11* 00093070
BCTR R6,0 DECR LENGTH FOR EXECUTE *11* 00093080
EX R6,OCINPT UPPER CASE ALL OF INPUT *11* 00093090
LH R6,LSTMSGL RESET LENGTH *11* 00093100
B LIST0102 CONTINUE *11* 00093110
SPACE 00093120
OCINPT OC 0(0,R7),LISTBLNK *11* 00093130
SPACE 00093140
LIST0102 EQU * *11* 00093150
LISTBLNK DC 256C' ' *11* 00962010
./ CHANGE NAME=SCFPGBD
* *12* 05JAN93 GOH B4675 ALLOW LOWER CASE INPUT ON LIST TRANS *12* 00012964
CLC EIBTRNID,LCLALL LIST TRANSACTION ? *12* 00260010
BE PGBD0142 YES. *12* 00260020
CLC EIBTRNID,LCLSCF LIST TRANS ? *12* 00262010
BE PGBD0142 YES. *12* 00262020
BE PGBD0142 YES. *12* 00264000
CLC EIBTRNID,LCLPLX LIST TRANS ? *12* 00264010
BNE PGBD0148 NO. JUST CONTINUE *12* 00264020
LCLALL DC CL4'lall' LOWER CASE LIST *12* 00560010
LCLSCF DC CL4'lscf' LOWER CASE LIST *12* 00561010
LCLPLX DC CL4'lplx' LOWER CASE LIST *12* 00562010
End of Zap Deck