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.
-- Edward E Jaffe Phoenix Software International, Inc 5200 W Century Blvd, Suite 800 Los Angeles, CA 90045 310-338-0400 x318 [EMAIL PROTECTED] http://www.phoenixsoftware.com/ ---------------------------------------------------------------------- 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
