ww wrote: > I'm new to JCL and I don't understand where or how to store input. I > trying to accept input from a user and then convert it to uppercase > however, I want to keep the input in it's original form so I can > reference it later. > I think that your better choice is to create a version of the dictionary entry (CARRIER I guess) that is case insensitive on comparisons. Then you need not call any external BASIC program and so on. You could also use the EVAL connection on the comparison value, or you could use JCL's ability to apply conversions to buffers, the IBH or IH command, with the MCU conversion.
The best option of all though is to get rid of JCL. It is ancient and confusing and there is no place for it in a modern application. Jim > 001 PQN > 002 RI > 003 T (0,0), "Package Tracking", (-4) > 004 T (0,2), (-4) > 005 T (0,1), (-4) > 006 OEnter the string to find + > 008 IP> %1 > 009 MV %2 %1 > 010 T "Input " %1 --- See whats going on > 011 T "Input " %2 --- See what's going on > 012 HSORT TRACKING CARRIER DATE INIT WITH CARRIER = > 013 H" > 014 H%1 > 015 H" > 016 HTOUPPER.BP > 018 P > 019 T "Upper " %1 -- See what's going on > 021 T "Upper " %2 -- See what's going on > 022 IP ---- Just pausing so I can see what's going on > 023 HOR WITH CARRIER = > 024 H" > 025 H%1 ---- I'd like this to be capitals > 026 H" > 027 HOR WITH CARRIER = > 028 H" > 029 H%2 ---- I'd like this to be the original input > 030 H]" > > My problem is where to store the original input before call TOUPPER.BP > because when it returns both parms are uppercase. Below is the code > for TOUPPER.BP. > > 001 PROCREAD PBuffer THEN > 002 PBuffer = TRIM(UPCASE(PBuffer)) > 003 ** PBuffer = OCONV(PBuffer, "MCU") > 004 PROCWRITE PBuffer > 005 END > > Thanks in advance. > > WW > > > > > > --~--~---------~--~----~------------~-------~--~----~ Please read the posting guidelines at: http://groups.google.com/group/jBASE/web/Posting%20Guidelines IMPORTANT: Type T24: at the start of the subject line for questions specific to Globus/T24 To post, send email to [email protected] To unsubscribe, send email to [email protected] For more options, visit this group at http://groups.google.com/group/jBASE?hl=en -~----------~----~----~----~------~----~------~--~---
