Produktion von Hauptprogrammen in Assembler

Es wird empfohlen, den Modul IEDTGLE explizit zum Hauptprogramm zu binden. Deshalb wird in der folgenden Prozedur an die Assemblierung noch ein Binderlauf angeschlossen. Im Allgemeinen wird ein reines Assembler-Programm den EDT ohne ILCS-Flag (EGLILCS) aufrufen. Das ist bei Generierung des Kontrollblocks IEDTGLCB der Standard. Die folgende Prozedur assembliert und bindet Assembler-Hauptprogramme, die als BEISPIEL1.ASS, BEISPIEL2.ASS, ... in der Bibliothek EDT.BEISPIELE abgelegt sind.
Das erzeugte Programm und die Compiler-Listen werden ebenfalls in dieser Bibliothek abgelegt.

/SET-PROCEDURE-OPTIONS INPUT-FORMAT=FREE-RECORD-LENGTH,/
    DATA-ESCAPE-CHAR=STD
/BEGIN-PARAMETER-DECLARATION
/   DECLARE-PARAMETER NAME=NR
/   DECLARE-PARAMETER NAME=LIB,INITIAL-VALUE=C'EDT.BEISPIELE'
/END-PARAMETER-DECLARATION
/START-ASSEMBH
//COMPILE SOURCE=*LIBRARY-ELEMENT(//
    LIBRARY=&LIB,ELEMENT=BEISPIEL&NR..ASS),//
    MACRO-LIBRARY=($.SYSLIB.EDT.170,$.MACROLIB),-        ------------ (1)
//    COMPILER-ACTION=*MODULE-GENERATION(MODULE-FORMAT=*LLM),//
    MODULE-LIBRARY=&LIB,//
    LISTING=*PARAMETERS(OUTPUT=*LIBRARY-ELEMENT(//
        LIBRARY=&LIB,ELEMENT=BEISPIEL&NR..LST))
//END
/START-BINDER
//START-LLM-CREATION INTERNAL-NAME=BEISPIEL&NR._ASS
//INCLUDE-MODULES MODULE-CONTAINER=*LIBRARY-ELEMENT(//
    LIBRARY=&LIB,ELEMENT=BEISP&NR)                       ------------ (2)
//INCLUDE-MODULES MODULE-CONTAINER=*LIBRARY-ELEMENT(//
    LIBRARY=$.SYSLNK.EDT.170,ELEMENT=IEDTGLE)            ------------ (3)
//SAVE-LLM MODULE-CONTAINER=*LIBRARY-ELEMENT(//
    LIBRARY=&LIB,ELEMENT=BSP&NR.A)                       ------------ (4)
//END
/EXIT-PROCEDURE 

Erläuterungen

(1)	Es wird angenommen, dass die SYSLIB.EDT.170 unter der Default-Userid installiert ist. Der Assembler benötigt diese Bibliothek, um die Macros der IEDTGLE-Schnittstelle zu finden. Auf die Angabe der Standard-Makrolib kann i.d.R. verzichtet werden, evtl. sind weitere Makrobibliotheken anzugeben.
(2)	Es wird angenommen, dass der Name der ersten CSECT des Assemblerprogramms BEISPx ist (BEISPIELx wäre im Standard-Assembler zu lang).
(3)	Das Benutzerprogramm wird mit dem Modul IEDTGLE aus der SYSLNK.EDT.170 zusammengebunden. IEDTGLE lokalisiert mittels IMON die EDT-Bibliotheken und lädt seinerseits den EDT dynamisch nach, bzw. konnektiert sich an das EDT-Subsystem.
(4)	Das erzeugte Programm kann anschließend mit /START-EXECUTABLE-PROGRAM (E=BSPxA,L=EDT.BEISPIELE) gestartet werden (x = 1,2,..).