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.
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 -~----------~----~----~----~------~----~------~--~---
