Re: tfrctl

[Gene_Gaunt/ReviewWorks@xxxxxxxxxxxxxxx]

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
+---