RE: Queries Reports run from menu options

[Winchester Terry <terry.winchester@xxxxxxxxxxxxxxx>]

Barbi,

I can't answer all of your questions, but if your
looking to convert to upper case you could use the
QLGCNVCS API.  Here's a couple CL examples:

http://www.geocities.com/SiliconValley/Pines/5581/cvtcase.txt


http://search400.techtarget.com/tip/1,289483,sid3_gci884317,00.html?FromTaxo
nomy=%2Fpr%2F2f9


Terry

> -----Original Message-----
> From: Born, Barbara K [mailto:bkb236w@xxxxxxxx] 
> Sent: Friday, October 03, 2003 12:48 PM
> To: cobol400-l@xxxxxxxxxxxx
> Subject: Queries Reports run from menu options
> 
> 
> 
> Hello:
> 
> I am looking for ways to run queries from menu options.  The queries
> exist in query manager and I'm using the query management command of
> strqmqry inside a CL program.  The CL program is run from a 
> CMD program.
> There are variables that are chosen from the display screen 
> that need to
> be passed using the SETVAR parameter.  As long as the variables are in
> character upper-case format there are no problems.  If the variables
> need to be a numeric or mixed case or all lower-case, there 
> are no rows
> found. Also, the SETVAR can only be a total of 55 characters and
> sometimes the titles are 60 characters or the combination of passed
> parameters totals to more than 60 characters.
> 
> Are there other approaches to running queries from a menu?  
> Do I need to
> write a HHL program to accomplish this feat?
> 
> The current CL program looks like:
> 
>                                                                 
>   PGM        PARM(&VLNAME &VFNAME)                              
>                                                                 
>              DCL        VAR(&MSGID) TYPE(*CHAR) LEN(7)          
>              DCL        VAR(&MSGDTA) TYPE(*CHAR) LEN(128)       
>              DCL        VAR(&VLNAME) TYPE(*CHAR) LEN(15)        
>              DCL        VAR(&VFNAME) TYPE(*CHAR) LEN(15)        
>              DCL        VAR(&NAME_LAST) TYPE(*CHAR) LEN(23)     
>              DCL        VAR(&NAME_FIRST) TYPE(*CHAR) LEN(23)    
>                                                                 
> /*************************************************************
> *********
> /*     Enclose the variables in quotes                        
>          
> /*************************************************************
> *********
>                                                               
>          
> CORRECTV:    CHGVAR     VAR(&NAME_LAST) VALUE('''' *CAT &VLNAME *CAT
> '''')
>              CHGVAR     VAR(&NAME_FIRST) VALUE('''' *CAT &VFNAME *CAT
> '''')
>                                                               
>          
> /*************************************************************
> *********
> /*     Process the query, format and send to printer or 
> display        
> /*************************************************************
> *********
>                                                               
>          
>  PROCQUERY:  STRQMQRY   QMQRY(MYLIB/QUERY1) SETVAR((NAME_LAST +      
>                           &NAME_LAST) (NAME_FIRST 
> &NAME_FIRST))        
>  ENDPGM
> 
> 
> Barbi Born    
> Southwest Missouri State University   
> Springfield, MO
> Bkb236w@xxxxxxxx