DCL SPCPTR ?SIZE  PARM;
DCL DD     SIZE   BAS(?SIZE) PKD(15,5);
DCL OL     *MAIN  (?SIZE) EXT PARM MIN(1);
DCL DD     OUT    STAT CHAR(10) INIT("HELLO");
DCL SPCPTR ?OUT   STAT INIT(OUT);
DCL OL     *OUT   (?OUT) MIN(0) ARG;
DCL SYSPTR ?NEXT  AUTO INIT("NEXT", TYPE(PGM));

      ENTRY     MAIN (*MAIN) EXT;
      SETALLEN  *OUT, 0;
      CMPNV(B)  SIZE, 0 / EQ(SKIP);
      SETALLEN  *OUT, 1;
SKIP: XCTL      ?NEXT, *OUT;
      PEND;


+---
| This is the MI Programmers Mailing List!
| To submit a new message, send your mail to MI400@midrange.com.
| To subscribe to this list send email to MI400-SUB@midrange.com.
| To unsubscribe from this list send email to MI400-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: dr2@cssas400.com
+---

As an Amazon Associate we earn from qualifying purchases.

This thread ...


Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2022 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.