I have a COBOL program that I wrote some time ago that will build SYSIN cards based on PARM input, where you can have multiple variables. The program can generate multiple lines of SYSIN from a single PARM, and can adapt to Upper or Lower case changes mid-parm. Here is more about what it does
This program will take a string passed as a parm to the Program, and generate a dataset from that parm. This is done to allow parms to be passed as symbolics into a proc, which are generated into control statements. Since parm processing is limited to 100 chars, only 100 characters of commands can be processed. When a delimiter '~!' is encountered, the existing area Is written out and the start of a new command is assumed. When '~@' is encountered, the record is written out, but any spaces until the next character are eliminated. This will allow for spacing adjustments in the parm symbolics. When '~Q' is found, a single quote is substituted. When '~L' is found, the following text will be converted to Lowercase until the end of the command (~! or ~@) or until an "uppercase" command (~U) is encountered. When '~U' is found, the conversion to lower case is ended. If you are interested in this sort of solution, let me know. Don 2009/7/6 Rick Fochtman [email protected] ---------------------------------------<snip>------------------------------- Hello, >> >> I am trying to optimize some tasks I perform with my MQ Series. My idea is >> to delete a bunch of MQ objects just passing am unique number reference that >> identifies our partners. >> >> The JCL would look like this: >> >> //DLPARTNR PROC REF= >> //CSQUTIL1 EXEC PGM=CSQUTIL,REGION=0M, // >> PARM='BCMH' //STEPLIB >> DD DISP=SHR,DSN=SSTP.HZ19.MQS600.SCSQANLE // DD >> DISP=SHR,DSN=SSTP.HZ19.MQS600.SCSQAUTH //SYSPRINT DD >> SYSOUT=* //SYSIN DD >> DISP=SHR,DSN=SSTP.SYSIN(DEL1) //CSQUCMD DD >> DISP=SHR,DSN=SSTP.SYSIN(DEL2) >> So I have several MQ-delete commands contained inside of the DEL1 and DEL2 >> SYSIN datasets, somewhat like this: >> DELETE CHANNEL(MYCOMPANY.TO.&REF) >> >> I ended up discovering that symbols parameters I submit do not replace the >> ones contained on SYSIN data, is this true? Is there any workaround? >> > > ------------------------------------<unsnip>-------------------------------------- > I have a Assembler program that can help with that. Send me a private > E-Mail address and I'll send you a copy. It will make substitutions in > SYSIN-type control statements, based on parameters provided through JCL, and > has some "special" values as well. You'll need a program to Un-ZIP the file > I send you, unless you tell me otherwise. > > Rick > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to [email protected] with the message: GET IBM-MAIN INFO > Search the archives at http://bama.ua.edu/archives/ibm-main.html > ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
