simple UDDS example

[Gene_Gaunt/ReviewWorks@xxxxxxxxxxxxxxx]

Here's an itty bitty program that displays "Hello, World!"

DCL SPCPTR ?SEPT     BASPCO;
DCL SYSPTR ?OS(5500) BAS(?SEPT);
DCL MSPPTR ?M;
DCL DD     EPT(256)  BAS(?M) POS(5) CHAR(130);
DCL DD     PTG(256)  DEF(EPT) POS(31) BIN(2) AEO(130);
DCL DD     X         AUTO BIN(4);
DCL SPCPTR ?ODP      AUTO;
DCL DD     DNLOFF    BAS(?ODP) POS(17) BIN(4);
DCL SPCPTR ?INREC    AUTO;
DCL DD     INREC     BAS(?INREC) CHAR(32767);
DCL SPCPTR ?OUTREC   AUTO;
DCL DD     OUTREC    BAS(?OUTREC) CHAR(32767);
DCL DD     *         AUTO CHAR(80);
DCL DD     FILE      AUTO CHAR(10) INIT("QSN132");
DCL DD     *         AUTO BIN(2) INIT(75);
DCL DD     LIBR      AUTO CHAR(10) INIT("QSYS");
DCL DD     *         AUTO BIN(2) INIT(-71);
DCL DD     *         AUTO CHAR(20);
DCL DD     INDEX     AUTO BIN(2);
DCL DD     FLAGS     AUTO CHAR(2) INIT(X"8038");
DCL DD     VERSION   AUTO CHAR(4) INIT("0100");
DCL DD     *         AUTO CHAR(28);
DCL DD     *         AUTO BIN(2) INIT(7);
DCL DD     *         AUTO BIN(2) INIT(1);
DCL DD     *         AUTO BIN(2) INIT(1);
DCL DD     *         AUTO CHAR(10) INIT("USRRCD");
DCL DD     *         AUTO CHAR(13) INIT("0252319D9C405");
DCL DD     FINAL     AUTO BIN(2) INIT(32767);
DCL DD     TYPE      AUTO CHAR(4) INIT(X"03000006");
DCL DD     CONTROL   AUTO CHAR(1) INIT(X"01");
DCL DD     *         AUTO BIN(2) INIT(10);
DCL DD     *         AUTO CHAR(10) INIT("USRRCD");
DCL DD     *         AUTO CHAR(1) INIT(X"FF");
DCL SPCPTR ?UFCB     AUTO INIT(?ODP);
DCL SPCPTR ?TYPE     AUTO INIT(TYPE);
DCL SPCPTR ?CONTROL  AUTO INIT(CONTROL);
DCL OL     IOLIST    (?UFCB, ?TYPE, ?CONTROL) ARG;
DCL OL     OCLIST    (?UFCB) ARG;

CALLX      ?OS(12), OCLIST, *;
CPYBLA     OUTREC(1:14), X"001A000373044004110028110C22";
CPYBLA     OUTREC(15:13), "Hello, World!";
CPYBLA     OUTREC(28:4), X"04520000";
ADDSPP     ?M, ?ODP, DNLOFF;
CPYNV      X, PTG(INDEX);
CALLX      ?OS(X), IOLIST, *;
CALLX      ?OS(11), OCLIST, *;
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
+---