How to lowercase queue buffer using rexx



IBM's Command List programming language & Restructured Extended Executor

How to lowercase queue buffer using rexx

Postby sngxd » Thu Sep 29, 2016 1:46 am

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
sngxd
 
Posts: 8
Joined: Fri May 20, 2016 8:39 am
Has thanked: 0 time
Been thanked: 0 time

Re: How to lowercase queue buffer using rexx

 

Re: How to lowercase queue buffer using rexx

Postby NicC » Thu Sep 29, 2016 1:56 am

Instead of queuing the job why not create a temporary dataset with it and submit that?
The problem I have is that people can explain things quickly but I can only comprehend slowly.
Regards
Nic
NicC
Global moderator
 
Posts: 2531
Joined: Sun Jul 04, 2010 12:13 am
Location: Down on the pig farm
Has thanked: 4 times
Been thanked: 88 times

Re: How to lowercase queue buffer using rexx

Postby Akatsukami » Thu Sep 29, 2016 2:00 am

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.
"You have sat too long for any good you have been doing lately ... Depart, I say; and let us have done with you. In the name of God, go!" -- what I say to a junior programmer at least once a day
User avatar
Akatsukami
Global moderator
 
Posts: 1005
Joined: Sat Oct 16, 2010 2:31 am
Location: Bloomington, IL
Has thanked: 6 times
Been thanked: 48 times

Re: How to lowercase queue buffer using rexx

Postby sngxd » Thu Sep 29, 2016 2:17 am

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.
sngxd
 
Posts: 8
Joined: Fri May 20, 2016 8:39 am
Has thanked: 0 time
Been thanked: 0 time

Re: How to lowercase queue buffer using rexx

Postby prino » Thu Sep 29, 2016 4:56 am

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.
Robert AH Prins
robert.ah.prins @ the.17+Gb.Google thingy
User avatar
prino
 
Posts: 474
Joined: Wed Mar 11, 2009 12:22 am
Location: Oostende, Belgium
Has thanked: 3 times
Been thanked: 19 times

Re: How to lowercase queue buffer using rexx

Postby willy jensen » Thu Sep 29, 2016 1:46 pm

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')')                          
 
willy jensen
 
Posts: 61
Joined: Thu Mar 10, 2016 5:03 pm
Has thanked: 0 time
Been thanked: 11 times


Return to CLIST & REXX

 


  • Related topics
    Replies
    Views
    Last post