Conversion of character string in CLIST control statement

dbapratap · Posted: Sat Jan 14, 2012 6:48 am

Hi,
I am new to CLIST and working on a tool where i have the floowing control job for the penal i.e.

PROC 0
ISPEXEC VGET (OPT2) PROFILE
SUBMIT * END(NN)
//ABCD1200 JOB(00000000TS,W777),'CPBD1200',NOTIFY=&SYSUID,TIME=(0,5),
// REGION=0M,MSGCLASS=H
//*
//PROCLIB JCLLIB ORDER=(ABC.PROC.PROCLIB)
//*
//ABCD1200 EXEC ABCD1200,
// SOUTP=*,
// SOUTH=*
// PARM.STEP010='/unixsy01 /ABC/DE/efg/scripts/ph1.sh 1000'
//STEP005.IN DD DSN=ABC000.DATA1.T01
//STEP005.SYSIN DD DSN=ABC000.DATA1.PARMLIB(ABCFCHK2)
//STEP010.NETRC DD DSN=ABC000.DATA1.PARMLIB(ABCFTP)
//*
NN
ISPEXEC REMPOP
EXEC 'ABC000.DATA1.TEST(XYZ01)'
END

My problem is that when i submit job from the penal all the character are used in the job are converted into CAPS. But i need PARM.STEP010='/unixsy01 /ABC/DE/efg/scripts/ph1.sh 1000' as is, because the unix script written in this manner and if this changed to CAPS, it wont communicate to UNIX server.

I tried with
1.CAPS/ASIS/NOCAPS operand on the CONTROL statement
2.&SYSASIS control variable, or the &SYSLC and &SYSCAPS built-in functions

but i am not exactly find where i am really missing.

Let me know if you people need any information from my end.

superk · Posted: Sat Jan 14, 2012 8:59 am

The TSO SUBMIT command converts all of the data to upper-case. Always has, probably always will. I can't understand why you're not already aware of that fact, since it's clearly documented here. Anyway, you'll need to use some other method to submit your JCL if you want to keep the lower-case text intact.

Marso · Posted: Sun Jan 15, 2012 8:05 pm

You could get more help if you were learning REXX instead of CLIST.

Can you show us in the procedure how the PARM parameter is used ?

btw,
REMPOP have a meaning only if there is an ADDPOP before, otherwise it is useless.
The VGET has a meaning only if you actually use the value received...

Pedro · Posted: Tue Jan 17, 2012 12:07 am

dbapratap · Posted: Tue Jan 17, 2012 12:09 am

Hi Kevin,
can you please suggest me some other method for submitting the job.

Akatsukami · Posted: Tue Jan 17, 2012 12:13 am

dbapratap · Posted: Tue Jan 17, 2012 3:18 am

Hi Marso,
Here is the proc:

//ABCD1100 PROC SOUTH=H, SYSOUT CLASS H (SYSUDUMP)
// SOUTP=P SYSOUT CLASS P (STAGING)
//*
//STEP005 EXEC PGM=IDCAMS
//IN DD DSN=ABC.ABCD&JOBNUM1..T1,
// DISP=SHR
//SYSOUT DD SYSOUT=&SOUTP
//SYSPRINT DD SYSOUT=&SOUTP
//SYSIN DD DSN=ANC.PROD.PARMLIB(ABCFCHK2), <<check if file
// DISP=SHR is empty
//*
// IF (STEP005.RC EQ 0) THEN
//STEP010 EXEC PGM=REXEC,
// PARM='/unixsp01 /anc/scripts/ph1.sh &JOBNUM1'
//*
//NETRC DD DSN=xxx.PROD.FTP.PARMLIB(ABCFTPP1),DISP=SHR
//*
//SYSPRINT DD SYSOUT=&SOUTP
//*

as you told :

1.REMPOP have a meaning only if there is an ADDPOP before, otherwise it is useless.
Yes i am using diff POP up penals for running different jobs.
2.The VGET has a meaning only if you actually use the value received.
I need to get the profile of the another penal, so i am using VGET.

Let me know if you have anything there in your mind,your suggestion is welcome.

dbapratap · Posted: Fri Jan 20, 2012 5:55 am

I tried with submitting the job in different method, where one jcl calling another jcl i.e.

//STEP010 EXEC PGM=IEBGENER
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD DISP=SHR,DSN=CI111.xx.T3er(CABC1111)
//SYSUT2 DD SYSOUT=*
//SYSIN DD DUMMY
//*

But my 2nd jcl which is having path to UNIX server, is not able to connect.

Any suggestion?

Pedro · Posted: Fri Jan 20, 2012 7:40 pm

Marso · Posted: Fri Jan 20, 2012 8:53 pm

Can you modify the REXEC program so it gets the parameter from a file (instead of getting it from PARM=) ?