search

mvslovers / brexx370

MVS version of Vasilis Vlachoudis awesome rexx implementation
46 stars 11 forks source link

Disappearing Capitol "T" #100

Closed baka0taku closed 3 years ago

baka0taku commented 3 years ago

First, let me thank you for your efforts. It is a lot of fun to be able to use REXX on MVS3.8. I used the following source code to test out the BREXX V2R5M0 full-screen panels:

000001 / IMPORT FSS API LIBRARY /
000002 CALL IMPORT FSSAPI
000003 / ADDRESS THE FSS SUBSYSTEM /
000004 ADDRESS FSS
000005 / ENTER FULL-SCREEN MODE /
000006 CALL FSSINIT
000007 frc=FMTCOLUM(1,'TEST OF FULL SCREEN PANELS',
000008 ,'1. FIRST NAME ===> ',
000009 ,'2. LAST NAME ===> ',
000010 ,)
000011 DO I=1 TO _SCREEN.INPUT.0
000012 SAY I'. '_SCREEN.INPUT.I
000013 END
000014 RETURN

When I enter input into the fields that begins with a capitol T the capitol T disappears when I use the say command in line 12. Please see the attached screenshots. actual-input output

. Let me know if there is anything else I can do to help.

Peter-Jacob commented 3 years ago

Problem confirmed! The error will be fixed in the next fix release. As a temporary solution please make the following change:

1/ edit member FSSCREEN in library BREXX.V2R5M0.RXLIB 2/ go down to line 95

000093 FSSgetD:                                                               
000094   do i=1 to varmax                                                     
000095      _SCREEN.INPUT.i=strip(fssFGET('_screen.input.'i,'NOTEST'),,'T')    
000096   end

the STRIP function in line 95 is in error, replace it by: 000095 _SCREEN.INPUT.i=strip(fssFGET('_screen.input.'i,'NOTEST'),'T') 3/ save member 4/ re-test your REXX script.

If you are on a previous BREXX version, please take the member FSSCREEN of the appropriate RXLIB and change it accordingly.

baka0taku commented 3 years ago

Thanks for the prompt response. Keep up the good work :)