Re: QPROCT and QPRODT
"Dennis Lovelady" <iseries-HF96MFG82JhWk0Htik3J/[email protected]> Fri, 30 Apr 2010 10:24:02 -0400
| Newsgroups | gmane.comp.lang.as400.mi |
|---|---|
| Message-ID | <001d01cae870$cde5a180$69b0e480$@com> |
> you can use ANY Branch/indicator Keyword from an eligible Keyword > Group for an op-code and QPRCRTPG doesn't care. Sorry, it must be slow-day for me (well, I mean moreso than usual). I have read the above several times and still am not sure what's being said. Which part (below) surprised you? I'd really like to understand, 'cuz I'm sure I'm missing something key. > To my surprise, the following compiled successfully: > > DCL DD MYVAR PKD(1,0) INIT(P'0'); > DCL DD INDICATOR CHAR(1); > ADDN(IS) MYVAR,1 /POS(INDICATOR); > ADDN(IS) MYVAR,1 /HI(INDICATOR); > ADDN(IS) MYVAR,1 /MXD(INDICATOR); > ADDN(IS) MYVAR,1 /NOR(INDICATOR); > ADDN(IS) MYVAR,1 /TR(INDICATOR); > ADDN(IS) MYVAR,1 /ZC(INDICATOR); > PEND; Dennis Lovelady http://www.linkedin.com/in/dennislovelady -- Phil Rizzuto (to Yogi Berra, driving to a banquet) : "Yogi, we're lost." "Yeah, but we're making good time." _______________________________________________ This is the MI Programming on the AS400 / iSeries (MI400) mailing list To post a message email: MI400-Zwy7GipZuJhWk0Htik3J/[email protected] To subscribe, unsubscribe, or change list options, visit: http://lists.midrange.com/mailman/listinfo/mi400 or email: MI400-request-Zwy7GipZuJhWk0Htik3J/[email protected] Before posting, please take a moment to review the archives at http://archive.midrange.com/mi400.