> -----Original Message----- > From: IBM Mainframe Discussion List > [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of John Dawes > Sent: Monday, November 28, 2011 12:16 PM > To: IBM-MAIN@bama.ua.edu > Subject: SETTING CONDITION CODE > > G'Day, > <snip> > > //PRINTDS EXEC PGM=PRTDS, > // PARM=('DDNAME(INPDS)', > // 'SEA(.) REP(X''40'')', > // 'SYSOUT(X)') > //INPDS DD DSN=SYS2..INFO.CONFIG,DISP=SHR > //SYSPRINT DD SYSOUT=* > //*
Sort of. For most program, you can run them in TSO batch. //PRINTDS EXEC PGM=IKJEFT01 //INPDS DD DISP=SHR,DSN=SYS2..INFO.CONFIG ???? .. ?? //SYSPRINT DD SYSOUT=* //SYSTSPRT DD SYSOUT=* //SYSTSIN DD * CALL *(PRINTDS) 'DDNAME(INPDS) SEA(.) REP(X''40'') SYSOUT(X)' CALL *(IEFBR14) /* // The RC from IKJEFT01 is the RC of the __last__ command executed. That's why I did the CALL *(IEFBR14). The asterisk in the CALL means "use the LNKLST". I used it because you didn't have a STEPLIB. I don't know what PRTDS does. There may be an easier way. Or there may not. -- John McKown Systems Engineer IV IT Administrative Services Group HealthMarkets® 9151 Boulevard 26 . N. Richland Hills . TX 76010 (817) 255-3225 phone . john.mck...@healthmarkets.com . www.HealthMarkets.com Confidentiality Notice: This e-mail message may contain confidential or proprietary information. If you are not the intended recipient, please contact the sender by reply e-mail and destroy all copies of the original message. HealthMarkets® is the brand name for products underwritten and issued by the insurance subsidiaries of HealthMarkets, Inc. -The Chesapeake Life Insurance Company®, Mid-West National Life Insurance Company of TennesseeSM and The MEGA Life and Health Insurance Company.SM ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html