On Fri, 9 Nov 2007 12:13:22 -0800, Edward Jaffe <[EMAIL PROTECTED]> wrote:
>Michael Babcock wrote: >> * PREVENT USE OF JES2 COMMANDS SUBMITTED THROUGH * INTERNAL READER >> UNLESS INTERNAL READER IS OWNED >> * BY A STARTED TASK. >> HASPE004 $ENTRY BASE=(R12) >> $SAVE >> USING HCT,R11 >> USING PCE,R13 >> LR R12,R15 >> L R2,0(R1) POINT TO STATEMENT IMAGE. >> LTR R0,R0 IS THIS A JES2 JECL STATEMENT? >> BNZ NOTJECL ... NO, IGNORE IT >> CLI 2(R2),C'$' JES2 COMMAND ? >> BNE EX4RET00 ... NO >> TM PCEID,PCEINRID INTERNAL READER ? >> BNO EX4RET00 ... NO >> L R15,PCEDCT DCT ADDRESS >> CLC =C'STC',RIDJBID-DCT(R15) STC OWNER OF INRDR ? >> BE EX4RET00 ... YES,ALLOW >> MVC 3(L'DMR0MSG,R2),DMR0MSG >> MVC 9(8,R2),RIDJNAM-DCT(R15) SHOW JOBNAME OF USER >> B EX4RET00 >> NOTJECL DS 0H > >This what happens when you post lines with trailing blanks. For me, at >least, it's unreadable. > Looks fine in the web archives: http://bama.ua.edu/cgi-bin/wa?A2=ind0711&L=ibm-main&D=1&O=D&P=68145 Mark -- Mark Zelden Sr. Software and Systems Architect - z/OS Team Lead Zurich North America / Farmers Insurance Group - ZFUS G-ITO mailto:[EMAIL PROTECTED] z/OS Systems Programming expert at http://expertanswercenter.techtarget.com/ Mark's MVS Utilities: http://home.flash.net/~mzelden/mvsutil.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