Page 1 of 1

How to lowercase queue buffer using rexx

PostPosted: Thu Sep 29, 2016 1:46 am
by sngxd
Hello folks

I am trying execute it

QUEUE "//aa JOB (A833C12P),'JCLBLD ',"
QUEUE "// TIME=1440,MSGCLASS=R,PRTY=09,REGION=0K,NOTIFY=BLDML"
QUEUE "//SENDHOLD EXEC PGM=BPXBATCH,"
QUEUE "// PARM='SH /u/bldml/sftp/clean.sh "a.1" '"
QUEUE "//STDOUT DD SYSOUT=*"
QUEUE "//STDERR DD SYSOUT=*"
QUEUE "//* "
QUEUE "ZZ"
'submit * end(ZZ)'

And I know when submit command is executed all lines in the queue goes to uppercase. but I need the parm line in the lowercase.

Someone would have a guidance to me ?

Thanks so much

Re: How to lowercase queue buffer using rexx

PostPosted: Thu Sep 29, 2016 1:56 am
by NicC
Instead of queuing the job why not create a temporary dataset with it and submit that?

Re: How to lowercase queue buffer using rexx

PostPosted: Thu Sep 29, 2016 2:00 am
by Akatsukami
First, note that the lower-case job name is not valid.

I've used lower case in parameters and in-stream data many times, and I don't recall this ever happening. Please post (in Copy tags; do not post an attachment or screen shot) of the JCL sysout from a failed run.

Re: How to lowercase queue buffer using rexx

PostPosted: Thu Sep 29, 2016 2:17 am
by sngxd
000001 /* rexx */
000002 a.1 = gui
000003 a.2 = eu
000004 trace r
000005 QUEUE "//TESTE12 JOB (A833C12P),'JCLBLD ',"
000006 QUEUE "// TIME=1440,MSGCLASS=R,PRTY=09,REGION=0K,NOTIFY=BLDML"
000007 QUEUE "//SENDHOLD EXEC PGM=BPXBATCH,"
000008 QUEUE "// PARM='SH /u/bldml/sftp/clean.sh "a.1" '"
000009 QUEUE "//STDOUT DD SYSOUT=*"
000010 QUEUE "//STDERR DD SYSOUT=*"
000011 QUEUE "//* "
000012 QUEUE "ZZ"
000013 'submit * end(ZZ)'

The problem is
All lines goes to lowercase

//SENDHOLD EXEC PGM=BPXBATCH,
// PARM='SH /U/BLDML/SFTP/CLEAN.SH GUI '


So I would like that this keeps as lower case.

Re: How to lowercase queue buffer using rexx

PostPosted: Thu Sep 29, 2016 4:56 am
by prino
Akatsukami wrote:I've used lower case in parameters and in-stream data many times, and I don't recall this ever happening.

Just tried this job with a TYPRUN=SCAN on "that" system, and I can confirm that the TSO SUBMIT command converts the line in question to UPPERCASE.

Re: How to lowercase queue buffer using rexx

PostPosted: Thu Sep 29, 2016 1:46 pm
by willy jensen
I also find that SUBMIT upcases the data, didn't know that.
You could use the internal reader instead, it would be simpler that writing to a dataset:

cc=bpxwdyn('alloc rtddn(sdd) sysout(a) writer(intrdr) lrecl(80) recfm(f,b)')                    
"execio" queued() "diskw" sdd "(finis)"                
"delstack"                                            
cc=bpxwdyn('free dd('sdd')')